[Emacs-diffs] emacs/lisp/mail rmailedit.el

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       09/02/15 02:31:56

Modified files:
        lisp/mail      : rmailedit.el 

Log message:
        (rmail-edit-diff-headers): Delete spurious reference to OLD.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmailedit.el?cvsroot=emacs&r1=1.51&r2=1.52

Patches:
Index: rmailedit.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/rmailedit.el,v
retrieving revision 1.51
retrieving revision 1.52
diff -u -b -r1.51 -r1.52
--- rmailedit.el        14 Feb 2009 04:00:08 -0000      1.51
+++ rmailedit.el        15 Feb 2009 02:31:55 -0000      1.52
@@ -284,9 +284,9 @@
     ;; Look at the new headers with no old counterpart.
     (dolist (new new-headers)
       (let ((prev (cadr (member new reverse-new))))
-       ;; Mark each one as an insertion.  Show the previous new header.
-       (unless old
-         (push (list prev new) inserted))))
+       ;; Mark each one as an insertion.
+       ;; Record the previous new header, to insert it after that.
+       (push (list prev new) inserted)))
     ;; It is crucial to return the insertions in buffer order
     ;; so that `rmail-edit-update-headers' can insert a field
     ;; after a new field.