A few small accumulated changes

[~bandali/configs] / lisp / bandali-gnus.el

diff --git a/lisp/bandali-gnus.el b/lisp/bandali-gnus.el
index a5e5135..3759dcf 100644 (file)
--- a/lisp/bandali-gnus.el
+++ b/lisp/bandali-gnus.el
@@ -70,6 +70,8 @@
              (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
@@ -78,9 +80,11 @@
                                   (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
@@ -89,7 +93,7 @@
                                   ;; (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
                                   ;; ----------------------------------
@@ -121,6 +125,8 @@
              (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
@@ -156,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"))
@@ -441,9 +453,9 @@ Computer Science Club, University of Waterloo")
   :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)