Mercurial > emacs
changeset 105158:bbb939ac799d
(rmail-reply): Don't try to add a References header when replying to
mail without References or Message-Id. (Bug#4525)
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 23 Sep 2009 06:20:23 +0000 |
| parents | 33cdbbd76097 |
| children | 4b9dd8a2de69 |
| files | lisp/ChangeLog lisp/mail/rmail.el |
| diffstat | 2 files changed, 11 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Sep 23 02:38:08 2009 +0000 +++ b/lisp/ChangeLog Wed Sep 23 06:20:23 2009 +0000 @@ -1,3 +1,8 @@ +2009-09-23 Glenn Morris <rgm@gnu.org> + + * mail/rmail.el (rmail-reply): Don't try to add a References header when + replying to mail without References or Message-Id. (Bug#4525) + 2009-09-23 Adrian Robert <Adrian.B.Robert@gmail.com> * term/ns-win.el (ns-reg-to-script): New variable.
--- a/lisp/mail/rmail.el Wed Sep 23 02:38:08 2009 +0000 +++ b/lisp/mail/rmail.el Wed Sep 23 06:20:23 2009 +0000 @@ -3537,10 +3537,12 @@ (aref rmail-msgref-vector msgnum)) rmail-answered-attr-index)) nil - (list (cons "References" (if references - (concat (mapconcat 'identity references " ") - " " message-id) - message-id)))))) + (if (or references message-id) + (list (cons "References" (if references + (concat + (mapconcat 'identity references " ") + " " message-id) + message-id))))))) (defun rmail-mark-message (buffer msgnum-list attribute) "Give BUFFER's message number in MSGNUM-LIST the attribute ATTRIBUTE.