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

2 files changed, 8 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7d7d253fc24..acc311bc9d2 100644
--- 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 40d5f024894..826e5da06e3 100644
--- 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.