--- 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)