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