From 5468e915c342bcc54b4aa87f69742ed61587a21c Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 4 Oct 2010 18:51:00 +0200 Subject: [PATCH 1/1] Don't bug out on addresses without @ signs. --- lisp/ChangeLog | 5 +++++ lisp/message.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f4ca1118f..f87f29172 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-10-04 Lars Magne Ingebrigtsen + + * message.el (message-idna-to-ascii-rhs-1): Don't bug out on addresses + without @ signs. + 2010-10-04 Michael Welsh Duggan (tiny change) * nnir.el (nnir-run-imap): Remove spurious space in search string. diff --git a/lisp/message.el b/lisp/message.el index 7c8c07e19..860e70ccb 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -5780,7 +5780,9 @@ subscribed address (and not the additional To and Cc header contents)." (mapcar (lambda (rhs) (or (cadr (split-string rhs "@")) "")) (mapcar 'downcase (mapcar - 'cadr + (lambda (elem) + (or (cadr elem) + "")) (mail-extract-address-components field t)))))) ;; Note that `rhs' will be "" if the address does not have ;; the domain part, i.e., if it is a local user's address. -- 2.25.1