summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--.emacs.d/init.el2
-rw-r--r--.emacs.d/lisp/bandali-gnus.el22
2 files changed, 18 insertions, 6 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 1383003..c3c9d1e 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -633,6 +633,8 @@ for all frames."
(setq shr-max-width 80)
;; Email (with Gnus, message, and smtpmail)
+;; (with-eval-after-load 'sendmail
+;; (setq mail-header-separator ""))
(require 'bandali-gnus)
(require 'bandali-message)
;; (with-eval-after-load 'smtpmail
diff --git a/.emacs.d/lisp/bandali-gnus.el b/.emacs.d/lisp/bandali-gnus.el
index fa05a00..75ecab6 100644
--- a/.emacs.d/lisp/bandali-gnus.el
+++ b/.emacs.d/lisp/bandali-gnus.el
@@ -60,7 +60,14 @@
(nnimap-address "127.0.0.1")
(nnimap-server-port 143)
(nnimap-authenticator plain)
- (nnimap-user "bandali@kelar.local"))
+ (nnimap-user "bandali@kelar.local")
+ (nnimap-inbox "INBOX")
+ (nnimap-split-methods 'nnimap-split-fancy)
+ (nnimap-split-fancy
+ (|
+ ("subject" "nagios-fsf:.*" "nagios-fsf")
+ ;; otherwise, leave mail in INBOX
+ "INBOX")))
(nnimap
"shemshak"
(nnimap-stream plain)
@@ -91,7 +98,10 @@
(list ".*<\\(.*\\)\\.\\(non\\)?gnu\\.org>.*" "l.\\1")
;; fsf
(list ".*<\\(.*\\)\\.fsf\\.org>.*" "l.\\1")
+ ;; cfarm
+ (from "cfarm-.*@lists\\.tetaneutral\\.net" "l.cfarm")
;; debian
+ (list ".*<\\(.*\\)\\.\\(lists\\|other\\)\\.debian\\.org>.*" "l.\\1")
(list ".*<\\(.*\\)\\.alioth-lists\\.debian\\.net>.*" "l.\\1")
;; gnus
(list ".*<\\(.*\\)\\.gnus\\.org>.*" "l.\\1")
@@ -113,7 +123,6 @@
;; webmasters
(from "webmasters\\(-comment\\)?@gnu\\.org" "webmasters")
;; other
- ("subject" "nagios-fsf:.*" "nagios-fsf")
(list ".*atreus.freelists.org" "l.atreus")
(list ".*deepspec.lists.cs.princeton.edu" "l.deepspec")
;; (list ".*haskell-art.we.lurk.org" "l.haskell.art") ;d
@@ -282,11 +291,11 @@
(defvar b/sfl-p nil)
(with-eval-after-load 'gnus-msg
- (let ((bandali "Amin Bandali (https://kelar.org/~bandali)"))
+ (let ((bandali "Amin Bandali%s - https://www.gnu.ca/~bandali/"))
(defvar b/csc-signature
(mapconcat
#'identity
- `(,bandali
+ `(,(format bandali ", MMath")
"Systems Committee <syscom@csclub.uwaterloo.ca>"
"Computer Science Club of the University of Waterloo")
"\n"))
@@ -296,7 +305,8 @@
`(,bandali
"Volunteer, Savoir-faire Linux"
"jami:bandali")
- "\n")))
+ "\n")
+ "")) ; the "" is for bandali's %s
(setq
gnus-message-replysign t
gnus-posting-styles
@@ -357,7 +367,7 @@
(("kelar" visible nil nil))
(("shemshak" visible nil nil))
(("gnu" visible nil nil))
- (("old-gnu" visible nil nil))
+ ;(("old-gnu" visible nil nil))
(("sfl" visible nil nil)))))))
(with-eval-after-load 'gnus-agent