mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(rmail-edit-diff-headers): Delete spurious reference to OLD.

Browse Source
This commit is contained in:
Richard M. Stallman 2009-02-15 02:32:03 +00:00
parent a98656c899
commit 59a6d2495a
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

6
lisp/mail/rmailedit.el
View File

@ -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.