diff options
Diffstat (limited to 'lisp/mail/rmail.el')
| -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. |