From: Lars Ingebrigtsen Date: Fri, 7 Feb 2014 03:06:44 +0000 (+0000) Subject: lisp/gnus/ietf-drums.el (ietf-drums-parse-address): Don't bug out when called with... X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~143 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5c7e844276ee2cba15467083e7262154f3162ca6;p=emacs.git lisp/gnus/ietf-drums.el (ietf-drums-parse-address): Don't bug out when called with an empty string --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index df676146a70..a0ed0360971 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2014-02-07 Lars Ingebrigtsen + + * ietf-drums.el (ietf-drums-parse-address): Don't bug out when called + with an empty string. + 2014-02-06 Lars Ingebrigtsen * gnus-msg.el (gnus-summary-cancel-article): `user-mail-address' is diff --git a/lisp/gnus/ietf-drums.el b/lisp/gnus/ietf-drums.el index d46f2881ee4..11213689281 100644 --- a/lisp/gnus/ietf-drums.el +++ b/lisp/gnus/ietf-drums.el @@ -214,7 +214,8 @@ backslash and doublequote.") (mapconcat 'identity (reverse display-name) " ")) (setq display-string (ietf-drums-get-comment string))) (if (not mailbox) - (when (string-match "@" display-string) + (when (and display-string + (string-match "@" display-string)) (cons (mapconcat 'identity (nreverse display-name) "") (ietf-drums-get-comment string)))