From 28af244390cc2319f54ca8d1268e58621cfcca88 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Tue, 27 Sep 2011 00:15:54 +0200 Subject: [PATCH] Further fix up member-ignore-case. --- lisp/gnus-xmas.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el index c3506066a..444905253 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)) -- 2.25.1