+2008-02-13 Bastien Guerry <bzg@altern.org>
+
+ * mail/rmail.el (rmail-header-name): New face.
+ (rmail-font-lock-keywords): Use rmail-header-name.
+
+ * mail/smtpmail.el: Use password-cache.
+
+ * mail/rmail-spam-filter.el (rsf-definitions-alist): Allow check
+ against X-Spam-Status header field.
+ (rmail-spam-filter): Also check X-Spam-Status header field.
+
2008-02-14 Mark A. Hershberger <mah@everybody.org>
* progmodes/flymake.el (flymake-allowed-file-name-masks): Add
(autoload 'netrc-parse "netrc")
(autoload 'netrc-machine "netrc")
(autoload 'netrc-get "netrc")
+(autoload 'password-read "password") ; for new emacsen: "password-cache"
;;;
(defgroup smtpmail nil
(netrc-get hostentry "password"))))
(smtpmail-find-credentials
smtpmail-auth-credentials host port)))
+ (prompt (when cred (format "SMTP password for %s:%s: "
+ (smtpmail-cred-server cred)
+ (smtpmail-cred-port cred))))
(passwd (when cred
(or (smtpmail-cred-passwd cred)
- (read-passwd
- (format "SMTP password for %s:%s: "
- (smtpmail-cred-server cred)
- (smtpmail-cred-port cred))))))
+ (password-read prompt prompt))))
ret)
(when (and cred mech)
(cond
(t
(error "Mechanism %s not implemented" mech)))
;; Remember the password.
- (when (and (not (stringp smtpmail-auth-credentials))
- (null (smtpmail-cred-passwd cred)))
- (setcar (cdr (cdr (cdr cred))) passwd)))))
+ (when (null (smtpmail-cred-passwd cred))
+ (password-cache-add prompt passwd)))))
(defun smtpmail-via-smtp (recipient smtpmail-text-buffer)
(let ((process nil)