[Emacs-diffs] /srv/bzr/emacs/trunk r105523: (smtpmail-try-auth-methods): Expand the secret password.

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 105523
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Sun 2011-08-21 22:10:29 +0200
message:
  (smtpmail-try-auth-methods): Expand the secret password.
modified:
  lisp/ChangeLog
  lisp/mail/smtpmail.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-08-21 19:27:27 +0000
+++ b/lisp/ChangeLog    2011-08-21 20:10:29 +0000
@@ -3,6 +3,7 @@
        * mail/smtpmail.el (smtpmail-via-smtp): Only bind
        `coding-system-for-*' around the process open call to avoid
        auth-source side effects.
+       (smtpmail-try-auth-methods): Expand the secret password.
 
 2011-08-21  Chong Yidong  <address@hidden>
 

=== modified file 'lisp/mail/smtpmail.el'
--- a/lisp/mail/smtpmail.el     2011-08-21 19:27:27 +0000
+++ b/lisp/mail/smtpmail.el     2011-08-21 20:10:29 +0000
@@ -505,6 +505,8 @@
         (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