X-Git-Url: https://git.shemshak.org/gitweb.cgi/~bandali/configs/blobdiff_plain/52b7a57ab5dea7e6f05be7d20f5a8918988f5a6f..8d2509621f333e2fd04b936ac48954c464bf6570:/.emacs.d/lisp/bandali-gnus.el diff --git a/.emacs.d/lisp/bandali-gnus.el b/.emacs.d/lisp/bandali-gnus.el index a7fa68d..63c7c00 100644 --- a/.emacs.d/lisp/bandali-gnus.el +++ b/.emacs.d/lisp/bandali-gnus.el @@ -1,6 +1,6 @@ ;;; bandali-gnus.el --- bandali's Gnus setup -*- lexical-binding: t; -*- -;; Copyright (C) 2018-2021 Amin Bandali +;; Copyright (C) 2018-2022 Amin Bandali ;; Author: Amin Bandali ;; Keywords: mail, news @@ -40,15 +40,28 @@ (declare-function article-make-date-line "gnus-art" (date type)) -(csetq +(setq mail-user-agent 'gnus-user-agent read-mail-command 'gnus gnus-select-method '(nnnil "") gnus-secondary-select-methods - `(,@(cond - ((string= (system-name) "langa") + `(,@(if (string= (system-name) "darya") + '((nnimap + "canonical" + (nnimap-stream plain) + (nnimap-address "127.0.0.1") + (nnimap-server-port 143) + (nnimap-authenticator plain) + (nnimap-user "bandali@canonical.local"))) '((nnimap + "kelar" + (nnimap-stream plain) + (nnimap-address "127.0.0.1") + (nnimap-server-port 143) + (nnimap-authenticator plain) + (nnimap-user "bandali@kelar.local")) + (nnimap "shemshak" (nnimap-stream plain) (nnimap-address "127.0.0.1") @@ -68,18 +81,30 @@ (| ;; (: gnus-registry-split-fancy-with-parent) ;; (: gnus-group-split-fancy "INBOX" t "INBOX") + ;; spam + ("X-Spam_action" "reject" "Junk") ;; keep debbugs emails in INBOX (list ".*<\\(.*\\)\\.debbugs\\.gnu\\.org>.*" "INBOX") ;; list moderation emails (from ".+-\\(owner\\|bounces\\)@\\(non\\)?gnu\\.org" "listmod") ;; gnu (list ".*<\\(.*\\)\\.\\(non\\)?gnu\\.org>.*" "l.\\1") + ;; fsf + (list ".*<\\(.*\\)\\.fsf\\.org>.*" "l.\\1") + ;; debian + (list ".*<\\(.*\\)\\.alioth-lists\\.debian\\.net>.*" "l.\\1") ;; gnus (list ".*<\\(.*\\)\\.gnus\\.org>.*" "l.\\1") ;; libreplanet (list ".*<\\(.*\\)\\.libreplanet\\.org>.*" "l.\\1") ;; iana (e.g. tz-announce) (list ".*<\\(.*\\)\\.iana\\.org>.*" "l.\\1") + ;; mailop + (list ".*<\\(.*\\)\\.mailop\\.org>.*" "l.\\1") + ;; sdlu + (list ".*<\\(.*\\)\\.spammers\\.dontlike\\.us>.*" "l.sdlu") + ;; bitfolk + (from ".*@\\(.+\\)?bitfolk\\.com>.*" "bitfolk") ;; haskell (list ".*<\\(.*\\)\\.haskell\\.org>.*" "l.\\1") ;; *.lists.sr.ht, omitting one dot if present @@ -97,27 +122,8 @@ ;; ---------------------------------- ;; legend: (u)nsubscribed | (d)ead ;; ---------------------------------- - ;; spam - ("X-Spam_action" "reject" "Junk") ;; otherwise, leave mail in INBOX "INBOX"))) - (nnimap - "uwaterloo" - (nnimap-stream plain) - (nnimap-address "127.0.0.1") - (nnimap-server-port 143) - (nnimap-authenticator plain) - (nnimap-user "abandali@uwaterloo.local") - (nnimap-inbox "INBOX") - (nnimap-split-methods 'nnimap-split-fancy) - (nnimap-split-fancy - (| - ;; (: gnus-registry-split-fancy-with-parent) - ;; se212-f19 - ("subject" "SE\\s-?212" "course.se212-f19") - (from "SE\\s-?212" "course.se212-f19") - ;; catch-all - "INBOX"))) (nnimap "csc" (nnimap-stream plain) @@ -134,13 +140,14 @@ ;; spam ("X-Spam-Flag" "YES" "Junk") ;; catch-all - "INBOX"))))) - ((string= (system-name) "jirud") - '((nnimap - "sfl" - (nnimap-stream tls) - (nnimap-address "mail.savoirfairelinux.com") - (nnimap-user "amin.bandali")))))) + "INBOX"))) + (nnimap + "sfl" + (nnimap-stream plain) + (nnimap-address "127.0.0.1") + (nnimap-server-port 143) + (nnimap-authenticator plain) + (nnimap-user "amin.bandali@savoirfairelinux.local"))))) gnus-message-archive-group "nnimap+gnu:INBOX" gnus-parameters '(("l\\.deepspec" @@ -156,10 +163,6 @@ (to-list . "haskell-cafe@haskell.org") (list-identifier . "\\[Haskell-cafe\\]")) ("gnu.*" - (gcc-self . t)) - ;; ("l\\." - ;; (subscribed . t)) - ("nnimap\\+uwaterloo:.*" (gcc-self . t))) ;; nnimap-record-commands t ;; gnus-large-newsgroup 50 @@ -197,11 +200,11 @@ (add-hook 'gnus-group-mode-hook #'gnus-topic-mode) (add-hook 'gnus-group-mode-hook #'gnus-agent-mode)) ;; global key bindings -(global-set-key (kbd "C-c m") #'gnus-plugged) -(global-set-key (kbd "C-c M") #'gnus-unplugged) +(global-set-key (kbd "C-c g") #'gnus-plugged) +(global-set-key (kbd "C-c G") #'gnus-unplugged) (with-eval-after-load 'gnus-art - (csetq + (setq gnus-buttonized-mime-types '("multipart/\\(signed\\|encrypted\\)") gnus-sorted-header-list '("^From:" "^X-RT-Originator" @@ -230,7 +233,7 @@ ;; "^References:" "^List-Id:" "^Gnus-Warning:") - gnus-visible-headers (mapconcat 'identity + gnus-visible-headers (mapconcat #'identity gnus-sorted-header-list "\\|") ;; local-lapsed article dates @@ -251,9 +254,11 @@ (define-key gnus-article-mode-map (kbd "M-L") #'org-store-link)) (with-eval-after-load 'gnus-sum - (csetq gnus-thread-sort-functions '(gnus-thread-sort-by-number - gnus-thread-sort-by-subject - gnus-thread-sort-by-date)) + (setq gnus-thread-sort-functions '(gnus-thread-sort-by-number + gnus-thread-sort-by-subject + gnus-thread-sort-by-date)) + (with-eval-after-load 'message + (setq gnus-ignored-from-addresses message-dont-reply-to-names)) ;; local key bindings (define-key gnus-summary-mode-map (kbd "M-L") #'org-store-link) ;; (define-key gnus-summary-mode-map (kbd "r") @@ -275,43 +280,43 @@ (defvar b/sfl-p nil) (with-eval-after-load 'gnus-msg - (defvar b/shemshak-signature "Amin Bandali -https://shemshak.org/~bandali") - (defvar b/uwaterloo-signature "Amin Bandali, MMath -https://shemshak.org/~bandali") - (defvar b/csc-signature "Amin Bandali (https://shemshak.org/~bandali) -Systems Committee -Computer Science Club of the University of Waterloo") - (defvar b/sfl-signature "Amin Bandali -Free Software Consultant -Savoir-faire Linux -jami:bandali") - (csetq + (let ((bandali "Amin Bandali (https://kelar.org/~bandali)")) + (defvar b/csc-signature + (mapconcat + #'identity + `(,bandali + "Systems Committee " + "Computer Science Club of the University of Waterloo") + "\n")) + (defvar b/sfl-signature + (mapconcat + #'identity + `(,bandali + "Volunteer, Savoir-faire Linux" + "jami:bandali") + "\n"))) + (setq gnus-message-replysign t gnus-posting-styles '((".*" (address "bandali@gnu.org") ("X-Message-SMTP-Method" "smtp fencepost.gnu.org 587")) - ;; ("nnimap\\+gnu:l\\..*" - ;; (signature nil)) ((header "subject" "ThankCRM") (to "webmasters-comment@gnu.org") - (body "") - (eval (setq b/message-cite-say-hi nil))) + (body "")) + ("nnimap\\+kelar:.*" + (address "bandali@kelar.org") + ("X-Message-SMTP-Method" "smtp mail.kelar.org 587") + (gcc "nnimap+kelar:Sent")) ("nnimap\\+shemshak:.*" (address "amin@shemshak.org") ("X-Message-SMTP-Method" "smtp mail.shemshak.org 587") - (body "\nBest,\n") - (signature b/shemshak-signature) - (gcc "nnimap+shemshak:Sent") - (eval (setq b/message-cite-say-hi t))) - ("nnimap\\+uwaterloo:.*" - (address "bandali@uwaterloo.ca") - ("X-Message-SMTP-Method" "smtp connect.uwaterloo.ca 587") - (body "\nBest,\n") - (signature b/uwaterloo-signature)) - ("nnimap\\+uwaterloo:INBOX" - (gcc "\"nnimap+uwaterloo:Sent Items\"")) + (gcc "nnimap+shemshak:Sent")) + ("nnimap\\+canonical:.*" + (address "bandali@canonical.com") + ("X-Message-SMTP-Method" "smtp smtp.canonical.com 587") + (signature nil) + (gcc "nnimap+canonical:Sent")) ("nnimap\\+csc:.*" (address "bandali@csclub.uwaterloo.ca") ("X-Message-SMTP-Method" "smtp mail.csclub.uwaterloo.ca 587") @@ -319,10 +324,10 @@ jami:bandali") (gcc "nnimap+csc:Sent")) ("nnimap\\+sfl:.*" (address "amin.bandali@savoirfairelinux.com") - (signature b/sfl-signature) ("X-Message-SMTP-Method" "smtp mail.savoirfairelinux.com 587") - (gcc "nnimap+sfl:Sent") - (eval (setq-local b/sfl-p t)))))) + (signature b/sfl-signature) + (eval (setq-local b/sfl-p t)) + (gcc "nnimap+sfl:Sent"))))) ;; hooks ;; (with-eval-after-load 'gnus ;; (add-hook 'gnus-message-setup-hook @@ -332,49 +337,61 @@ jami:bandali") ;; (mml-secure-message-sign))))) (with-eval-after-load 'gnus-topic - (csetq + (setq gnus-topic-line-format "%i[ %A: %(%{%n%}%) ]%v\n" gnus-topic-topology `(("Gnus" visible nil nil) (("misc" visible nil nil)) - ,@(cond - ((string= (system-name) "jirud") - '((("sfl" visible nil nil)))) - ((string= (system-name) "langa") + ,@(if (string= (system-name) "darya") + '((("canonical" visible nil nil))) '((("csc" visible nil nil)) - (("uwaterloo" visible nil nil)) + (("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 - (csetq gnus-agent-synchronize-flags 'ask)) + (setq gnus-agent-synchronize-flags 'ask)) (with-eval-after-load 'gnus-group - (csetq gnus-permanently-visible-groups "\\(:INBOX$\\|:gnu$\\)")) + (setq gnus-permanently-visible-groups "\\(:INBOX$\\|:gnu$\\)")) (with-eval-after-load 'gnus-win - (csetq gnus-use-full-window nil)) + (setq gnus-use-full-window nil)) (with-eval-after-load 'gnus-dired (add-hook 'dired-mode-hook 'gnus-dired-mode)) +(with-eval-after-load 'mm-archive + (add-to-list + 'mm-archive-decoders + '("application/gzip" nil "gunzip" "-S" ".zip" "-kd" "%f" "-r"))) + +(with-eval-after-load 'gnus-start + (add-hook 'gnus-after-getting-new-news-hook #'gnus-notifications)) + (with-eval-after-load 'mm-decode - (csetq ;; mm-attachment-override-types `("text/x-diff" "text/x-patch" - ;; ,@mm-attachment-override-types) - mm-discouraged-alternatives '("text/html" "text/richtext") - mm-decrypt-option 'known - mm-verify-option 'known)) + (setq + ;; mm-attachment-override-types `("text/x-diff" "text/x-patch" + ;; ,@mm-attachment-override-types) + mm-discouraged-alternatives '("text/html" "text/richtext") + mm-decrypt-option 'known + mm-verify-option 'known) + (add-to-list + 'mm-inline-media-tests + `("application/gzip" mm-archive-dissect-and-inline identity)) + (add-to-list 'mm-inlined-types "application/gzip" 'append)) (with-eval-after-load 'mm-uu (when (version< "27" emacs-version) (set-face-attribute 'mm-uu-extract nil :extend t)) (when (version< emacs-version "27") - (csetq mm-uu-diff-groups-regexp "."))) + (setq mm-uu-diff-groups-regexp "."))) (with-eval-after-load 'mml-sec - (csetq mml-secure-openpgp-encrypt-to-self t - mml-secure-openpgp-sign-with-sender t)) + (setq mml-secure-openpgp-encrypt-to-self t + mml-secure-openpgp-sign-with-sender t)) (provide 'bandali-gnus) ;;; bandali-gnus.el ends here