# 
# patch "contrib/monotone.el"
#  from [a5608bb52ed1144fe1113d6556bfdd6887145ea2]
#    to [93fbb1adc14eded9404daa18662ead8d0a2ab360]
# 
--- contrib/monotone.el
+++ contrib/monotone.el
@@ -235,9 +235,10 @@
         (beginning-of-line)
         (when (looking-at "^enter passphrase for key ID \\(.*\\)")
           (let ((pass (monotone-read-passwd (match-string 1))))
-            (end-of-line)
-            (insert "********\n") ;; filler text
-            (process-send-string p (concat pass "\n")))))
+            ;;(end-of-line)
+            ;;(insert "********\n") ;; filler text
+            (process-send-string p pass)
+            (process-send-string p "\n"))))
       (setq mt-status (process-exit-status p)))
     ;; make the buffer nice.
     (goto-char (point-min))