Mercurial > emacs

diff lisp/mail/rmailedit.el @ 102046:9b33e73e70e3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-edit-diff-headers): Delete spurious reference to OLD.
author Richard M. Stallman <rms@gnu.org>
date Sun, 15 Feb 2009 02:31:55 +0000
parents a92cde59fabc
children f93f5035af02
line wrap: on
line diff
--- a/lisp/mail/rmailedit.el	Sun Feb 15 00:34:20 2009 +0000
+++ b/lisp/mail/rmailedit.el	Sun Feb 15 02:31:55 2009 +0000
@@ -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.