Mercurial > hg > xemacs-beta

diff lisp/gnus/gnus-start.el @ 142:1856695b1fa9 r20-2b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b5
author cvs
date Mon, 13 Aug 2007 09:33:18 +0200
parents d2f30a177268
children 25f70ba0133c
line wrap: on
line diff
--- a/lisp/gnus/gnus-start.el	Mon Aug 13 09:32:45 2007 +0200
+++ b/lisp/gnus/gnus-start.el	Mon Aug 13 09:33:18 2007 +0200
@@ -861,7 +861,8 @@
 
     ;; See whether we need to read the description file.
     (when (and (boundp 'gnus-group-line-format)
-	       (string-match "%[-,0-9]*D" gnus-group-line-format)
+	       (let ((case-fold-search nil))
+		 (string-match "%[-,0-9]*D" gnus-group-line-format))
 	       (not gnus-description-hashtb)
 	       (not dont-connect)
 	       gnus-read-active-file)