lisp/gnus/ietf-drums.el (ietf-drums-parse-address): Don't bug out when called with...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index df676146a7083592cc2bc389d6717ba8a8b14b83..a0ed0360971606329a61f5450be9cf9c6f174745 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2014-02-07  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * ietf-drums.el (ietf-drums-parse-address): Don't bug out when called
+       with an empty string.
+
 2014-02-06  Lars Ingebrigtsen  <larsi@gnus.org>
 
        * 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 d46f2881ee4ed8b3a032469346e86f71dcda57d2..11213689281ad3a63abf49c692e1a2c9738f7f85 100644 (file)
--- 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)))