From 4f02f0c98945fb41b116a8fb2302f16b21444a1c Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 23 Sep 2009 06:20:23 +0000 Subject: [PATCH] (rmail-reply): Don't try to add a References header when replying to mail without References or Message-Id. (Bug#4525) --- lisp/ChangeLog | 5 +++++ lisp/mail/rmail.el | 10 ++++++---- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ca6b63f7c87..a6f543e957e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-09-23 Glenn Morris + + * 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 * term/ns-win.el (ns-reg-to-script): New variable. diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 078a4518adf..41f8fc05cb1 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -3537,10 +3537,12 @@ use \\[mail-yank-original] to yank the original message into it." (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. -- 2.39.5