1104 |
:type '(repeat (cons regexp |
:type '(repeat (cons regexp |
1105 |
(repeat sexp)))) |
(repeat sexp)))) |
1106 |
|
|
1107 |
|
(defcustom gnus-parameters-case-fold-search 'default |
1108 |
|
"If it is t, ignore case of group names specified in `gnus-parameters'. |
1109 |
|
If it is nil, don't ignore case. If it is `default', which is for the |
1110 |
|
backward compatibility, use the value of `case-fold-search'." |
1111 |
|
:version "22.1" |
1112 |
|
:group 'gnus-group-various |
1113 |
|
:type '(choice :format "%{%t%}:\n %[Value Menu%] %v" |
1114 |
|
(const :tag "Use `case-fold-search'" default) |
1115 |
|
(const nil) |
1116 |
|
(const t))) |
1117 |
|
|
1118 |
(defvar gnus-group-parameters-more nil) |
(defvar gnus-group-parameters-more nil) |
1119 |
|
|
1120 |
(defmacro gnus-define-group-parameter (param &rest rest) |
(defmacro gnus-define-group-parameter (param &rest rest) |
3733 |
|
|
3734 |
(defun gnus-parameters-get-parameter (group) |
(defun gnus-parameters-get-parameter (group) |
3735 |
"Return the group parameters for GROUP from `gnus-parameters'." |
"Return the group parameters for GROUP from `gnus-parameters'." |
3736 |
(let (params-list) |
(let ((case-fold-search (if (eq gnus-parameters-case-fold-search 'default) |
3737 |
|
case-fold-search |
3738 |
|
gnus-parameters-case-fold-search)) |
3739 |
|
params-list) |
3740 |
(dolist (elem gnus-parameters) |
(dolist (elem gnus-parameters) |
3741 |
(when (string-match (car elem) group) |
(when (string-match (car elem) group) |
3742 |
(setq params-list |
(setq params-list |