mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

2000-10-07 15:42:59 ShengHuo ZHU <zsh@cs.rochester.edu>

Browse Source 
* gnus-logic.el (gnus-advanced-string): Use "" if nil.
This commit is contained in:
Dave Love 2000-11-06 23:12:06 +00:00
parent 6a584a182c
commit 8b84c4d38e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/gnus/gnus-logic.el
View File

@ -3,6 +3,7 @@
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Maintainer: bugs@gnus.org
;; Keywords: news
;; This file is part of GNU Emacs.
@ -145,7 +146,7 @@
(let* ((type (or type 's))
(case-fold-search (not (eq (downcase (symbol-name type))
(symbol-name type))))
(header (aref gnus-advanced-headers index)))
(header (or (aref gnus-advanced-headers index) "")))
(cond
((memq type '(r R regexp Regexp))
(string-match match header))