[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master b1cfdb3: Fix wrong-type-argument
From: |
Philip Kaludercic |
Subject: |
master b1cfdb3: Fix wrong-type-argument |
Date: |
Wed, 22 Dec 2021 18:39:57 -0500 (EST) |
branch: master
commit b1cfdb3573facdceae3785478c62c2e2548564ec
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>
Fix wrong-type-argument
* message.el (message-update-smtp-method-header): Only Use address
part of mail-extract-address-component.
---
lisp/gnus/message.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 8c88ac8..c18560b 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master b1cfdb3: Fix wrong-type-argument,
Philip Kaludercic <=