Commit e7f2c178 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen
Browse files

(smtpmail-try-auth-methods): Expand the secret password.

parent c65c9622
...@@ -3,6 +3,7 @@ ...@@ -3,6 +3,7 @@
* mail/smtpmail.el (smtpmail-via-smtp): Only bind * mail/smtpmail.el (smtpmail-via-smtp): Only bind
`coding-system-for-*' around the process open call to avoid `coding-system-for-*' around the process open call to avoid
auth-source side effects. auth-source side effects.
(smtpmail-try-auth-methods): Expand the secret password.
2011-08-21 Chong Yidong <cyd@stupidchicken.com> 2011-08-21 Chong Yidong <cyd@stupidchicken.com>
......
...@@ -505,6 +505,8 @@ The list is in preference order.") ...@@ -505,6 +505,8 @@ The list is in preference order.")
(save-function (and ask-for-password (save-function (and ask-for-password
(plist-get auth-info :save-function))) (plist-get auth-info :save-function)))
ret) ret)
(when (functionp password)
(setq password (funcall password)))
(when (and user (when (and user
(not password)) (not password))
;; The user has stored the user name, but not the password, so ;; The user has stored the user name, but not the password, so
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment