[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 1fefb15aa8: Allow From to be part of message-hidden-headers
From: |
Lars Ingebrigtsen |
Subject: |
master 1fefb15aa8: Allow From to be part of message-hidden-headers |
Date: |
Fri, 21 Jan 2022 08:19:04 -0500 (EST) |
branch: master
commit 1fefb15aa8ef1de3e78e55af0395bc543bb8018f
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Allow From to be part of message-hidden-headers
* lisp/gnus/message.el (message-update-smtp-method-header): Don't
bug out if the From header is part of `message-hidden-headers'
(bug#52871).
---
lisp/gnus/message.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 3cd1b7eefe..2735c043b3 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -4357,7 +4357,10 @@ it is left unchanged."
(defun message-update-smtp-method-header ()
"Insert an X-Message-SMTP-Method header according to `message-server-alist'."
(unless (message-fetch-field "X-Message-SMTP-Method")
- (let ((from (cadr (mail-extract-address-components (message-fetch-field
"From"))))
+ (let ((from (cadr (mail-extract-address-components
+ (save-restriction
+ (widen)
+ (message-fetch-field "From")))))
method)
(catch 'exit
(dolist (server message-server-alist)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 1fefb15aa8: Allow From to be part of message-hidden-headers,
Lars Ingebrigtsen <=