diff options
author | Richard M. Stallman <rms@gnu.org> | 2009-02-15 02:32:03 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 2009-02-15 02:32:03 +0000 |
commit | 59a6d2495ae591fd9ad1e7c9c667cfc57e6efb78 (patch) | |
tree | 34cdff4e3eeff50f17380111d8b3c8098a0476cf | |
parent | a98656c89940f475eda193775c9db2fc41482b39 (diff) |
(rmail-edit-diff-headers): Delete spurious reference to OLD.
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/mail/rmailedit.el | 6 |
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. |