summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gnus.org79
1 files changed, 51 insertions, 28 deletions
diff --git a/gnus.org b/gnus.org
index d8aaa0f..6f0302b 100644
--- a/gnus.org
+++ b/gnus.org
@@ -145,44 +145,67 @@ Background fetching for gnus. See the manual and [[https://www.emacswiki.org/ema
#+end_src
**** Adaptive scoring
See [[info:gnus#Adaptive Scoring][info:gnus#Adaptive Scoring]] and this [[https://notes.whatthefuck.computer/1417593600.0-note.html][blog post]] by Ryan Rix.
+***** Score File Setup
#+begin_src emacs-lisp
(setq gnus-use-adaptive-scoring '(word line))
(setq gnus-adaptive-word-length-limit 5)
(setq gnus-adaptive-word-no-group-words t)
(setq gnus-summary-mark-below -300)
(setq gnus-default-adaptive-score-alist
- '((gnus-unread-mark)
- (gnus-ticked-mark)
- (gnus-dormant-mark)
- (gnus-del-mark (subject -50))
- (gnus-read-mark (from 5) (subject 100))
- (gnus-expirable-mark)
- (gnus-killed-mark (subject -300))
- (gnus-kill-file-mark)
- (gnus-ancient-mark)
- (gnus-low-score-mark)
- (gnus-catchup-mark (subject -40))))
+ '(
+ <<gnus-adaptive-scoring-wo-from>>))
(setq gnus-default-adaptive-word-score-alist
`((,gnus-read-mark . 5)
(,gnus-catchup-mark . -5)
(,gnus-killed-mark . -15)
- (,gnus-del-mark . -10)))
-(setq gnus-adaptive-word-score-alist gnus-default-adaptive-word-score-alist)
-#+end_src
-Scoring List for Groups with various From Senders:
-#+begin_example
-'((gnus-unread-mark)
- (gnus-ticked-mark (from 4))
- (gnus-dormant-mark (from 5))
- (gnus-del-mark (from -4) (subject -1))
- (gnus-read-mark (from 4) (subject 2))
- (gnus-expirable-mark (from -1) (subject -1))
- (gnus-killed-mark (from -1) (subject -3) (followup -1))
- (gnus-kill-file-mark)
- (gnus-ancient-mark)
- (gnus-low-score-mark)
- (gnus-catchup-mark (from -1) (subject -1)))
-#+end_example
+ (,gnus-del-mark . -10))
+ )
+;; (setq gnus-adaptive-word-score-alist gnus-default-adaptive-word-score-alist)
+#+end_src
+****** Using different (adaptive) scoring files for different groups
+To define different adaptive scoring files for different groups I set [[info:gnus#Home Score File][home score files]] based on the group name.
+#+begin_src emacs-lisp
+(setq gnus-home-score-file
+ '(("^nnimap" "nnimap.SCORE") ;; w/ author scoring
+ ("gmane" "nntp_gmane.SCORE") ;; w/ author scoring
+ ("^nntp\\+localhost" "nntp_global.SCORE") ;; w/o author scoring
+ ))
+(setq gnus-home-adapt-file
+ '(("^nnimap" "nnimap.ADAPT")
+ ("gmane" "nntp_gmane.ADAPT")
+ ("^nntp\\+localhost" "nntp_global.ADAPT")))
+#+end_src
+Scoring based on the =from= header does not make sense for rss feeds with only one author or newsgroups with unset author. These files therefore contain my default adaptive scoring rules with or without =from= scoring.
+#+NAME: gnus-adaptive-scoring-w-from
+#+begin_src emacs-lisp :tangle no :eval never
+(gnus-unread-mark)
+(gnus-ticked-mark (from 4))
+(gnus-dormant-mark (from 5))
+(gnus-del-mark (from -4) (subject -50))
+(gnus-read-mark (from 5) (subject 100))
+(gnus-expirable-mark)
+(gnus-killed-mark (from -5) (subject -300) (followup -150))
+(gnus-kill-file-mark)
+(gnus-ancient-mark)
+(gnus-low-score-mark)
+(gnus-catchup-mark (from -2) (subject -40))
+#+end_src
+#+NAME: gnus-adaptive-scoring-wo-from
+#+begin_src emacs-lisp :tangle no :eval never
+(gnus-unread-mark)
+(gnus-ticked-mark)
+(gnus-dormant-mark)
+(gnus-del-mark (subject -50))
+(gnus-read-mark (subject 100))
+(gnus-expirable-mark)
+(gnus-killed-mark (subject -300) (followup -150))
+(gnus-kill-file-mark)
+(gnus-ancient-mark)
+(gnus-low-score-mark)
+(gnus-catchup-mark (subject -40))
+#+end_src
+Unfortunately setting these on a per group basis does not work currently as it would (at least) override the word scoring setting. So I stick with the same adaptive scoring rules for all groups set above.
+***** Misc Options
To ensure filenames compatible with Windows and stuff:
#+begin_src emacs-lisp
(setq nnheader-file-name-translation-alist '((?: . ?_) (?[ . ?_) (?] . ?_)))