From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 7 Feb 2014 00:13:55 +0000 (-0800)
Subject: Address parsing fixup
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=3473191dc8a1fe61f874555a230284a7210f0442

Address parsing fixup

* ietf-drums.el (ietf-drums-parse-address): Don't bug out when called
with an empty string.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 06f9e27c0..e6f22e457 100644
--- a/lisp/ChangeLog
+++ b/lisp/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/ietf-drums.el b/lisp/ietf-drums.el
index d46f2881e..112136892 100644
--- a/lisp/ietf-drums.el
+++ b/lisp/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)))