projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
gnus-art.el (gnus-mime-buttonize-attachments-in-header): Improve criterion that finds...
[gnus]
/
lisp
/
ietf-drums.el
diff --git
a/lisp/ietf-drums.el
b/lisp/ietf-drums.el
index
ffcb6fa
..
1121368
100644
(file)
--- a/
lisp/ietf-drums.el
+++ b/
lisp/ietf-drums.el
@@
-1,7
+1,6
@@
;;; ietf-drums.el --- Functions for parsing RFC822bis headers
;;; ietf-drums.el --- Functions for parsing RFC822bis headers
-;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+;; Copyright (C) 1998-2014 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; This file is part of GNU Emacs.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; This file is part of GNU Emacs.
@@
-215,7
+214,8
@@
backslash and doublequote.")
(mapconcat 'identity (reverse display-name) " "))
(setq display-string (ietf-drums-get-comment string)))
(if (not mailbox)
(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)))
(cons
(mapconcat 'identity (nreverse display-name) "")
(ietf-drums-get-comment string)))
@@
-295,5
+295,4
@@
a list of address strings."
(provide 'ietf-drums)
(provide 'ietf-drums)
-;; arch-tag: 379a0191-dbae-4ca6-a0f5-d4202c209ef9
;;; ietf-drums.el ends here
;;; ietf-drums.el ends here