(gnus-parameters-case-fold-search): New variable.

(gnus-parameters-get-parameter): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d275ff1..41a5300 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2005-11-01  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus.el (gnus-parameters-case-fold-search): New variable.
+       (gnus-parameters-get-parameter): Use it.
+
+       * gnus-score.el (gnus-home-score-file): Doc fix.
+
+2005-11-01  Xavier Maillard  <zedek@gnu-rox.org>  (tiny change)
+
+       * gnus-score.el (gnus-update-score-entry-dates): Doc fix.
+
 2005-10-31  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * mm-util.el (mm-special-display-p): New function.

diff --git a/lisp/gnus.el b/lisp/gnus.el
index db782df..da186a8 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1100,6 +1100,17 @@ For example:
   :type '(repeat (cons regexp
                       (repeat sexp))))
 
+(defcustom gnus-parameters-case-fold-search 'default
+  "If it is t, ignore case of group names specified in `gnus-parameters'.
+If it is nil, don't ignore case.  If it is `default', which is for the
+backward compatibility, use the value of `case-fold-search'."
+  :version "22.1"
+  :group 'gnus-group-various
+  :type '(choice :format "%{%t%}:\n %[Value Menu%] %v"
+                (const :tag "Use `case-fold-search'" default)
+                (const nil)
+                (const t)))
+
 (defvar gnus-group-parameters-more nil)
 
 (defmacro gnus-define-group-parameter (param &rest rest)
@@ -3769,7 +3780,10 @@ You should probably use `gnus-find-method-for-group' instead."
 
 (defun gnus-parameters-get-parameter (group)
   "Return the group parameters for GROUP from `gnus-parameters'."
-  (let (params-list)
+  (let ((case-fold-search (if (eq gnus-parameters-case-fold-search 'default)
+                             case-fold-search
+                           gnus-parameters-case-fold-search))
+       params-list)
     (dolist (elem gnus-parameters)
       (when (string-match (car elem) group)
        (setq params-list