diff options
Diffstat (limited to 'lisp/gnus/message.el')
| -rw-r--r-- | lisp/gnus/message.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index a57e290f26f..d25603f039c 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -5635,7 +5635,10 @@ subscribed address (and not the additional To and Cc header contents)." (dolist (rhs (mm-delete-duplicates (mapcar (lambda (rhs) (or (cadr (split-string rhs "@")) "")) - (mapcar 'downcase + (mapcar (lambda (domain) + (if domain + (downcase domain) + "")) (mapcar 'cadr (mail-extract-address-components field t)))))) |