projects
/
~bandali
/
configs
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
A few small accumulated changes
[~bandali/configs]
/
lisp
/
bandali-gnus.el
diff --git
a/lisp/bandali-gnus.el
b/lisp/bandali-gnus.el
index
180e82a
..
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")
(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
;; 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")
(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
;; *.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
;; 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 ".*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
;; ----------------------------------
;; ----------------------------------
;; legend: (u)nsubscribed | (d)ead
;; ----------------------------------
@@
-121,6
+125,8
@@
(nnimap-inbox "INBOX")
(nnimap-split-methods 'nnimap-split-fancy)
(nnimap-split-fancy (|
(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
;; 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-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"))
("l\\.emacsconf-register"
(to-address . "emacsconf-register@gnu.org")
(to-list . "emacsconf-register@gnu.org"))
@@
-362,15
+374,14
@@
(use-package gnus-msg
:config
(defvar b/shemshak-signature "Amin Bandali
(use-package gnus-msg
:config
(defvar b/shemshak-signature "Amin Bandali
-https://shemshak.org/~
amin
")
- (defvar b/uwaterloo-signature "Amin Bandali, MMath
Candidate
+https://shemshak.org/~
bandali
")
+ (defvar b/uwaterloo-signature "Amin Bandali, MMath
Cheriton School of Computer Science
University of Waterloo
https://bndl.org")
Cheriton School of Computer Science
University of Waterloo
https://bndl.org")
- (defvar b/csc-signature "Amin Bandali
+ (defvar b/csc-signature "Amin Bandali
| https://bndl.org
System Administrator, Systems Committee
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
'((".*"
(setq gnus-message-replysign t
gnus-posting-styles
'((".*"
@@
-442,9
+453,9
@@
https://csclub.uwaterloo.ca/~abandali")
:config
(when (version< "27" emacs-version)
(set-face-attribute 'mm-uu-extract nil :extend t))
: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)
(use-package mml)