diff options
Diffstat (limited to 'lisp/gnus/ietf-drums.el')
-rw-r--r-- | lisp/gnus/ietf-drums.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/gnus/ietf-drums.el b/lisp/gnus/ietf-drums.el index ff2222a6075..e681ecfb3d6 100644 --- a/lisp/gnus/ietf-drums.el +++ b/lisp/gnus/ietf-drums.el @@ -1,6 +1,6 @@ ;;; ietf-drums.el --- Functions for parsing RFC822bis headers -;; Copyright (C) 1998-2013 Free Software Foundation, Inc. +;; Copyright (C) 1998-2015 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; This file is part of GNU Emacs. @@ -206,7 +206,6 @@ backslash and doublequote.") (1+ (point)) (progn (forward-sexp 1) (1- (point)))))))) (t - (message "Unknown symbol: %c" c) (forward-char 1)))) ;; If we found no display-name, then we look for comments. (if display-name @@ -214,7 +213,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))) |