Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-646

Merge from gnus--rel--5.10

Patches applied:

 * gnus--rel--5.10  (patch 152-156)

   - Update from CVS: lisp/mml.el (mml-preview): Doc fix.
   - Update from CVS

2005-11-09  Katsumi Yamaoka  <yamaoka@jpl.org>

   * lisp/gnus/message.el (message-generate-headers): Downcase the argument
   given to message-check-element.

2005-11-01  Katsumi Yamaoka  <yamaoka@jpl.org>

   * lisp/gnus/gnus.el (gnus-parameters-case-fold-search): New variable.
   (gnus-parameters-get-parameter): Use it.

   * lisp/gnus/gnus-score.el (gnus-home-score-file): Doc fix.

2005-11-01  Xavier Maillard  <zedek@gnu-rox.org>  (tiny change)

   * lisp/gnus/gnus-score.el (gnus-update-score-entry-dates): Doc fix.

2005-10-31  Katsumi Yamaoka  <yamaoka@jpl.org>

   * lisp/gnus/mml.el (mml-preview): Doc fix.

2005-11-10  Katsumi Yamaoka  <yamaoka@jpl.org>

   * man/gnus.texi (XVarious): Fix description of gnus-use-toolbar; add
   new variable gnus-toolbar-thickness.

2005-11-08  Katsumi Yamaoka  <yamaoka@jpl.org>

   * man/gnus.texi (XVarious): Revert description of gnus-use-toolbar.

2005-11-07  Katsumi Yamaoka  <yamaoka@jpl.org>

   * man/gnus.texi (X-Face): Fix description.
   (XVarious): Remove gnus-xmas-logo-color-alist and
   gnus-xmas-logo-color-style; fix description of gnus-use-toolbar.

2005-11-01  Katsumi Yamaoka  <yamaoka@jpl.org>

   * man/gnus.texi (Group Parameters): Mention new varable
   gnus-parameters-case-fold-search.
   (Home Score File): Addition.

7 files changed, 95 insertions, 27 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 6c96e46333f..25851c07f7d 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,23 @@
+2005-11-09  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+        * message.el (message-generate-headers): Downcase the argument
+        given to message-check-element.
+
+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>
+
+        * mml.el (mml-preview): Doc fix.
+
 2005-10-27  Reiner Steib  <Reiner.Steib@gmx.de>
 
         * flow-fill.el (fill-flowed-encode-tests): Restore trailing
diff --git a/lisp/gnus/gnus-score.el b/lisp/gnus/gnus-score.el
index 2858ecb8343..f9edda4ec64 100644
--- a/lisp/gnus/gnus-score.el
+++ b/lisp/gnus/gnus-score.el
@@ -142,7 +142,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
@@ -175,7 +175,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.
@@ -186,7 +186,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/gnus.el b/lisp/gnus/gnus.el
index 5d35137aec6..578fc49395c 100644
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -1104,6 +1104,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)
@@ -3722,7 +3733,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/lisp/gnus/message.el b/lisp/gnus/message.el
index 6b1cd32d03d..019b5bd4f07 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -5077,7 +5077,8 @@ Headers already prepared in the buffer are not modified."
                   ;; The element is a symbol.  We insert the value
                   ;; of this symbol, if any.
                   (symbol-value header))
