--- a/.emacs-my	Tue Oct 25 02:06:25 2011 +0300
+++ b/.emacs-my	Tue Oct 25 02:26:29 2011 +0300
@@ -1202,6 +1202,22 @@
   )
 (add-hook 'gnus-article-prepare-hook 'my-gnus-open-article-hook)
 
+;; Scoring, adaptive score.
+(setq
+ gnus-show-threads t
+ gnus-thread-sort-functions '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))
+        ))
+
 ;; (setq mail-user-agent 'mh-e-user-agent)
 
 ;; (add-hook 'message-sent-hook 'gnus-score-followup-thread)