Further fix up member-ignore-case.
authorLars Magne Ingebrigtsen <larsi@stories.gnus.org>
Mon, 26 Sep 2011 22:15:54 +0000 (00:15 +0200)
committerLars Magne Ingebrigtsen <larsi@stories.gnus.org>
Mon, 26 Sep 2011 22:15:54 +0000 (00:15 +0200)
lisp/gnus-xmas.el

index c350606..4449052 100644 (file)
@@ -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))