Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-kill.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 0d2f883870bc
children 360340f9fd5f
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
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)