* lisp/message.el (message-yank-original): When

[elisp/gnus.git-] / lisp / message.el

diff --git a/lisp/message.el b/lisp/message.el
index d8d8e15..2f9854f 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3343,8 +3343,9 @@ be added to the \"References\" field."
                             refs)
                ;; If the References field has been changed, we make it
                ;; visible in the header.
-               (mail-header-set-message-id message-reply-headers nil)
-               (mail-header-set-references message-reply-headers nil)
+               (when message-reply-headers
+                 (mail-header-set-message-id message-reply-headers nil)
+                 (mail-header-set-references message-reply-headers nil))
                (widen)
                (message-narrow-to-headers)
                (if (let ((case-fold-search t))