(password-cache-add): Declare as function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 68c2051c89908972d834ed0f4581c5529dfb1dc3..6c23b2155300adba7e60bd0413d5680d0894e621 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-02-14  Glenn Morris  <rgm@gnu.org>
+
+       * mail/smtpmail.el (password-cache-add): Declare as function.
+
 2008-02-14  Justus Piater <Justus-bulk@Piater.name>  (tiny change)
 
        * mail/smtpmail.el: Use password-cache.

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 0afb8ce86301f5b92989c0028797461d825e5b2f..abcf51b44ed3d3d356723863f61cd553ad3c72e1 100644 (file)
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -533,6 +533,9 @@ This is relative to `smtpmail-queue-dir'.")
                 (list "--x509keyfile" cred-key "--x509certfile" cred-cert)))))
        (starttls-open-stream "SMTP" process-buffer host port)))))
 
+;; password-read autoloads password-cache.
+(declare-function password-cache-add "password-cache" (key password))
+
 (defun smtpmail-try-auth-methods (process supported-extensions host port)
   (let* ((mechs (cdr-safe (assoc 'auth supported-extensions)))
         (mech (car (smtpmail-intersection smtpmail-auth-supported mechs)))