Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-kill.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 0293115a14e9
children ec9a17fef872
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
30 (require 'gnus-art) 30 (require 'gnus-art)
31 (require 'gnus-range) 31 (require 'gnus-range)
32 32
33 (defcustom gnus-kill-file-mode-hook nil 33 (defcustom gnus-kill-file-mode-hook nil
34 "Hook for Gnus kill file mode." 34 "Hook for Gnus kill file mode."
35 :group 'gnus-score 35 :group 'gnus-score-kill
36 :type 'hook) 36 :type 'hook)
37 37
38 (defcustom gnus-kill-expiry-days 7 38 (defcustom gnus-kill-expiry-days 7
39 "*Number of days before expiring unused kill file entries." 39 "*Number of days before expiring unused kill file entries."
40 :group 'gnus-score 40 :group 'gnus-score-kill
41 :group 'gnus-score-expire
41 :type 'integer) 42 :type 'integer)
42 43
43 (defcustom gnus-kill-save-kill-file nil 44 (defcustom gnus-kill-save-kill-file nil
44 "*If non-nil, will save kill files after processing them." 45 "*If non-nil, will save kill files after processing them."
45 :group 'gnus-score 46 :group 'gnus-score-kill
46 :type 'boolean) 47 :type 'boolean)
47 48
48 (defcustom gnus-winconf-kill-file nil 49 (defcustom gnus-winconf-kill-file nil
49 "What does this do, Lars?" 50 "What does this do, Lars?"
50 :group 'gnus-score 51 :group 'gnus-score-kill
51 :type 'sexp) 52 :type 'sexp)
52 53
53 (defcustom gnus-kill-killed t 54 (defcustom gnus-kill-killed t
54 "*If non-nil, Gnus will apply kill files to already killed articles. 55 "*If non-nil, Gnus will apply kill files to already killed articles.
55 If it is nil, Gnus will never apply kill files to articles that have 56 If it is nil, Gnus will never apply kill files to articles that have
56 already been through the scoring process, which might very well save lots 57 already been through the scoring process, which might very well save lots
57 of time." 58 of time."
58 :group 'gnus-score 59 :group 'gnus-score-kill
59 :type 'boolean) 60 :type 'boolean)
60 61
61 62
62 63
63 (defmacro gnus-raise (field expression level) 64 (defmacro gnus-raise (field expression level)