X-Git-Url: https://git.shemshak.org/~bandali/configs/blobdiff_plain/4c05c4186ed84ea42e9c1646226e81785e27e499..d040adb35e15dfa8c6aa43376bdabe2a55fc78c4:/lisp/bandali-gnus.el diff --git a/lisp/bandali-gnus.el b/lisp/bandali-gnus.el index de01c0f..d5231c2 100644 --- a/lisp/bandali-gnus.el +++ b/lisp/bandali-gnus.el @@ -58,7 +58,7 @@ (nnimap-address "127.0.0.1") (nnimap-server-port 143) (nnimap-authenticator plain) - (nnimap-user "amin@shemshak.local")) + (nnimap-user "bandali@shemshak.local")) (nnimap "gnu" (nnimap-stream plain) (nnimap-address "127.0.0.1") @@ -70,12 +70,16 @@ (nnimap-split-fancy (| ;; (: gnus-registry-split-fancy-with-parent) ;; (: gnus-group-split-fancy "INBOX" t "INBOX") + ;; keep debbugs emails in INBOX + (list ".*<\\(.*\\)\\.debbugs\\.gnu\\.org>.*" "INBOX") ;; gnu (list ".*<\\(.*\\)\\.\\(non\\)?gnu\\.org>.*" "l.\\1") ;; gnus (list ".*<\\(.*\\)\\.gnus\\.org>.*" "l.\\1") ;; libreplanet (list ".*<\\(.*\\)\\.libreplanet\\.org>.*" "l.\\1") + ;; iana (e.g. tz-announce) + (list ".*<\\(.*\\)\\.iana\\.org>.*" "l.\\1") ;; *.lists.sr.ht, omitting one dot if present ;; add more \\.?\\([^.]*\\) if needed (list ".*<~\\(.*\\)/\\([^.]*\\)\\.?\\([^.]*\\)\\.lists.sr.ht>.*" "l.~\\1.\\2\\3") @@ -91,14 +95,16 @@ ;; ---------------------------------- ;; legend: (u)nsubscribed | (d)ead ;; ---------------------------------- + ;; spam + ("X-Spam_action" "reject" "Junk") ;; otherwise, leave mail in INBOX "INBOX"))) - (nnimap "uw" + (nnimap "uwaterloo" (nnimap-stream plain) (nnimap-address "127.0.0.1") (nnimap-server-port 143) (nnimap-authenticator plain) - (nnimap-user "abandali@uw.local") + (nnimap-user "abandali@uwaterloo.local") (nnimap-inbox "INBOX") (nnimap-split-methods 'nnimap-split-fancy) (nnimap-split-fancy (| @@ -113,7 +119,16 @@ (nnimap-address "127.0.0.1") (nnimap-server-port 143) (nnimap-authenticator plain) - (nnimap-user "abandali@csc.uw.local"))) + (nnimap-user "abandali@csclub.uwaterloo.local") + (nnimap-inbox "INBOX") + (nnimap-split-methods 'nnimap-split-fancy) + (nnimap-split-fancy (| + ;; cron reports and other messages from root + (from "root@\\(.*\\.\\)?csclub\\.uwaterloo\\.ca" "INBOX") + ;; spam + ("X-Spam-Flag" "YES" "Junk") + ;; catch-all + "INBOX")))) gnus-message-archive-group "nnimap+gnu:INBOX" gnus-parameters '(("l\\.atreus" @@ -250,7 +265,7 @@ (gcc-self . t)) ("l\\." (subscribed . t)) - ("nnimap\\+uw:.*" + ("nnimap\\+uwaterloo:.*" (gcc-self . t))) gnus-large-newsgroup 50 gnus-home-directory (b/var "gnus/") @@ -269,6 +284,12 @@ '(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 @@ -299,6 +320,8 @@ "^Resent-From:" "^User-Agent:" "^X-detected-operating-system:" + "^X-Spam_action:" + "^X-Spam_bar:" "^Message-ID:" ;; "^References:" "^List-Id:" @@ -343,15 +366,14 @@ (use-package gnus-msg :config (defvar b/shemshak-signature "Amin Bandali -https://shemshak.org/~amin") - (defvar b/uw-signature "Amin Bandali, MMath Student +https://shemshak.org/~bandali") + (defvar b/uwaterloo-signature "Amin Bandali, MMath Cheriton School of Computer Science University of Waterloo -https://bandali.eu.org") - (defvar b/csc-signature "Amin Bandali +https://bndl.org") + (defvar b/csc-signature "Amin Bandali | https://bndl.org System Administrator, Systems Committee -Computer Science Club, University of Waterloo -https://csclub.uwaterloo.ca/~abandali") +Computer Science Club, University of Waterloo") (setq gnus-message-replysign t gnus-posting-styles '((".*" @@ -370,12 +392,12 @@ https://csclub.uwaterloo.ca/~abandali") (signature b/shemshak-signature) (gcc "nnimap+shemshak:Sent") (eval (setq b/message-cite-say-hi t))) - ("nnimap\\+uw:.*" + ("nnimap\\+uwaterloo:.*" (address "bandali@uwaterloo.ca") (body "\nBest,\n") - (signature b/uw-signature)) - ("nnimap\\+uw:INBOX" - (gcc "\"nnimap+uw:Sent Items\"")) + (signature b/uwaterloo-signature)) + ("nnimap\\+uwaterloo:INBOX" + (gcc "\"nnimap+uwaterloo:Sent Items\"")) ("nnimap\\+csc:.*" (address "bandali@csclub.uwaterloo.ca") (signature b/csc-signature)