alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mu4e-utils: Password query string as variable.

Browse Source 
Added `mu4e~get-mail-ask-password' instead of a simply "Password: "
prompt.

Signed-off-by: Rüdiger Sonderfeld <ruediger@c-plusplus.de>
This commit is contained in:
Rüdiger Sonderfeld
2012-08-25 13:16:54 +02:00
parent f8db0c9b76
commit b116c64fb8
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
mu4e/mu4e-utils.el
View File

@ -682,6 +682,9 @@ FUNC (if non-nil) afterwards."
(defconst mu4e~update-mail-name "*mu4e-update-mail*" (defconst mu4e~update-mail-name "*mu4e-update-mail*"
"Name of the process to update mail.") "Name of the process to update mail.")
(defvar mu4e~get-mail-ask-password "mu4e get-mail: Enter password: "
"Query string for `mu4e-get-mail-command' password.")
(defvar mu4e~get-mail-password-regexp "^Remote: Enter password: $" (defvar mu4e~get-mail-password-regexp "^Remote: Enter password: $"
"Regexp to match a password query in the `mu4e-get-mail-command' output.") "Regexp to match a password query in the `mu4e-get-mail-command' output.")
@ -695,7 +698,9 @@ into the process buffer."
(set-buffer (process-buffer proc)) (set-buffer (process-buffer proc))
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
;; Check whether process asks for a password and query user ;; Check whether process asks for a password and query user
(when (string-match mu4e~get-mail-password-regexp msg) (when (string-match mu4e~get-mail-password-regexp msg)
(process-send-string proc (concat
(read-passwd mu4e~get-mail-ask-password)
"\n"))) "\n")))
(insert msg)))) (insert msg))))