From 3473191dc8a1fe61f874555a230284a7210f0442 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 6 Feb 2014 16:13:55 -0800 Subject: [PATCH] Address parsing fixup * ietf-drums.el (ietf-drums-parse-address): Don't bug out when called with an empty string. --- lisp/ChangeLog | 5 +++++ lisp/ietf-drums.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * 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/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))) -- 2.25.1