diff options
| author | Tomas Volf | 2024-12-03 15:40:53 +0100 |
|---|---|---|
| committer | Robert Pluim | 2024-12-03 15:48:25 +0100 |
| commit | 0033ce9ef8eff2c8dfef644f2f110bc0edfa22aa (patch) | |
| tree | 46990e25ff77ef308c96f8d39bc90e279b3a6eb9 | |
| parent | fef05ba8f409738625167991e811c2ab50f5b047 (diff) | |
| download | emacs-0033ce9ef8eff2c8dfef644f2f110bc0edfa22aa.tar.gz emacs-0033ce9ef8eff2c8dfef644f2f110bc0edfa22aa.zip | |
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
| -rw-r--r-- | lisp/gnus/message.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index b49e3f9d9ca..b4c5a1e2436 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el | |||
| @@ -4900,7 +4900,7 @@ If you always want Gnus to send messages in one piece, set | |||
| 4900 | message-required-mail-headers)) | 4900 | message-required-mail-headers)) |
| 4901 | ;; otherwise, delete the MFT header if the field is empty | 4901 | ;; otherwise, delete the MFT header if the field is empty |
| 4902 | (when (equal "" (mail-fetch-field "mail-followup-to")) | 4902 | (when (equal "" (mail-fetch-field "mail-followup-to")) |
| 4903 | (message-remove-header "^Mail-Followup-To:"))) | 4903 | (message-remove-header "Mail-Followup-To"))) |
| 4904 | ;; Insert some headers. | 4904 | ;; Insert some headers. |
| 4905 | (let ((message-deletable-headers | 4905 | (let ((message-deletable-headers |
| 4906 | (if news nil message-deletable-headers))) | 4906 | (if news nil message-deletable-headers))) |