--- a/.emacs-my Tue Nov 08 10:21:49 2011 +0200
+++ b/.emacs-my Tue Nov 08 11:26:35 2011 +0200
@@ -1251,21 +1251,28 @@
(setq gnus-article-time-format "%Y-%m-%d %T%z %a")
(setq gnus-article-date-headers '(combined-lapsed user-defined))
-;; Scoring, adaptive score.
(setq
gnus-show-threads t
gnus-thread-sort-functions '(gnus-thread-sort-by-date gnus-thread-sort-by-total-score)
- gnus-use-adaptive-scoring t
)
-(setq gnus-default-adaptive-score-alist
- '(
- (gnus-unread-mark)
- (gnus-ticked-mark (subject 5))
- (gnus-dormant-mark (subject 5))
- (gnus-del-mark (subject -1))
- (gnus-killed-mark (subject -5))
- (gnus-catchup-mark (subject -1))
- ))
+
+;; Scoring, adaptive score.
+(setq
+ gnus-use-adaptive-scoring t
+ gnus-score-expiry-days 60
+ gnus-decay-scores t
+ gnus-default-adaptive-score-alist
+ '(
+ (gnus-unread-mark)
+ (gnus-ticked-mark (subject 5))
+ (gnus-dormant-mark (subject 5))
+ (gnus-del-mark (from -2) (subject -5))
+ (gnus-read-mark (from 2) (subject 1))
+ (gnus-killed-mark (subject -5))
+ (gnus-catchup-mark (subject -1))
+ (gnus-kill-file-mark (from -9999))
+ )
+ )
;; (setq imap-log t)