[Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/03/02 07:36:06

Modified files:
        lisp           : ChangeLog 
        lisp/mail      : rmail.el 

Log message:
        (rmail-retry-failure): Use rmail-get-header rather than a magical
        save-excursion/restriction combination that does nothing.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15419&r2=1.15420
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail.el?cvsroot=emacs&r1=1.518&r2=1.519

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15419
retrieving revision 1.15420
diff -u -b -r1.15419 -r1.15420
--- ChangeLog   2 Mar 2009 07:23:57 -0000       1.15419
+++ ChangeLog   2 Mar 2009 07:36:03 -0000       1.15420
@@ -5,9 +5,11 @@
 
        * mail/rmail.el (rmail-reply): Use rmail-apply-in-message so that this
        function has access to all the headers, not just the visible ones.
+       Avoid extraneous leading whitespace in `References'.
        (rmail-dont-reply-to-names, rmail-default-dont-reply-to-names):
        Doc fixes.
-       (rmail-reply): Avoid extraneous leading whitespace.
+       (rmail-retry-failure): Use rmail-get-header rather than a magical
+       save-excursion/restriction combination that does nothing.
 
 2009-03-01  Chong Yidong  <address@hidden>
 

Index: mail/rmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.518
retrieving revision 1.519
diff -u -b -r1.518 -r1.519
--- mail/rmail.el       2 Mar 2009 07:23:59 -0000       1.518
+++ mail/rmail.el       2 Mar 2009 07:36:06 -0000       1.519
@@ -3640,12 +3640,7 @@
   (let ((rmail-this-buffer (current-buffer))
        (msgnum rmail-current-message)
        bounce-start bounce-end bounce-indent resending
-       ;; Fetch any content-type header in current message
-       ;; Must search thru the whole unpruned header.
-       (content-type
-        (save-excursion
-          (save-restriction
-            (mail-fetch-field "Content-Type") ))))
+       (content-type (rmail-get-header "Content-Type")))
     (save-excursion
       (goto-char (point-min))
       (let ((case-fold-search t))