diff options
author | Philip Kaludercic <philipk@posteo.net> | 2021-12-23 00:38:28 +0100 |
---|---|---|
committer | Philip Kaludercic <philipk@posteo.net> | 2021-12-23 00:38:34 +0100 |
commit | b1cfdb3573facdceae3785478c62c2e2548564ec (patch) | |
tree | 76b3c7ff80d7ff59eab8c56615392deaae541491 /lisp/gnus/message.el | |
parent | 28fff38eeb9e7641937bc3448d43c0a7d0eb6bbc (diff) | |
download | emacs-b1cfdb3573facdceae3785478c62c2e2548564ec.tar.gz |
Fix wrong-type-argument
* message.el (message-update-smtp-method-header): Only Use address
part of mail-extract-address-component.
Diffstat (limited to 'lisp/gnus/message.el')
-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 8c88ac8257c..c18560b164b 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -4356,7 +4356,7 @@ header." (defun message-update-smtp-method-header () "Check `message-server-alist' to insert a SMTP-Method header." (unless (message-fetch-field "X-Message-SMTP-Method") - (let ((from (mail-extract-address-components (message-fetch-field "From"))) + (let ((from (cadr (mail-extract-address-components (message-fetch-field "From")))) method) (catch 'exit (dolist (server message-server-alist) |