Show
Ignore:
Timestamp:
09/10/05 10:16:00 (3 years ago)
Author:
miyoshi
Message:

--

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/gnus/gnus.el

    r3809 r3863  
    3535(require 'mm-util) 
    3636(require 'nnheader) 
     37 
     38;; These are defined afterwards with gnus-define-group-parameter 
     39(defvar gnus-ham-process-destinations) 
     40(defvar gnus-parameter-ham-marks-alist) 
     41(defvar gnus-parameter-spam-marks-alist) 
     42(defvar gnus-spam-autodetect) 
     43(defvar gnus-spam-autodetect-methods) 
     44(defvar gnus-spam-newsgroup-contents) 
     45(defvar gnus-spam-process-destinations) 
     46(defvar gnus-spam-process-newsgroups) 
     47 
    3748 
    3849(defgroup gnus nil 
    …… 
    23332344It is called with three parameters -- GROUP, LEVEL and OLDLEVEL." 
    23342345  :group 'gnus-group-levels 
    2335   :type 'function) 
     2346  :type '(choice (const nil) 
     2347                 function)) 
    23362348 
    23372349;;; Face thingies. 
    …… 
    24622474                         (sexp :tag "Value"))))) 
    24632475 
    2464 (defcustom gnus-user-agent 'emacs-gnus-type 
     2476(defcustom gnus-user-agent '(emacs gnus type) 
    24652477  "Which information should be exposed in the User-Agent header. 
    24662478 
    2467 It can be one of the symbols `gnus' \(show only Gnus version\), `emacs-gnus' 
    2468 \(show only Emacs and Gnus versions\), `emacs-gnus-config' \(same as 
    2469 `emacs-gnus' plus system configuration\), `emacs-gnus-type' \(same as 
    2470 `emacs-gnus' plus system type\) or a custom string.  If you set it to a 
    2471 string, be sure to use a valid format, see RFC 2616." 
     2479Can be a list of symbols or a string.  Valid symbols are `gnus' 
     2480\(show Gnus version\) and `emacs' \(show Emacs version\).  In 
     2481addition to the Emacs version, you can add `codename' \(show 
     2482\(S\)XEmacs codename\) or either `config' \(show system 
     2483configuration\) or `type' \(show system type\).  If you set it to 
     2484a string, be sure to use a valid format, see RFC 2616." 
     2485 
    24722486  :version "22.1" 
    24732487  :group 'gnus-message 
    2474   :type '(choice 
    2475           (item :tag "Show Gnus and Emacs versions and system type" 
    2476                 emacs-gnus-type) 
    2477           (item :tag "Show Gnus and Emacs versions and system configuration" 
    2478                 emacs-gnus-config) 
    2479           (item :tag "Show Gnus and Emacs versions" emacs-gnus) 
    2480           (item :tag "Show only Gnus version" gnus) 
    2481           (string :tag "Other"))) 
     2488  :type '(choice (list (set :inline t 
     2489                            (const gnus  :tag "Gnus version") 
     2490                            (const emacs :tag "Emacs version") 
     2491                            (choice :tag "system" 
     2492                                    (const type   :tag "system type") 
     2493                                    (const config :tag "system configuration")) 
     2494                            (const codename :tag "Emacs codename"))) 
     2495                 (string))) 
     2496 
     2497;; Convert old (No Gnus < 2005-01-10, v5-10 < 2005-09-05) symbol type values: 
     2498(when (symbolp gnus-user-agent) 
     2499  (setq gnus-user-agent 
     2500        (cond ((eq gnus-user-agent 'emacs-gnus-config) 
     2501               '(emacs gnus config)) 
     2502              ((eq gnus-user-agent 'emacs-gnus-type) 
     2503               '(emacs gnus type)) 
     2504              ((eq gnus-user-agent 'emacs-gnus) 
     2505               '(emacs gnus)) 
     2506              ((eq gnus-user-agent 'gnus) 
     2507               '(gnus)) 
     2508              (t gnus-user-agent))) 
     2509  (gnus-message 1 "Converted `gnus-user-agent' to `%s'." gnus-user-agent) 
     2510  (sit-for 1) 
     2511  (if (get 'gnus-user-agent 'saved-value) 
     2512      (customize-save-variable 'gnus-user-agent gnus-user-agent) 
     2513    (gnus-message 1 "Edit your init file to make this change permanent.") 
     2514    (sit-for 2))) 
    24822515 
    24832516