[Emacs-diffs] Changes to emacs/lisp/gnus/gnus.el

[Miles Bader]

Index: emacs/lisp/gnus/gnus.el
diff -c emacs/lisp/gnus/gnus.el:1.49 emacs/lisp/gnus/gnus.el:1.50
*** emacs/lisp/gnus/gnus.el:1.49        Mon Sep 19 10:14:33 2005
--- emacs/lisp/gnus/gnus.el     Fri Nov 11 05:14:19 2005
***************
*** 1104,1109 ****
--- 1104,1120 ----
    :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,3728 ****
  
  (defun gnus-parameters-get-parameter (group)
    "Return the group parameters for GROUP from `gnus-parameters'."
!   (let (params-list)
      (dolist (elem gnus-parameters)
        (when (string-match (car elem) group)
        (setq params-list
--- 3733,3742 ----
  
  (defun gnus-parameters-get-parameter (group)
    "Return the group parameters for GROUP from `gnus-parameters'."
!   (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