diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2011-08-21 22:10:29 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2011-08-21 22:10:29 +0200 |
| commit | e7f2c178da01a77d782aedae40f5578a48ddedba (patch) | |
| tree | 91d157c9479f3915b4a26f613f062c32cd08e6b0 /lisp/mail/smtpmail.el | |
| parent | c65c96228e787f20a7a0fb35657517931d881df5 (diff) | |
| download | emacs-e7f2c178da01a77d782aedae40f5578a48ddedba.tar.gz | |
(smtpmail-try-auth-methods): Expand the secret password.
Diffstat (limited to 'lisp/mail/smtpmail.el')
| -rw-r--r-- | lisp/mail/smtpmail.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 381af3b963a..f905eea8405 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -505,6 +505,8 @@ The list is in preference order.") (save-function (and ask-for-password (plist-get auth-info :save-function))) ret) + (when (functionp password) + (setq password (funcall password))) (when (and user (not password)) ;; The user has stored the user name, but not the password, so |