From cbd95b9a415f814fcc3c36dfd7f52a2dd9679d8e Mon Sep 17 00:00:00 2001 From: =?utf8?q?Adam=20Sj=C3=B8gren?= Date: Tue, 27 Apr 2021 01:17:57 +0200 Subject: [PATCH] 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). --- lisp/gnus/gnus-msg.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) 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) -- 2.39.5