(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 d0e16091a9f9623fcabb0318564cffde469d89bd..865e71523d641879b1959466d93cfd5f8bbe7ad4 100644 (file)
--- a/lisp/mail/ChangeLog
+++ b/lisp/mail/ChangeLog
@@ -1,5 +1,11 @@
 2006-01-19  Henrik Enberg  <enberg@printf.se>
 
+       * 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 2ba49a25bb7eddf7f422fdc18a9ecf4bdcab834d..8a6e4b57473b92272a802c870fdf195f98de7d75 100644 (file)
--- 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