From: Tomas Volf <~@wolfsden.cz>
Date: Tue, 3 Dec 2024 14:40:53 +0000 (+0100)
Subject: Actually remove the Mail-Followup-To header iff empty
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b05fa0edaca3f3dcb11c67bf4da3d7253b69e49c;p=emacs.git

Actually remove the Mail-Followup-To header iff empty

* lisp/gnus/message.el (message-send-mail): Pass a fixed string
instead of regexp to 'message-remove-header' (Bug#74658).

Copyright-paperwork-exempt: yes
(cherry picked from commit 0033ce9ef8eff2c8dfef644f2f110bc0edfa22aa)
---

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 766f58fdf4d..caacbb12023 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -4890,7 +4890,7 @@ If you always want Gnus to send messages in one piece, set
 		 message-required-mail-headers))
 	;; otherwise, delete the MFT header if the field is empty
 	(when (equal "" (mail-fetch-field "mail-followup-to"))
-	  (message-remove-header "^Mail-Followup-To:")))
+	  (message-remove-header "Mail-Followup-To")))
       ;; Insert some headers.
       (let ((message-deletable-headers
 	     (if news nil message-deletable-headers)))