[Emacs-diffs] trunk r116293: lisp/gnus/ietf-drums.el (ietf-drums-parse-address): Don't bug out when called with an empty string

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 116293
revision-id: address@hidden
parent: address@hidden
author: Lars Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Fri 2014-02-07 03:06:44 +0000
message:
  lisp/gnus/ietf-drums.el (ietf-drums-parse-address): Don't bug out when called 
with an empty string
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/ietf-drums.el        
ietfdrums.el-20091113204419-o5vbwnq5f7feedwu-1964

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2014-02-06 05:43:50 +0000
+++ b/lisp/gnus/ChangeLog       2014-02-07 03:06:44 +0000
@@ -1,3 +1,8 @@
+2014-02-07  Lars Ingebrigtsen  <address@hidden>
+
+       * ietf-drums.el (ietf-drums-parse-address): Don't bug out when called
+       with an empty string.
+
 2014-02-06  Lars Ingebrigtsen  <address@hidden>
 
        * gnus-msg.el (gnus-summary-cancel-article): `user-mail-address' is

=== modified file 'lisp/gnus/ietf-drums.el'
--- a/lisp/gnus/ietf-drums.el   2014-01-01 07:43:34 +0000
+++ b/lisp/gnus/ietf-drums.el   2014-02-07 03:06:44 +0000
@@ -214,7 +214,8 @@
                (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)))