From: Lars Magne Ingebrigtsen <larsi@stories.gnus.org>
Date: Mon, 26 Sep 2011 22:15:54 +0000 (+0200)
Subject: Further fix up member-ignore-case.
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=28af244390cc2319f54ca8d1268e58621cfcca88

Further fix up member-ignore-case.
---

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))