/[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.36 by miles, Mon Nov 1 23:06:34 2004 UTC revision 1.37 by kfstorm, Wed Feb 9 15:50:37 2005 UTC
# Line 964  For example: Line 964  For example:
964       (\"mail\\\\.me\" (gnus-use-scoring  t))       (\"mail\\\\.me\" (gnus-use-scoring  t))
965       (\"list\\\\..*\" (total-expire . t)       (\"list\\\\..*\" (total-expire . t)
966                    (broken-reply-to . t)))"                    (broken-reply-to . t)))"
967    :version "21.4"    :version "22.1"
968    :group 'gnus-group-various    :group 'gnus-group-various
969    :type '(repeat (cons regexp    :type '(repeat (cons regexp
970                         (repeat sexp))))                         (repeat sexp))))
# Line 1314  If the default site is too slow, try one Line 1314  If the default site is too slow, try one
1314                          (gnus-replace-in-string name "\\." "-") "-charter.html")))                          (gnus-replace-in-string name "\\." "-") "-charter.html")))
1315    "*An alist of (HIERARCHY . FORM) pairs used to construct the URL of a charter.    "*An alist of (HIERARCHY . FORM) pairs used to construct the URL of a charter.
1316  When FORM is evaluated `name' is bound to the name of the group."  When FORM is evaluated `name' is bound to the name of the group."
1317    :version "21.4"    :version "22.1"
1318    :group 'gnus-group-various    :group 'gnus-group-various
1319    :type '(repeat (cons (string :tag "Hierarchy") (sexp :tag "Form"))))    :type '(repeat (cons (string :tag "Hierarchy") (sexp :tag "Form"))))
1320    
# Line 1322  When FORM is evaluated `name' is bound t Line 1322  When FORM is evaluated `name' is bound t
1322    "*Non-nil means that control messages are displayed using `browse-url'.    "*Non-nil means that control messages are displayed using `browse-url'.
1323  Otherwise they are fetched with ange-ftp and displayed in an ephemeral  Otherwise they are fetched with ange-ftp and displayed in an ephemeral
1324  group."  group."
1325    :version "21.4"    :version "22.1"
1326    :group 'gnus-group-various    :group 'gnus-group-various
1327    :type 'boolean)    :type 'boolean)
1328    
# Line 1781  total number of articles in the group.") Line 1781  total number of articles in the group.")
1781                    (list                    (list
1782                     (regexp :tag "Group Name Regular Expression")                     (regexp :tag "Group Name Regular Expression")
1783                     (boolean :tag "Ignored")))                     (boolean :tag "Ignored")))
1784    
1785   :parameter-type '(boolean :tag "Group Ignored by the Registry")   :parameter-type '(boolean :tag "Group Ignored by the Registry")
1786   :parameter-document   :parameter-document
1787   "Whether the Gnus Registry should ignore this group.")   "Whether the Gnus Registry should ignore this group.")
# Line 1790  total number of articles in the group.") Line 1790  total number of articles in the group.")
1790  (defcustom gnus-install-group-spam-parameters t  (defcustom gnus-install-group-spam-parameters t
1791    "*Disable the group parameters for spam detection.    "*Disable the group parameters for spam detection.
1792  Enable if `G c' in XEmacs is giving you trouble, and make sure to submit a bug report."  Enable if `G c' in XEmacs is giving you trouble, and make sure to submit a bug report."
1793    :version "21.4"    :version "22.1"
1794    :type 'boolean    :type 'boolean
1795    :group 'gnus-start)    :group 'gnus-start)
1796    
# Line 1891  Only applicable to non-spam (unclassifie Line 1891  Only applicable to non-spam (unclassifie
1891    (gnus-define-group-parameter    (gnus-define-group-parameter
1892     spam-process     spam-process
1893     :type list     :type list
1894     :parameter-type     :parameter-type
1895     '(choice     '(choice
1896       :tag "Spam Summary Exit Processor"       :tag "Spam Summary Exit Processor"
1897       :value nil       :value nil
1898       (list :tag "Spam Summary Exit Processor Choices"       (list :tag "Spam Summary Exit Processor Choices"
# Line 1933  a backend on summary exit.  If non-nil, Line 1933  a backend on summary exit.  If non-nil,
1933  name regexps that should match all groups in which to do automatic  name regexps that should match all groups in which to do automatic
1934  spam processing, associated with the appropriate processor."  spam processing, associated with the appropriate processor."
1935     :variable-group spam     :variable-group spam
1936     :variable-type     :variable-type
1937     '(repeat :tag "Spam/Ham Processors"     '(repeat :tag "Spam/Ham Processors"
1938              (list :tag "Spam Summary Exit Processor Choices"              (list :tag "Spam Summary Exit Processor Choices"
1939                    (regexp :tag "Group Regexp")                    (regexp :tag "Group Regexp")
1940                    (set                    (set
1941                     :tag "Spam/Ham Summary Exit Processor"                     :tag "Spam/Ham Summary Exit Processor"
1942                     (variable-item gnus-group-spam-exit-processor-ifile)                     (variable-item gnus-group-spam-exit-processor-ifile)
1943                     (variable-item gnus-group-spam-exit-processor-stat)                     (variable-item gnus-group-spam-exit-processor-stat)
# Line 1972  spam processing, associated with the app Line 1972  spam processing, associated with the app
1972    (gnus-define-group-parameter    (gnus-define-group-parameter
1973     spam-autodetect     spam-autodetect
1974     :type list     :type list
1975     :parameter-type     :parameter-type
1976     '(boolean :tag "Spam autodetection")     '(boolean :tag "Spam autodetection")
1977     :function-document     :function-document
1978     "Should spam be autodetected (with spam-split) in this group?"     "Should spam be autodetected (with spam-split) in this group?"
# Line 1983  spam processing, associated with the app Line 1983  spam processing, associated with the app
1983     Only unseen articles will be examined, unless     Only unseen articles will be examined, unless
1984     spam-autodetect-recheck-messages is set."     spam-autodetect-recheck-messages is set."
1985     :variable-group spam     :variable-group spam
1986     :variable-type     :variable-type
1987     '(repeat     '(repeat
1988       :tag "Autodetection setting"       :tag "Autodetection setting"
1989       (list       (list
# Line 1997  spam-autodetect-recheck-messages is set. Line 1997  spam-autodetect-recheck-messages is set.
1997    (gnus-define-group-parameter    (gnus-define-group-parameter
1998     spam-autodetect-methods     spam-autodetect-methods
1999     :type list     :type list
2000     :parameter-type     :parameter-type
2001     '(choice :tag "Spam autodetection-specific methods"     '(choice :tag "Spam autodetection-specific methods"
2002       (const none)       (const none)
2003       (const default)       (const default)
# Line 2024  Requires the spam-autodetect parameter. Line 2024  Requires the spam-autodetect parameter.
2024  will be examined, unless spam-autodetect-recheck-messages is  will be examined, unless spam-autodetect-recheck-messages is
2025  set."  set."
2026     :variable-group spam     :variable-group spam
2027     :variable-type     :variable-type
2028     '(repeat     '(repeat
2029       :tag "Autodetection methods"       :tag "Autodetection methods"
2030       (list       (list
# Line 2046  set." Line 2046  set."
2046          (variable-item spam-use-bogofilter-headers)          (variable-item spam-use-bogofilter-headers)
2047          (variable-item spam-use-bogofilter)))))          (variable-item spam-use-bogofilter)))))
2048       :parameter-document       :parameter-document
2049     "Spam autodetection methods.       "Spam autodetection methods.
2050  Requires the spam-autodetect parameter.  Only unseen articles  Requires the spam-autodetect parameter.  Only unseen articles
2051  will be examined, unless spam-autodetect-recheck-messages is  will be examined, unless spam-autodetect-recheck-messages is
2052  set.")  set.")
# Line 2054  set.") Line 2054  set.")
2054    (gnus-define-group-parameter    (gnus-define-group-parameter
2055     spam-process-destination     spam-process-destination
2056     :type list     :type list
2057     :parameter-type     :parameter-type
2058     '(choice :tag "Destination for spam-processed articles at summary exit"     '(choice :tag "Destination for spam-processed articles at summary exit"
2059              (string :tag "Move to a group")              (string :tag "Move to a group")
2060              (repeat :tag "Move to multiple groups"              (repeat :tag "Move to multiple groups"
# Line 2072  to do spam-processed article moving, ass Line 2072  to do spam-processed article moving, ass
2072  group or nil for explicit expiration.  This only makes sense for  group or nil for explicit expiration.  This only makes sense for
2073  mail groups."  mail groups."
2074     :variable-group spam     :variable-group spam
2075     :variable-type     :variable-type
2076     '(repeat     '(repeat
2077       :tag "Spam-processed articles destination"       :tag "Spam-processed articles destination"
2078       (list       (list
# Line 2085  mail groups." Line 2085  mail groups."
2085         (const :tag "Expire" nil))))         (const :tag "Expire" nil))))
2086     :parameter-document     :parameter-document
2087     "Where spam-processed articles will go at summary exit.")     "Where spam-processed articles will go at summary exit.")
2088      
2089    (gnus-define-group-parameter    (gnus-define-group-parameter
2090     ham-process-destination     ham-process-destination
2091     :type list     :type list
2092     :parameter-type     :parameter-type
2093     '(choice     '(choice
2094       :tag "Destination for ham articles at summary exit from a spam group"       :tag "Destination for ham articles at summary exit from a spam group"
2095       (string :tag "Move to a group")       (string :tag "Move to a group")
# Line 2109  to do ham article moving, associated wit Line 2109  to do ham article moving, associated wit
2109  group or nil for explicit ignoring.  This only makes sense for  group or nil for explicit ignoring.  This only makes sense for
2110  mail groups, and only works in spam groups."  mail groups, and only works in spam groups."
2111     :variable-group spam     :variable-group spam
2112     :variable-type     :variable-type
2113     '(repeat     '(repeat
2114       :tag "Ham articles destination"       :tag "Ham articles destination"
2115       (list       (list
# Line 2296  face." Line 2296  face."
2296  When set, Gnus will prefer using the locally stored content rather  When set, Gnus will prefer using the locally stored content rather
2297  than re-fetching it from the server.  You also need to enable  than re-fetching it from the server.  You also need to enable
2298  `gnus-agent' for this to have any affect."  `gnus-agent' for this to have any affect."
2299    :version "21.4"    :version "22.1"
2300    :group 'gnus-agent    :group 'gnus-agent
2301    :type 'boolean)    :type 'boolean)
2302    
# Line 2315  covered by that variable." Line 2315  covered by that variable."
2315  You may customize gnus-agent to disable its use.  However, some  You may customize gnus-agent to disable its use.  However, some
2316  back ends have started to use the agent as a client-side cache.  back ends have started to use the agent as a client-side cache.
2317  Disabling the agent may result in noticeable loss of performance."  Disabling the agent may result in noticeable loss of performance."
2318    :version "21.4"    :version "22.1"
2319    :group 'gnus-agent    :group 'gnus-agent
2320    :type 'boolean)    :type 'boolean)
2321    
# Line 2347  It can be one of the symbols `gnus' \(sh Line 2347  It can be one of the symbols `gnus' \(sh
2347  `emacs-gnus' plus system configuration\), `emacs-gnus-type' \(same as  `emacs-gnus' plus system configuration\), `emacs-gnus-type' \(same as
2348  `emacs-gnus' plus system type\) or a custom string.  If you set it to a  `emacs-gnus' plus system type\) or a custom string.  If you set it to a
2349  string, be sure to use a valid format, see RFC 2616."  string, be sure to use a valid format, see RFC 2616."
2350    :version "21.4"    :version "22.1"
2351    :group 'gnus-message    :group 'gnus-message
2352    :type '(choice    :type '(choice
2353            (item :tag "Show Gnus and Emacs versions and system type"            (item :tag "Show Gnus and Emacs versions and system type"
# Line 3331  that that variable is buffer-local to th Line 3331  that that variable is buffer-local to th
3331                ;; gnus-server-method-cache so this only happens once,                ;; gnus-server-method-cache so this only happens once,
3332                ;; if at all.                ;; if at all.
3333                (let (match)                (let (match)
3334                  (mapcar                  (mapcar
3335                   (lambda (info)                   (lambda (info)
3336                     (let ((info-method (gnus-info-method info)))                     (let ((info-method (gnus-info-method info)))
3337                       (unless (stringp info-method)                       (unless (stringp info-method)
# Line 3992  Allow completion over sensible values." Line 3992  Allow completion over sensible values."
3992  (defun gnus-agent-method-p (method)  (defun gnus-agent-method-p (method)
3993    "Say whether METHOD is covered by the agent."    "Say whether METHOD is covered by the agent."
3994    (or (eq (car gnus-agent-method-p-cache) method)    (or (eq (car gnus-agent-method-p-cache) method)
3995        (setq gnus-agent-method-p-cache        (setq gnus-agent-method-p-cache
3996              (cons method              (cons method
3997                    (member (if (stringp method)                    (member (if (stringp method)
3998                                method                                method
3999                              (gnus-method-to-server method)) gnus-agent-covered-methods))))                              (gnus-method-to-server method)) gnus-agent-covered-methods))))
4000    (cdr gnus-agent-method-p-cache))    (cdr gnus-agent-method-p-cache))
4001    

Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37

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