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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7d7d253fc24b3e54119b49a9c30f7d20e54206d4..acc311bc9d210a2cf43a7e8d2f01d1fcc9268194 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-02-15  Richard M Stallman  <rms@gnu.org>
+
+       * mail/rmailedit.el (rmail-edit-diff-headers):
+       Delete spurious reference to OLD.
+
 2009-02-14  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * jit-lock.el (with-buffer-prepared-for-jit-lock): Swap the `let' and

diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el
index 40d5f02489497b7dac273a3cfb5b1eb00eb89daa..826e5da06e3a8835ab45f66149ef7dca12e9ac46 100644 (file)
--- a/lisp/mail/rmailedit.el
+++ b/lisp/mail/rmailedit.el
@@ -284,9 +284,9 @@ where OLD is a element of OLD-HEADERS and NEW is an element of NEW-HEADERS."
     ;; 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.