X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fmessage.el;h=860e70ccb0be562777841e63ddffdbec053fa8f2;hp=7c8c07e19a51841b83e2990e09367f25e9de72ad;hb=5468e915c342bcc54b4aa87f69742ed61587a21c;hpb=7d2141955565e59da5818166b22f66ddfdb194d2

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.