diff options
| author | Richard M. Stallman <rms@gnu.org> | 2009-02-15 02:31:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2009-02-15 02:31:55 +0000 |
| commit | 9bb66258790be19b9e54646b4b7534488c94eee1 (patch) | |
| tree | 86f10ff6b63241c0798e652233f4ee914e5349e5 /lisp/mail/rmailedit.el | |
| parent | e04708dbe3a8934c2cf4687abe9f1b28bf6d2287 (diff) | |
| download | emacs-9bb66258790be19b9e54646b4b7534488c94eee1.tar.gz | |
(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. |