procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix wrong-type-argument

Browse source 
* message.el (message-update-smtp-method-header): Only Use address
part of mail-extract-address-component.
This commit is contained in:
Philip Kaludercic 2021-12-23 00:38:28 +01:00
parent 28fff38eeb
commit b1cfdb3573
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/gnus/message.el
View file

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