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

This commit is contained in:
Lars Ingebrigtsen 2014-02-07 03:06:44 +00:00 committed by Katsumi Yamaoka
parent a60a2b6db2
commit 5c7e844276
2 changed files with 7 additions and 1 deletions

View file

@ -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

View file

@ -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)))