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 766f58fdf4d053ad3b57fa24a347991d58eea17d..caacbb12023a747fa53540a8dbc066f7c72064b7 100644 (file)
--- 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)))