5 files changed, 41 insertions, 6 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))