diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-09-23 06:20:23 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-09-23 06:20:23 +0000 |
| commit | 4f02f0c98945fb41b116a8fb2302f16b21444a1c (patch) | |
| tree | 0c58d25a488d6bd433c37cdf5f01544a90033511 /lisp/mail | |
| parent | e14f0a78d694fc00c8d1c53eb8877eb571f65e2e (diff) | |
| download | emacs-4f02f0c98945fb41b116a8fb2302f16b21444a1c.tar.gz emacs-4f02f0c98945fb41b116a8fb2302f16b21444a1c.tar.bz2 emacs-4f02f0c98945fb41b116a8fb2302f16b21444a1c.zip | |
(rmail-reply): Don't try to add a References header when replying to
mail without References or Message-Id. (Bug#4525)
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/rmail.el | 10 |
1 files changed, 6 insertions, 4 deletions
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. |