+2005-01-03 Reiner Steib <Reiner.Steib@gmx.de>
+
+ * gnus-score.el (gnus-decay-scores, gnus-score-load-file): Allow
+ to apply decay on score files matching a regexp.
+
2004-12-30 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-group.el (gnus-group-line-format-alist): Keep the forward
:group 'gnus-score-expire
:type 'boolean)
+(defcustom gnus-decay-scores nil
+ "*If non-nil, decay non-permanent scores.
+
+If it is a regexp, only decay score files matching regexp."
+ :group 'gnus-score-decay
+ :type `(choice (const :tag "never" nil)
+ (const :tag "always" t)
+ (const :tag "adaptive score files"
+ ,(concat "\\." gnus-adaptive-file-suffix "\\'"))
+ (regexp)))
+
(defcustom gnus-decay-scores nil
"*If non-nil, decay non-permanent scores."
:group 'gnus-score-decay
(decay (car (gnus-score-get 'decay alist)))
(eval (car (gnus-score-get 'eval alist))))
;; Perform possible decays.
- (when (and gnus-decay-scores
+ (when (and (if (stringp gnus-decay-scores)
+ (string-match gnus-decay-scores file)
+ gnus-decay-scores)
(or cached (file-exists-p file))
(or (not decay)
(gnus-decay-scores alist decay)))