summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--gnus.org35
1 files changed, 24 insertions, 11 deletions
diff --git a/gnus.org b/gnus.org
index 907136e..b3f7327 100644
--- a/gnus.org
+++ b/gnus.org
@@ -95,7 +95,7 @@ Don't fetch attachments before showing the message text to avoid long load times
(setq nnimap-fetch-partial-articles "text/")
#+end_src
** Adaptive scoring
-See [[info:gnus#Adaptive Scoring][info:gnus#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.
#+begin_src emacs-lisp
(setq gnus-use-adaptive-scoring '(word line))
(setq gnus-adaptive-word-length-limit 5)
@@ -103,16 +103,22 @@ See [[info:gnus#Adaptive Scoring][info:gnus#Adaptive Scoring]].
(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 -1))
- (gnus-read-mark (subject 2))
- (gnus-expirable-mark (subject -1))
- (gnus-killed-mark (subject -3))
- (gnus-kill-file-mark)
- (gnus-ancient-mark)
- (gnus-low-score-mark)
- (gnus-catchup-mark (subject -1))))
+ (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))))
+(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
@@ -132,6 +138,13 @@ To ensure filenames compatible with Windows and stuff:
#+begin_src emacs-lisp
(setq nnheader-file-name-translation-alist '((?: . ?_) (?[ . ?_) (?] . ?_)))
#+end_src
+
+Slow scoring decay prevents huge scores from building up. Only run on =.ADAPT= score files and decay each scoring rule by 1 point or 1%, whichever is larger.
+#+begin_src emacs-lisp
+(setq gnus-decay-scores "\\.ADAPT\\'"
+ gnus-score-decay-constant 1
+ gnus-score-decay-scale 0.01)
+#+end_src
** Window Layout
See [[info:gnus#Window Layout][info:gnus#Window Layout]].
#+begin_src emacs-lisp