X-Git-Url: https://git.shemshak.org/~bandali/configs/blobdiff_plain/4c05c4186ed84ea42e9c1646226e81785e27e499..7c558c9b5ee7aaf336f643cc6767ec875441a239:/lisp/bandali-gnus.el diff --git a/lisp/bandali-gnus.el b/lisp/bandali-gnus.el index de01c0f..3759dcf 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,15 +70,21 @@ (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") + ;; orbitalfox (e.g. gemini) + (list ".*<\\(.*\\)\\.lists\\.orbitalfox\\.eu>.*" "l.\\1") ;; *.lists.sr.ht, omitting one dot if present ;; add more \\.?\\([^.]*\\) if needed - (list ".*<~\\(.*\\)/\\([^.]*\\)\\.?\\([^.]*\\)\\.lists.sr.ht>.*" "l.~\\1.\\2\\3") + (list ".*<~\\(.*\\)/\\([^.]*\\)\\.?\\([^.]*\\)\\.lists\\.sr\\.ht>.*" "l.~\\1.\\2\\3") ;; webmasters (from "webmasters\\(-comment\\)?@gnu\\.org" "webmasters") ;; other @@ -87,18 +93,20 @@ ;; (list ".*haskell-art.we.lurk.org" "l.haskell.art") ;d (list ".*haskell-cafe.haskell.org" "l.haskell-cafe") ;; (list ".*notmuch.notmuchmail.org" "l.notmuch") ;u - ;; (list ".*dev.lists.parabola.nu" "l.parabola-dev") ;u + (list ".*dev.lists.parabola.nu" "l.parabola-dev") ;; ---------------------------------- ;; 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 +121,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" @@ -145,6 +162,12 @@ ("l\\.emacsconf-discuss" (to-address . "emacsconf-discuss@gnu.org") (to-list . "emacsconf-discuss@gnu.org")) + ("l\\.emacsconf-org" + (to-address . "emacsconf-org@gnu.org") + (to-list . "emacsconf-org@gnu.org")) + ("l\\.emacsconf-org-private" + (to-address . "emacsconf-org-private@gnu.org") + (to-list . "emacsconf-org-private@gnu.org")) ("l\\.emacsconf-register" (to-address . "emacsconf-register@gnu.org") (to-list . "emacsconf-register@gnu.org")) @@ -250,7 +273,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 +292,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 +328,8 @@ "^Resent-From:" "^User-Agent:" "^X-detected-operating-system:" + "^X-Spam_action:" + "^X-Spam_bar:" "^Message-ID:" ;; "^References:" "^List-Id:" @@ -343,15 +374,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 +400,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) @@ -423,9 +453,9 @@ https://csclub.uwaterloo.ca/~abandali") :config (when (version< "27" emacs-version) (set-face-attribute 'mm-uu-extract nil :extend t)) - :custom - (mm-uu-diff-groups-regexp - "\\(gmane\\|gnu\\|l\\)\\..*\\(diff\\|commit\\|cvs\\|bug\\|dev\\)")) + (when (version< emacs-version "27") + (setq mm-uu-diff-groups-regexp + "\\(gmane\\|gnu\\|l\\)\\..*\\(diff\\|commit\\|cvs\\|bug\\|dev\\)"))) (use-package mml)