Synch to No Gnus 200511012326.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0f193cd..32f15f0 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-score.el b/lisp/gnus-score.el
index ae1a689..4e114bd 100644 (file)
--- a/lisp/gnus-score.el
+++ b/lisp/gnus-score.el
@@ -140,7 +140,7 @@ If this variable is nil, no score file entries will be expired."
                 number))
 
 (defcustom gnus-update-score-entry-dates t
-  "*In non-nil, update matching score entry dates.
+  "*If non-nil, update matching score entry dates.
 If this variable is nil, then score entries that provide matches
 will be expired along with non-matching score entries."
   :group 'gnus-score-expire
@@ -179,7 +179,7 @@ It is called with one parameter -- the score to be decayed."
 It can be:
 
  * A string
-   This file file will be used as the home score file.
+   This file will be used as the home score file.
 
  * A function
    The result of this function will be used as the home score file.
@@ -190,7 +190,7 @@ It can be:
    The elements in this list can be:
 
    * `(regexp file-name ...)'
-     If the `regexp' matches the group name, the first `file-name' will
+     If the `regexp' matches the group name, the first `file-name'
      will be used as the home score file.  (Multiple filenames are
      allowed so that one may use gnus-score-file-single-match-alist to
      set this variable.)

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 30b2f75..2c3b0bd 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1130,6 +1130,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)
@@ -3841,7 +3852,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

diff --git a/texi/ChangeLog b/texi/ChangeLog
index 9b12503..939c0d9 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,9 @@
+2005-11-01  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus.texi (Group Parameters): Mention new varable
+       gnus-parameters-case-fold-search.
+       (Home Score File): Addition.
+
 2005-10-29  Jari Aalto  <jari.aalto@cante.net>
 
        * gnus.texi (Sorting the Summary Buffer):

diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi
index 23c1fcc..ccc5dd4 100644 (file)
--- a/texi/gnus-ja.texi
+++ b/texi/gnus-ja.texi
@@ -3080,6 +3080,18 @@ nntp+news.gnus.org:gmane.text.docbook.apps
 \e$BJ8;zNs$NCM$O!"\e(B@code{to-group} \e$B$NNc$,<($9$h$&$K!"@55,I=8=$K$h$kCV$-49$($r\e(B
 \e$B<u$1$k$3$H$,$"$j$^$9!#\e(B
 
+@vindex gnus-parameters-case-fold-search
+\e$B%0%k!<%WL>$H\e(B @code{gnus-parameters} \e$B$G;XDj$5$l$?$3$l$i$N@55,I=8=$N0l$D$r\e(B
+\e$BHf3S$9$k$H$-$KBgJ8;z$H>.J8;z$r6hJL$9$k$+$I$&$+$O!"%G%#%U%)%k%H$G$O$=$NHf\e(B
+\e$B3S$r9T$J$&;~E@$G$N\e(B @code{case-fold-search} \e$B$NCM$K0MB8$7$^$9!#0lHLE*\e(B
+\e$B$K\e(B @code{case-fold-search} \e$B$NCM$O\e(B @code{t} \e$B$G!"$=$l$ONc$(\e(B
+\e$B$P\e(B @code{("INBOX\\.FOO" (total-expire . t))} \e$B$H$$$&MWAG\e(B
+\e$B$,!"\e(B@samp{INBOX.FOO} \e$B%0%k!<%W$H\e(B @samp{INBOX.foo} \e$B%0%k!<%W$NN>J}$KE,MQ$5\e(B
+\e$B$l$k$3$H$r0UL#$7$^$9!#$3$l$i$N@55,I=8=$,>o$KBgJ8;z$H>.J8;z$r6hJL$9$k$h$&\e(B
+\e$B$K$7$?$$>l9g$O!"\e(B@code{gnus-parameters-case-fold-search} \e$BJQ?t$NCM\e(B
+\e$B$r\e(B @code{nil} \e$B$K@_Dj$7$F2<$5$$!#$"$k$$$O!"$=$l$i$,>o$KBgJ8;z$H>.J8;z$r6h\e(B
+\e$BJL$7$J$$$h$&$K$7$?$$$J$i!"$=$l$r\e(B @code{t} \e$B$K@_Dj$7$F2<$5$$!#\e(B
+
 @node Listing Groups
 @section \e$B%0%k!<%W$N0lMwI=<(\e(B
 @cindex group listing

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 0f9e8ba..f175f75 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -3110,6 +3110,19 @@ example:
 String value of parameters will be subjected to regexp substitution, as
 the @code{to-group} example shows.
 
+@vindex gnus-parameters-case-fold-search
+By default, whether comparing the group name and one of those regexps
+specified in @code{gnus-parameters} is done in a case-sensitive manner
+or a case-insensitive manner depends on the value of
+@code{case-fold-search} at the time when the comparison is done.  The
+value of @code{case-fold-search} is typically @code{t}; it means, for
+example, the element @code{("INBOX\\.FOO" (total-expire . t))} might be
+applied to both the @samp{INBOX.FOO} group and the @samp{INBOX.foo}
+group.  If you want to make those regexps always case-sensitive, set the
+value of the @code{gnus-parameters-case-fold-search} variable to
+@code{nil}.  Otherwise, set it to @code{t} if you want to compare them
+always in a case-insensitive manner.
+
 
 @node Listing Groups
 @section Listing Groups
@@ -20409,7 +20422,8 @@ group name, the @var{file-name} will be used as the home score file.
 
 @item
 A function.  If the function returns non-@code{nil}, the result will
-be used as the home score file.
+be used as the home score file.  The function will be called with the
+name of the group as the parameter.
 
 @item
 A string.  Use the string as the home score file.