[gnus git] branch master updated: n0-17-333-g28af244 =1= Further fix up member-ignore-case.
Lars Magne Ingebrigtsen <[email protected]>
| Newsgroups | gmane.emacs.gnus.cvs |
|---|---|
| Message-ID | <[email protected]> |
via 28af244390cc2319f54ca8d1268e58621cfcca88 (commit)
from 1097cc612b25ecfecfd662db7b7e1caed72f02cc (commit)
- Log -----------------------------------------------------------------
commit 28af244390cc2319f54ca8d1268e58621cfcca88
Author: Lars Magne Ingebrigtsen <[email protected]>
Date: Tue Sep 27 00:15:54 2011 +0200
Further fix up member-ignore-case.
diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index c350606..4449052 100644
--- 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))
-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.
Summary of changes:
lisp/gnus-xmas.el | 5 ++---
1 files changed, 2 insertions(+), 3 deletions(-)
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".
The branch, master has been updated
hooks/post-receive
--
Gnus Project