[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 75af25c 1/2: Fix alternative-email-as-from with emp
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 75af25c 1/2: Fix alternative-email-as-from with empty To headers in Message |
Date: |
Tue, 9 Jul 2019 13:41:17 -0400 (EDT) |
branch: master
commit 75af25cba01adbc7ea98d933a1bc7a8b5ffec7f1
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Fix alternative-email-as-from with empty To headers in Message
* lisp/gnus/message.el (message-use-alternative-email-as-from):
Don't add a "," at the start of the address if the To header
doesn't exist (bug#34293).
---
lisp/gnus/message.el | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index fbe8b45..727bbab 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -8108,7 +8108,13 @@ From headers in the original article."
(emails
(message-tokenize-header
(mail-strip-quoted-names
- (mapconcat 'message-fetch-reply-field fields ","))))
+ (mapconcat
+ #'identity
+ (cl-loop for field in fields
+ for value = (message-fetch-reply-field field)
+ when value
+ collect value)
+ ","))))
(email
(cond ((functionp message-alternative-emails)
(car (cl-remove-if-not message-alternative-emails emails)))