# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1348505893 -10800
# Node ID 79c13b7327fa7f50a6b463e287e871cb92083e35
# Parent  664e6f4c3dc80b3168d8bbaf45b8fcd7e1a3f1c7
I use 100 for replay to me and 200 for essential mails, and -50 for bad mails.

diff -r 664e6f4c3dc8 -r 79c13b7327fa .emacs-my
--- a/.emacs-my	Mon Sep 24 19:45:13 2012 +0300
+++ b/.emacs-my	Mon Sep 24 19:58:13 2012 +0300
@@ -1545,18 +1545,18 @@
  gnus-thread-expunge-below -40)
 
 (setq gnus-use-adaptive-scoring t)
+;; I use 100 for replay to me and 200 for essential mails, and -50 for bad mails.
 (setq gnus-default-adaptive-score-alist
       '(
         (gnus-unread-mark)
-        (gnus-ticked-mark (subject 5))
-        (gnus-dormant-mark (subject 50))
+        (gnus-ticked-mark (followup 100))
+        (gnus-dormant-mark (followup 100))
         ;; (gnus-read-mark (followup -50))
         ;; (gnus-catchup-mark (subject -50))
         (gnus-del-mark (followup -50))
         (gnus-killed-mark (followup -50))
         (gnus-kill-file-mark (from -9999))
-        )
-      )
+        ))
 
 ;; Increase the score for followups to a sent article.
 (eval-after-load 'gnus-score
diff -r 664e6f4c3dc8 -r 79c13b7327fa all.SCORE
--- a/all.SCORE	Mon Sep 24 19:45:13 2012 +0300
+++ b/all.SCORE	Mon Sep 24 19:58:13 2012 +0300
@@ -1,14 +1,14 @@
 ;; -*- mode: emacs-lisp -*-
 (
  ("from"
-  ("Oleksandr Gavenko" 200))
+  ("Oleksandr Gavenko" 200 nil s))
  ("from"
-  ("gavenkoa" 200))
+  ("gavenkoa" 200 nil s))
  ("from"
-  ("Юрий Гавенко" 200))
+  ("Юрий Гавенко" 200 nil s))
  ("references"
   ("@gavenkoa.example.com" 100)
   ("@desktop.home.int" 100))
- (mark-and-expunge -10)
- (thread-mark-and-expunge -10)
+ (mark-and-expunge -50)
+ (thread-mark-and-expunge -50)
  )