projects
/
~bandali
/
configs
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update 17 drones and commit a bunch of changes
[~bandali/configs]
/
lisp
/
bandali-gnus.el
diff --git
a/lisp/bandali-gnus.el
b/lisp/bandali-gnus.el
index
de01c0f
..
2bfa816
100644
(file)
--- a/
lisp/bandali-gnus.el
+++ b/
lisp/bandali-gnus.el
@@
-91,6
+91,8
@@
;; ----------------------------------
;; legend: (u)nsubscribed | (d)ead
;; ----------------------------------
;; ----------------------------------
;; legend: (u)nsubscribed | (d)ead
;; ----------------------------------
+ ;; spam
+ ("X-Spam_action" "reject" "Junk")
;; otherwise, leave mail in INBOX
"INBOX")))
(nnimap "uw"
;; otherwise, leave mail in INBOX
"INBOX")))
(nnimap "uw"
@@
-269,6
+271,12
@@
'(list . "list-id\\|list-post\\|x-mailing-list\\|x-beenthere\\|x-loop")
t)))
'(list . "list-id\\|list-post\\|x-mailing-list\\|x-beenthere\\|x-loop")
t)))
+ ;; (require 'gnus-registry)
+ ;; (setq gnus-registry-max-entries 2500)
+ ;; (setq gnus-registry-ignored-groups
+ ;; (append gnus-registry-ignored-groups
+ ;; '(("^nnimap:gnu\\.l" t)
+ ;; ("webmasters$" t))))
;; (gnus-registry-initialize)
(with-eval-after-load 'recentf
;; (gnus-registry-initialize)
(with-eval-after-load 'recentf
@@
-299,6
+307,8
@@
"^Resent-From:"
"^User-Agent:"
"^X-detected-operating-system:"
"^Resent-From:"
"^User-Agent:"
"^X-detected-operating-system:"
+ "^X-Spam_action:"
+ "^X-Spam_bar:"
"^Message-ID:"
;; "^References:"
"^List-Id:"
"^Message-ID:"
;; "^References:"
"^List-Id:"