From: Adam Sjøgren <asjo@koldfront.dk>
Date: Mon, 26 Apr 2021 23:17:57 +0000 (+0200)
Subject: Ensure that we get an X-Draft-From headers
X-Git-Tag: emacs-28.0.90~2702
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cbd95b9a415f814fcc3c36dfd7f52a2dd9679d8e;p=emacs.git

Ensure that we get an X-Draft-From headers

* lisp/gnus/gnus-msg.el (gnus-setup-message): Ensure that we get an
X-Draft-From headers (bug#48049).
---

diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index f1181d40910..bac987e2f00 100644
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -415,11 +415,12 @@ only affect the Gcc copy, but not the original message."
 			     gnus-article-reply)))
 	   (,oarticle gnus-article-reply)
 	   (,yanked gnus-article-yanked-articles)
-	   (,group (when gnus-article-reply
-		     (or (nnselect-article-group
-			  (or (car-safe gnus-article-reply)
-			      gnus-article-reply))
-			 gnus-newsgroup-name)))
+           (,group (if gnus-article-reply
+		       (or (nnselect-article-group
+			    (or (car-safe gnus-article-reply)
+			        gnus-article-reply))
+                           gnus-newsgroup-name)
+                     gnus-newsgroup-name))
 	   (message-header-setup-hook
 	    (copy-sequence message-header-setup-hook))
 	   (mbl mml-buffer-list)