From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 15 Feb 2009 02:32:03 +0000 (+0000)
Subject: (rmail-edit-diff-headers): Delete spurious reference to OLD.
X-Git-Tag: emacs-pretest-23.0.91~204
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/59a6d2495ae591fd9ad1e7c9c667cfc57e6efb78

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7d7d253fc2..acc311bc9d 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 40d5f02489..826e5da06e 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.