Signed-off-by: Julien Danjou <julien@danjou.info>
+2010-12-10 Julien Danjou <julien@danjou.info>
+
+ * message.el (message-bogus-recipient-p): Set address to "" if nil.
+
2010-12-10 Andrew Cohen <cohen@andy.bu.edu>
* nnir.el (nnir-request-expire-articles): Ignore expiry except for
;; FIXME: How about "foo@subdomain", when the MTA adds ".domain.tld"?
(let (found)
(mapc (lambda (address)
- (setq address (cadr address))
+ (setq address (or (cadr address) ""))
(when
- (or (not
+ (or (string= "" address)
+ (not
(or
(not (string-match "@" address))
(string-match
"\\|")
message-bogus-addresses)))
(string-match re address))))
- (push address found)))
+ (push address found)))
;;
(mail-extract-address-components recipients t))
found))