From: Philip Kaludercic <philipk@posteo.net>
Date: Wed, 22 Dec 2021 23:38:28 +0000 (+0100)
Subject: Fix wrong-type-argument
X-Git-Tag: emacs-29.0.90~3493
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b1cfdb3573facdceae3785478c62c2e2548564ec;p=emacs.git

Fix wrong-type-argument

* message.el (message-update-smtp-method-header): Only Use address
part of mail-extract-address-component.
---

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)