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 /lisp/mail/rmailedit.el | |
| parent | a98656c89940f475eda193775c9db2fc41482b39 (diff) | |
(rmail-edit-diff-headers): Delete spurious reference to OLD.
Diffstat (limited to 'lisp/mail/rmailedit.el')
| -rw-r--r-- | lisp/mail/rmailedit.el | 6 |
1 files changed, 3 insertions, 3 deletions
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. |