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

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/03/02 02:19:30

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

Log message:
        (rmail-reply): Use rmail-apply-in-message so that this function has
        access to all the headers, not just the visible ones.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15416&r2=1.15417
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail.el?cvsroot=emacs&r1=1.516&r2=1.517

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15416
retrieving revision 1.15417
diff -u -b -r1.15416 -r1.15417
--- ChangeLog   1 Mar 2009 19:20:53 -0000       1.15416
+++ ChangeLog   2 Mar 2009 02:19:24 -0000       1.15417
@@ -1,3 +1,8 @@
+2009-03-02  Glenn Morris  <address@hidden>
+
+       * 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.
+
 2009-03-01  Chong Yidong  <address@hidden>
 
        * abbrev.el (clear-abbrev-table): Always return nil (Bug#2515).

Index: mail/rmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.516
retrieving revision 1.517
diff -u -b -r1.516 -r1.517
--- mail/rmail.el       1 Mar 2009 00:56:20 -0000       1.516
+++ mail/rmail.el       2 Mar 2009 02:19:30 -0000       1.517
@@ -3300,20 +3300,11 @@
   (let (from reply-to cc subject date to message-id references
             resent-to resent-cc resent-reply-to
             (msgnum rmail-current-message))
-    (save-excursion
-      (save-restriction
-       (widen)
-       (if (rmail-buffers-swapped-p)
-           (narrow-to-region
-            (goto-char (point-min))
-            (search-forward "\n\n" nil 'move))
-         (goto-char (rmail-msgbeg rmail-current-message))
-         (forward-line 1)
-         (narrow-to-region
-          (point)
-          (search-forward "\n\n"
-                          (rmail-msgend rmail-current-message)
-                          'move)))
+    (rmail-apply-in-message
+     rmail-current-message
+     (lambda ()
+       (search-forward "\n\n" nil 'move)
+       (narrow-to-region (point-min) (point))
        (setq from (mail-fetch-field "from")
              reply-to (or (mail-fetch-field "mail-reply-to" nil t)
                           (mail-fetch-field "reply-to" nil t)
@@ -3333,12 +3324,11 @@
              )
        (unless just-sender
          (if (mail-fetch-field "mail-followup-to" nil t)
-             ;; If this header field is present, use it instead of
-             ;; the To and CC fields.
+            ;; If this header field is present, use it instead of the
+            ;; To and CC fields.
              (setq to (mail-fetch-field "mail-followup-to" nil t))
            (setq cc (or (mail-fetch-field "cc" nil t) "")
                  to (or (mail-fetch-field "to" nil t) ""))))))
-
     ;; Merge the resent-to and resent-cc into the to and cc.
     ;; Bug#512.  It's inappropriate to reply to these addresses.
 ;;;    (if (and resent-to (not (equal resent-to "")))