From: yamaoka <yamaoka>
Date: Tue, 1 Nov 2005 23:26:51 +0000 (+0000)
Subject: Synch to No Gnus 200511012326.
X-Git-Tag: t-gnus-6_17_4-quimby-~263
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=30dfc41d11c147fa87fdbbc50dbcf3fb7a06c3b8;p=elisp%2Fgnus.git-

Synch to No Gnus 200511012326.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0f193cd..32f15f0 100644
--- 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
--- 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
--- 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
--- 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
--- a/texi/gnus-ja.texi
+++ b/texi/gnus-ja.texi
@@ -3080,6 +3080,18 @@ nntp+news.gnus.org:gmane.text.docbook.apps
 文字列の値は、@code{to-group} の例が示すように、正規表現による置き換えを
 受けることがあります。
 
+@vindex gnus-parameters-case-fold-search
+グループ名と @code{gnus-parameters} で指定されたこれらの正規表現の一つを
+比較するときに大文字と小文字を区別するかどうかは、ディフォルトではその比
+較を行なう時点での @code{case-fold-search} の値に依存します。一般的
+に @code{case-fold-search} の値は @code{t} で、それは例え
+ば @code{("INBOX\\.FOO" (total-expire . t))} という要素
+が、@samp{INBOX.FOO} グループと @samp{INBOX.foo} グループの両方に適用さ
+れることを意味します。これらの正規表現が常に大文字と小文字を区別するよう
+にしたい場合は、@code{gnus-parameters-case-fold-search} 変数の値
+を @code{nil} に設定して下さい。あるいは、それらが常に大文字と小文字を区
+別しないようにしたいなら、それを @code{t} に設定して下さい。
+
 @node Listing Groups
 @section グループの一覧表示
 @cindex group listing
diff --git a/texi/gnus.texi b/texi/gnus.texi
index 0f9e8ba..f175f75 100644
--- 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.