/[emacs]/emacs/lisp/gnus/gnus.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.49 by miles, Mon Sep 19 10:14:33 2005 UTC revision 1.50 by miles, Fri Nov 11 05:14:19 2005 UTC
# Line 1104  For example: Line 1104  For example:
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)
# Line 3722  You should probably use `gnus-find-metho Line 3733  You should probably use `gnus-find-metho
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

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26