diff options
Diffstat (limited to 'lisp/gnus/message.el')
| -rw-r--r-- | lisp/gnus/message.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index d5a620b3b74..546f13af815 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -5736,7 +5736,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. |