From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 29 Jun 2022 11:00:25 +0000 (+0200)
Subject: Ensure that In-Reply-To is saved in drafts in Message
X-Git-Tag: emacs-29.0.90~1447^2~1391
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=446d5b14a90e35cd0d67cd22592cde7a6d2891f9;p=emacs.git

Ensure that In-Reply-To is saved in drafts in Message

* lisp/gnus/message.el (message-hidden-headers): Hide In-Reply-To
now that we pre-generate it.
(message-setup-1): Pre-generate In-Reply-To so that it'll be saved
in drafts (bug#47639).
---

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 6973d8a86b2..48115a41655 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -1468,11 +1468,11 @@ candidates:
       (memq feature message-shoot-gnksa-feet)))
 
 (defcustom message-hidden-headers '("^References:" "^Face:" "^X-Face:"
-				    "^X-Draft-From:")
+				    "^X-Draft-From:" "^In-Reply-To:")
   "Regexp of headers to be hidden when composing new messages.
 This can also be a list of regexps to match headers.  Or a list
 starting with `not' and followed by regexps."
-  :version "22.1"
+  :version "29.1"
   :group 'message
   :link '(custom-manual "(message)Message Headers")
   :type '(choice
@@ -6881,13 +6881,14 @@ are not included."
     (or (bolp) (insert ?\n)))
   (insert (concat mail-header-separator "\n"))
   (forward-line -1)
-  ;; If a crash happens while replying, the auto-save file would *not* have a
-  ;; `References:' header if `message-generate-headers-first' was nil.
-  ;; Therefore, always generate it first.
+  ;; If a crash happens while replying, the auto-save file would *not*
+  ;; have a `References:' header if `message-generate-headers-first'
+  ;; was nil.  Therefore, always generate it first.  (And why not
+  ;; include the `In-Reply-To' header as well.)
   (let ((message-generate-headers-first
          (if (eq message-generate-headers-first t)
              t
-           (append message-generate-headers-first '(References)))))
+           (append message-generate-headers-first '(References In-Reply-To)))))
     (when (message-news-p)
       (when message-default-news-headers
         (insert message-default-news-headers)