-                 ((not (message-check-element header))
+                 ((not (message-check-element
+                        (intern (downcase (symbol-name header)))))
                   ;; We couldn't generate a value for this header,
                   ;; so we just ask the user.
                   (read-from-minibuffer
diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el
index 3024959ae7f..8b00313fb92 100644
--- a/lisp/gnus/mml.el
+++ b/lisp/gnus/mml.el
@@ -1102,7 +1102,7 @@ Should be adopted if code in `message-send-mail' is changed."
 
 (defun mml-preview (&optional raw)
   "Display current buffer with Gnus, in a new buffer.
-If RAW, don't highlight the article."
+If RAW, display a raw encoded MIME message."
   (interactive "P")
   (save-excursion
     (let* ((buf (current-buffer))
diff --git a/man/ChangeLog b/man/ChangeLog
index 834430260c1..c01b05112f4 100644
--- a/man/ChangeLog
+++ b/man/ChangeLog
@@ -1,3 +1,24 @@
+2005-11-10  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+        * gnus.texi (XVarious): Fix description of gnus-use-toolbar; add
+        new variable gnus-toolbar-thickness.
+
+2005-11-08  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+        * gnus.texi (XVarious): Revert description of gnus-use-toolbar.
+
+2005-11-07  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+        * gnus.texi (X-Face): Fix description.
+        (XVarious): Remove gnus-xmas-logo-color-alist and
+        gnus-xmas-logo-color-style; fix description of gnus-use-toolbar.
+
+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-11-09  Luc Teirlinck  <teirllm@auburn.edu>
 
         * killing.texi (CUA Bindings): Add @section.
diff --git a/man/gnus.texi b/man/gnus.texi
index cbd8554c382..a588dd78974 100644
--- a/man/gnus.texi
+++ b/man/gnus.texi
@@ -3060,6 +3060,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
@@ -19755,7 +19768,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.
@@ -21967,11 +21981,11 @@ function, this function will be called with the face as the argument.
 If the @code{gnus-article-x-face-too-ugly} (which is a regexp) matches
 the @code{From} header, the face will not be shown.
 
-The default action under Emacs 20 is to fork off the @code{display}
-program@footnote{@code{display} is from the ImageMagick package.  For
-the @code{uncompface} and @code{icontopbm} programs look for a package
-like @code{compface} or @code{faces-xface} on a GNU/Linux system.}  to
-view the face.
+The default action under Emacs without image support is to fork off the
+@code{display} program@footnote{@code{display} is from the ImageMagick
+package.  For the @code{uncompface} and @code{icontopbm} programs look
+for a package like @code{compface} or @code{faces-xface} on a GNU/Linux
+system.} to view the face.
 
 Under XEmacs or Emacs 21+ with suitable image support, the default
 action is to display the face before the @code{From} header.  (It's
@@ -22217,18 +22231,6 @@ This is where Gnus will look for pictures.  Gnus will normally
 auto-detect this directory, but you may set it manually if you have an
 unusual directory structure.
 
-@item gnus-xmas-logo-color-alist
-@vindex gnus-xmas-logo-color-alist
-This is an alist where the key is a type symbol and the values are the
-foreground and background color of the splash page glyph.
-
-@item gnus-xmas-logo-color-style
-@vindex gnus-xmas-logo-color-style
-This is the key used to look up the color in the alist described above.
-Valid values include @code{flame}, @code{pine}, @code{moss},
-@code{irish}, @code{sky}, @code{tin}, @code{velvet}, @code{grape},
-@code{labia}, @code{berry}, @code{neutral}, and @code{september}.
-
 @item gnus-xmas-modeline-glyph
 @vindex gnus-xmas-modeline-glyph
 A glyph displayed in all Gnus mode lines.  It is a tiny gnu head by
@@ -22242,9 +22244,19 @@ default.
 
 @item gnus-use-toolbar
 @vindex gnus-use-toolbar
-If @code{nil}, don't display toolbars.  If non-@code{nil}, it should be
-one of @code{default-toolbar}, @code{top-toolbar}, @code{bottom-toolbar},
-@code{right-toolbar}, or @code{left-toolbar}.
+This variable specifies the position to display the toolbar.  If
+@code{nil}, don't display toolbars.  If it is non-nil, it should be one
+of the symbols @code{default}, @code{top}, @code{bottom}, @code{right},
+and @code{left}.  @code{default} means to use the default toolbar, the
+rest mean to display the toolbar on the place which those names show.
+The default is @code{default}.
+
+@item gnus-toolbar-thickness
+@vindex gnus-toolbar-thickness
+Cons of the height and the width specifying the thickness of a toolbar.
+The height is used for the toolbar displayed on the top or the bottom,
+the width is used for the toolbar displayed on the right or the left.
+The default is that of the default toolbar.
 
 @item gnus-group-toolbar
 @vindex gnus-group-toolbar