diff -r 8a6c364061e2 -r e3b3e9f4d759 .emacs-my --- a/.emacs-my Sun Aug 12 11:07:43 2012 +0300 +++ b/.emacs-my Sun Aug 12 11:08:25 2012 +0300 @@ -1468,27 +1468,35 @@ ;; gnus-summary-mark-below gnus-summary-default-score gnus-summary-default-high-score gnus-summary-default-low-score -;; Scoring, adaptive score. +;; Scoring. +(setq + gnus-score-interactive-default-score 50 + gnus-summary-mark-below 0 + gnus-summary-expunge-below -40 + gnus-thread-expunge-below -40) + (setq gnus-use-scoring t gnus-save-score t - ;; gnus-use-adaptive-scoring t gnus-score-expiry-days 60 gnus-decay-scores t - gnus-score-interactive-default-score 100 gnus-score-decay-constant 3 - gnus-default-adaptive-score-alist - '( - (gnus-unread-mark) - (gnus-ticked-mark (subject 5)) - (gnus-dormant-mark (subject 5)) - (gnus-del-mark (from -5) (followup -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 gnus-use-adaptive-scoring t) +(setq gnus-default-adaptive-score-alist + '( + (gnus-unread-mark) + (gnus-ticked-mark (subject 5)) + (gnus-dormant-mark (subject 50)) + ;; (gnus-del-mark (from -5) (followup -5)) + (gnus-read-mark (followup -50)) + (gnus-killed-mark (followup -50)) + ;; (gnus-catchup-mark (subject -50)) + (gnus-kill-file-mark (from -9999)) + ) + ) + ;; Increase the score for followups to a sent article. (eval-after-load 'gnus-score '(progn