Mercurial > emacs

comparison lisp/gnus/gnus-score.el @ 90261:7beb78bc1f8e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-97 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 616-696) - Add lisp/mh-e/.arch-inventory - Update from CVS - Merge from gnus--rel--5.10 - Update from CVS: lisp/smerge-mode.el: Add 'tools' to file keywords. - lisp/gnus/ChangeLog: Remove duplicate entry * gnus--rel--5.10 (patch 147-181) - Update from CVS - Merge from emacs--cvs-trunk--0 - Update from CVS: lisp/mml.el (mml-preview): Doc fix. - Update from CVS: texi/message.texi: Fix default values. - Update from CVS: texi/gnus.texi (RSS): Addition.
author Miles Bader <miles@gnu.org>
date Mon, 16 Jan 2006 08:37:27 +0000
parents ee12d75eb214 a93385a3e7a2
children c5406394f567
comparison
equal deleted inserted replaced
90260:0ca0d9181b5e 90261:7beb78bc1f8e
140 :group 'gnus-score-expire 140 :group 'gnus-score-expire
141 :type '(choice (const :tag "never" nil) 141 :type '(choice (const :tag "never" nil)
142 number)) 142 number))
143 143
144 (defcustom gnus-update-score-entry-dates t 144 (defcustom gnus-update-score-entry-dates t
145 "*In non-nil, update matching score entry dates. 145 "*If non-nil, update matching score entry dates.
146 If this variable is nil, then score entries that provide matches 146 If this variable is nil, then score entries that provide matches
147 will be expired along with non-matching score entries." 147 will be expired along with non-matching score entries."
148 :group 'gnus-score-expire 148 :group 'gnus-score-expire
149 :type 'boolean) 149 :type 'boolean)
150 150
173 (defcustom gnus-home-score-file nil 173 (defcustom gnus-home-score-file nil
174 "Variable to control where interactive score entries are to go. 174 "Variable to control where interactive score entries are to go.
175 It can be: 175 It can be:
176 176
177 * A string 177 * A string
178 This file file will be used as the home score file. 178 This file will be used as the home score file.
179 179
180 * A function 180 * A function
181 The result of this function will be used as the home score file. 181 The result of this function will be used as the home score file.
182 The function will be passed the name of the group as its 182 The function will be passed the name of the group as its
183 parameter. 183 parameter.
184 184
185 * A list 185 * A list
186 The elements in this list can be: 186 The elements in this list can be:
187 187
188 * `(regexp file-name ...)' 188 * `(regexp file-name ...)'
189 If the `regexp' matches the group name, the first `file-name' will 189 If the `regexp' matches the group name, the first `file-name'
190 will be used as the home score file. (Multiple filenames are 190 will be used as the home score file. (Multiple filenames are
191 allowed so that one may use gnus-score-file-single-match-alist to 191 allowed so that one may use gnus-score-file-single-match-alist to
192 set this variable.) 192 set this variable.)
193 193
194 * A function. 194 * A function.
219 (cons regexp (repeat file)) 219 (cons regexp (repeat file))
220 (function :value fun))) 220 (function :value fun)))
221 (function :value fun))) 221 (function :value fun)))
222 222
223 (defcustom gnus-default-adaptive-score-alist 223 (defcustom gnus-default-adaptive-score-alist
224 '((gnus-kill-file-mark) 224 `((gnus-kill-file-mark)
225 (gnus-unread-mark) 225 (gnus-unread-mark)
226 (gnus-read-mark (from 3) (subject 30)) 226 (gnus-read-mark
227 (gnus-catchup-mark (subject -10)) 227 (from , (+ 2 gnus-score-decay-constant))
228 (gnus-killed-mark (from -1) (subject -20)) 228 (subject , (+ 27 gnus-score-decay-constant)))
229 (gnus-del-mark (from -2) (subject -15))) 229 (gnus-catchup-mark
230 "*Alist of marks and scores." 230 (subject , (+ -7 (* -1 gnus-score-decay-constant))))
231 (gnus-killed-mark
232 (from , (- -1 gnus-score-decay-constant))
233 (subject , (+ -17 (* -1 gnus-score-decay-constant))))
234 (gnus-del-mark
235 (from , (- -1 gnus-score-decay-constant))
236 (subject , (+ -12 (* -1 gnus-score-decay-constant)))))
237 "Alist of marks and scores.
238 If you use score decays, you might want to set values higher than
239 `gnus-score-decay-constant'."
231 :group 'gnus-score-adapt 240 :group 'gnus-score-adapt
232 :type '(repeat (cons (symbol :tag "Mark") 241 :type '(repeat (cons (symbol :tag "Mark")
233 (repeat (list (choice :tag "Header" 242 (repeat (list (choice :tag "Header"
234 (const from) 243 (const from)
235 (const subject) 244 (const subject)