1. demas
  2. configs

Source

configs / win / emacs / emacs / rc / emacs-rc-gnus-score.el

(setq gnus-summary-expunge-below -999)

(setq gnus-use-adaptive-scoring t)

(setq gnus-default-adaptive-score-alist
       '((gnus-dormant-mark (subject 100)) 
         (gnus-ticked-mark (subject 30)) 
         (gnus-read-mark (subject 30)) 
         (gnus-del-mark (subject -150)) 
         (gnus-catchup-mark (subject -150)) 
         (gnus-killed-mark (subject -1000)) 
         (gnus-expirable-mark (subject -1000))))

(defun gnus-summary-lower-score-by-subj-substr-temp ()
  (interactive)
  (let ((gnus-score-default-header 's)
	(gnus-score-default-type 's)
	(gnus-score-default-duration 't))
    (gnus-summary-lower-score)))

(defun gnus-summary-increase-score-by-author-exact-temp ()
  (interactive)
  (let ((gnus-score-default-header 'a)
	(gnus-score-default-type 'e)
	(gnus-score-default-duration 't))
    (gnus-summary-increase-score)))

(add-hook 'message-sent-hook 'gnus-score-followup-thread)

(custom-set-variables
 '(gnus-use-adaptive-scoring f)
)