diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-21 14:18:19 +0100 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-21 14:18:19 +0100 |
commit | 1fefb15aa8ef1de3e78e55af0395bc543bb8018f (patch) | |
tree | 49b2197ee3b9facf1f6d6ecbfa750145128db164 /lisp/gnus/message.el | |
parent | 1228ec3e1d7657c9eb50184719410f37ed0eb750 (diff) | |
download | emacs-1fefb15aa8ef1de3e78e55af0395bc543bb8018f.tar.gz |
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).
Diffstat (limited to 'lisp/gnus/message.el')
-rw-r--r-- | lisp/gnus/message.el | 5 |
1 files changed, 4 insertions, 1 deletions
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) |