2001-09-16 Katsuhiro Hermit Endo <hermit@koka-in.org>

	* gnus-spec.el (gnus-parse-complex-format): Don't fold search
	case.  (Thanks to Daiki Ueno <ueno@unixuser.org>.)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a846b9e..809c191 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-09-16  Katsuhiro Hermit Endo  <hermit@koka-in.org>
+
+       * gnus-spec.el (gnus-parse-complex-format): Don't fold search
+       case.  (Thanks to Daiki Ueno <ueno@unixuser.org>.)
+
 2001-09-18  Simon Josefsson  <jas@extundo.com>
 
        * gnus-spec.el (gnus-correct-pad-form): Remove until papers are

diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el
index 4c0a87b..f493e9e 100644 (file)
--- a/lisp/gnus-spec.el
+++ b/lisp/gnus-spec.el
@@ -388,8 +388,9 @@
     (insert "\")")
     ;; Convert point position commands.
     (goto-char (point-min))
-    (while (re-search-forward "%\\([-0-9]+\\)?C" nil t)
-      (replace-match "\"(point)\"" t t))
+    (let ((case-fold-search nil))
+      (while (re-search-forward "%\\([-0-9]+\\)?C" nil t)
+       (replace-match "\"(point)\"" t t)))
     ;; Convert TAB commands.
     (goto-char (point-min))
     (while (re-search-forward "%\\([-0-9]+\\)=" nil t)