From: Henrik Enberg Date: Thu, 19 Jan 2006 11:52:47 +0000 (+0000) Subject: (rmail-process-new-messages): Use X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=77674bce4909a1c19b0bca7aeef49de8a5d69e11;p=emacs.git (rmail-process-new-messages): Use rmail-header-get-header instead of mail-fetch-field. --- diff --git a/lisp/mail/ChangeLog b/lisp/mail/ChangeLog index d0e16091a9f..865e71523d6 100644 --- a/lisp/mail/ChangeLog +++ b/lisp/mail/ChangeLog @@ -1,5 +1,11 @@ 2006-01-19 Henrik Enberg + * rmailhdr.el (rmail-header-get-header): Rewrite to be a + convenience wrapper for mail-fetch-field. + + * rmail.el (rmail-process-new-messages): Use + rmail-header-get-header instead of mail-fetch-field. + * rmailout.el (rmail-output-read-file-name): Simplify. (rmail-output): Likewise. diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 2ba49a25bb7..8a6e4b57473 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -2043,7 +2043,7 @@ non-nil then do not show any progress messages." date (count-lines start end) (cadr (mail-extract-address-components - (mail-fetch-field "from"))) + (rmail-header-get-header "from"))) (rmail-header-get-header "subject"))) message-descriptor-list))))) ;; Add the new message data lists to the Rmail message descriptor