# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1344758905 -10800
# Node ID e3b3e9f4d759fd054c68106fa767d1a77450e796
# Parent  8a6c364061e2d53a49a01f7a47a464506e8d3d4e
New scoring rules.

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
diff -r 8a6c364061e2 -r e3b3e9f4d759 Makefile
--- a/Makefile	Sun Aug 12 11:07:43 2012 +0300
+++ b/Makefile	Sun Aug 12 11:08:25 2012 +0300
@@ -79,6 +79,8 @@
 	done
 	cp .emacs $(HOME)/.emacs
 	cp .emacs-my $(HOME)/.emacs-my
+	mkdir -p $(HOME)/.gnus/scores
+	cp all.SCORE $(HOME)/.gnus/scores
 	rm -f -r $(HOME)/.emacs.d/my-lisp
 	mkdir -p $(HOME)/.emacs.d/my-lisp
 	for file in $(FILES_MODE_EL); do \
diff -r 8a6c364061e2 -r e3b3e9f4d759 all.SCORE
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/all.SCORE	Sun Aug 12 11:08:25 2012 +0300
@@ -0,0 +1,10 @@
+;; -*- mode: emacs-lisp -*-
+(
+ ("from"
+  ("Oleksandr Gavenko" 200))
+ ("references"
+  ("@gavenkoa.example.com" 100)
+  ("@desktop.home.int" 100))
+ (mark-and-expunge -10)
+ (thread-mark-and-expunge -10)
+ )