[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/mail rmailedit.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] emacs/lisp/mail rmailedit.el |
Date: |
Sun, 15 Feb 2009 02:31:56 +0000 |
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.