2001-09-15 Michael Welsh Duggan <md5i@cs.cmu.edu>

	* gnus-spec.el (gnus-parse-format): Don't treat %c as %C.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f02ceac..5adb570 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-09-15  Michael Welsh Duggan <md5i@cs.cmu.edu>
+
+       * gnus-spec.el (gnus-parse-format): Don't treat %c as %C.
+
 2001-09-13  Martin Kretzschmar  <Martin.Kretzschmar@inf.tu-dresden.de>
 
        * gnus-spec.el (gnus-correct-substring): Still stopped one

diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el
index a2a12be..4682e9b 100644 (file)
--- a/lisp/gnus-spec.el
+++ b/lisp/gnus-spec.el
@@ -373,12 +373,13 @@ characters when given a pad value."
   ;; the text between them will have the mouse-face text property.
   ;; If the FORMAT string contains the specifiers %[ and %], the text between
   ;; them will have the balloon-help text property.
-  (if (string-match
+  (let ((case-fold-search nil))
+    (if (string-match
        "\\`\\(.*\\)%[0-9]?[{(«]\\(.*\\)%[0-9]?[»})]\\(.*\n?\\)\\'"
        format)
       (gnus-parse-complex-format format spec-alist)
-    ;; This is a simple format.
-    (gnus-parse-simple-format format spec-alist insert)))
+      ;; This is a simple format.
+      (gnus-parse-simple-format format spec-alist insert))))
 
 (defun gnus-parse-complex-format (format spec-alist)
   (save-excursion