projects
/
gnus
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
1097cc6
)
Further fix up member-ignore-case.
author
Lars Magne Ingebrigtsen
<larsi@stories.gnus.org>
Mon, 26 Sep 2011 22:15:54 +0000
(
00:15
+0200)
committer
Lars Magne Ingebrigtsen
<larsi@stories.gnus.org>
Mon, 26 Sep 2011 22:15:54 +0000
(
00:15
+0200)
lisp/gnus-xmas.el
patch
|
blob
|
history
diff --git
a/lisp/gnus-xmas.el
b/lisp/gnus-xmas.el
index
c350606
..
4449052
100644
(file)
--- a/
lisp/gnus-xmas.el
+++ b/
lisp/gnus-xmas.el
@@
-430,9
+430,8
@@
FRONT-ADVANCE and REAR-ADVANCE are ignored."
(unless (fboundp 'member-ignore-case)
(defun member-ignore-case (elt list)
(while (and list
- (not (and (stringp (car list))
- (eq t (compare-strings elt 0 nil (car list)
- 0 nil t)))))
+ (or (not (stringp (car list)))
+ (not (string= (downcase elt) (downcase (car list))))))
(setq list (cdr list)))
list))