From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 21 Jan 2022 13:18:19 +0000 (+0100)
Subject: Allow From to be part of message-hidden-headers
X-Git-Tag: emacs-29.0.90~2877^2~15
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1fefb15aa8ef1de3e78e55af0395bc543bb8018f;p=emacs.git

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).
---

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 3cd1b7eefe8..2735c043b31 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)