* .emacs.d/lisp/bandali-erc.el: Small tweaks/fixes.
[~bandali/configs] / .emacs.d / lisp / bandali-gnus.el
CommitLineData
4c05c418
AB
1;;; bandali-gnus.el --- bandali's Gnus setup -*- lexical-binding: t; -*-
2
78d731e1 3;; Copyright (C) 2018-2022 Amin Bandali
4c05c418
AB
4
5;; Author: Amin Bandali <bandali@gnu.org>
6;; Keywords: mail, news
7
8;; This program is free software; you can redistribute it and/or modify
9;; it under the terms of the GNU General Public License as published by
10;; the Free Software Foundation, either version 3 of the License, or
11;; (at your option) any later version.
12
13;; This program is distributed in the hope that it will be useful,
14;; but WITHOUT ANY WARRANTY; without even the implied warranty of
15;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16;; GNU General Public License for more details.
17
18;; You should have received a copy of the GNU General Public License
19;; along with this program. If not, see <https://www.gnu.org/licenses/>.
20
21;;; Commentary:
22
23;; My trusty super awesome Gnus setup.
24
25;;; Code:
26
2087ae39
AB
27(defvar b/maildir (expand-file-name "~/mail/"))
28(with-eval-after-load 'recentf
29 (add-to-list 'recentf-exclude b/maildir))
30
31(defvar b/gnus-init-file (b/etc "gnus"))
32
33(eval-when-compile
34 (progn
35 (defvar nndraft-directory)
36 (defvar gnus-read-newsrc-file)
37 (defvar gnus-save-newsrc-file)
38 (defvar gnus-gcc-mark-as-read)
39 (defvar nnmail-split-abbrev-alist)))
40
41(declare-function article-make-date-line "gnus-art" (date type))
42
78d731e1 43(setq
c84be134
AB
44 mail-user-agent 'gnus-user-agent
45 read-mail-command 'gnus
46
47 gnus-select-method '(nnnil "")
48 gnus-secondary-select-methods
f1b31451
AB
49 `(,@(if (string= (system-name) "darya")
50 '((nnimap
51 "canonical"
52 (nnimap-stream plain)
53 (nnimap-address "127.0.0.1")
54 (nnimap-server-port 143)
55 (nnimap-authenticator plain)
56 (nnimap-user "bandali@canonical.local")))
8ab693f8 57 '((nnimap
3d36fc1a
AB
58 "kelar"
59 (nnimap-stream plain)
60 (nnimap-address "127.0.0.1")
61 (nnimap-server-port 143)
62 (nnimap-authenticator plain)
63 (nnimap-user "bandali@kelar.local"))
64 (nnimap
8ab693f8
AB
65 "shemshak"
66 (nnimap-stream plain)
67 (nnimap-address "127.0.0.1")
68 (nnimap-server-port 143)
69 (nnimap-authenticator plain)
70 (nnimap-user "bandali@shemshak.local"))
71 (nnimap
72 "gnu"
73 (nnimap-stream plain)
74 (nnimap-address "127.0.0.1")
75 (nnimap-server-port 143)
76 (nnimap-authenticator plain)
77 (nnimap-user "bandali@gnu.local")
78 (nnimap-inbox "INBOX")
79 (nnimap-split-methods 'nnimap-split-fancy)
80 (nnimap-split-fancy
81 (|
82 ;; (: gnus-registry-split-fancy-with-parent)
83 ;; (: gnus-group-split-fancy "INBOX" t "INBOX")
ae80aec8
AB
84 ;; spam
85 ("X-Spam_action" "reject" "Junk")
8ab693f8
AB
86 ;; keep debbugs emails in INBOX
87 (list ".*<\\(.*\\)\\.debbugs\\.gnu\\.org>.*" "INBOX")
88 ;; list moderation emails
89 (from ".+-\\(owner\\|bounces\\)@\\(non\\)?gnu\\.org" "listmod")
90 ;; gnu
91 (list ".*<\\(.*\\)\\.\\(non\\)?gnu\\.org>.*" "l.\\1")
3d36fc1a
AB
92 ;; fsf
93 (list ".*<\\(.*\\)\\.fsf\\.org>.*" "l.\\1")
efa912ac
AB
94 ;; debian
95 (list ".*<\\(.*\\)\\.alioth-lists\\.debian\\.net>.*" "l.\\1")
8ab693f8
AB
96 ;; gnus
97 (list ".*<\\(.*\\)\\.gnus\\.org>.*" "l.\\1")
98 ;; libreplanet
99 (list ".*<\\(.*\\)\\.libreplanet\\.org>.*" "l.\\1")
100 ;; iana (e.g. tz-announce)
101 (list ".*<\\(.*\\)\\.iana\\.org>.*" "l.\\1")
3d36fc1a
AB
102 ;; mailop
103 (list ".*<\\(.*\\)\\.mailop\\.org>.*" "l.\\1")
104 ;; sdlu
105 (list ".*<\\(.*\\)\\.spammers\\.dontlike\\.us>.*" "l.sdlu")
106 ;; bitfolk
107 (from ".*@\\(.+\\)?bitfolk\\.com>.*" "bitfolk")
8ab693f8
AB
108 ;; haskell
109 (list ".*<\\(.*\\)\\.haskell\\.org>.*" "l.\\1")
110 ;; *.lists.sr.ht, omitting one dot if present
111 ;; add more \\.?\\([^.]*\\) if needed
112 (list ".*<~\\(.*\\)/\\([^.]*\\)\\.?\\([^.]*\\)\\.lists\\.sr\\.ht>.*" "l.~\\1.\\2\\3")
113 ;; webmasters
114 (from "webmasters\\(-comment\\)?@gnu\\.org" "webmasters")
115 ;; other
116 ("subject" "nagios-fsf:.*" "nagios-fsf")
117 (list ".*atreus.freelists.org" "l.atreus")
118 (list ".*deepspec.lists.cs.princeton.edu" "l.deepspec")
119 ;; (list ".*haskell-art.we.lurk.org" "l.haskell.art") ;d
120 ;; (list ".*notmuch.notmuchmail.org" "l.notmuch") ;u
121 (list ".*dev.lists.parabola.nu" "l.parabola-dev")
122 ;; ----------------------------------
123 ;; legend: (u)nsubscribed | (d)ead
124 ;; ----------------------------------
8ab693f8
AB
125 ;; otherwise, leave mail in INBOX
126 "INBOX")))
8ab693f8
AB
127 (nnimap
128 "csc"
129 (nnimap-stream plain)
130 (nnimap-address "127.0.0.1")
131 (nnimap-server-port 143)
132 (nnimap-authenticator plain)
133 (nnimap-user "abandali@csclub.uwaterloo.local")
134 (nnimap-inbox "INBOX")
135 (nnimap-split-methods 'nnimap-split-fancy)
136 (nnimap-split-fancy
137 (|
138 ;; cron reports and other messages from root
139 (from "root@\\(.*\\.\\)?csclub\\.uwaterloo\\.ca" "INBOX")
140 ;; spam
141 ("X-Spam-Flag" "YES" "Junk")
142 ;; catch-all
f1b31451 143 "INBOX")))
e23aff47
AB
144 (nnimap
145 "sfl"
146 (nnimap-stream plain)
147 (nnimap-address "127.0.0.1")
148 (nnimap-server-port 143)
149 (nnimap-authenticator plain)
150 (nnimap-user "amin.bandali@savoirfairelinux.local")))))
c84be134
AB
151 gnus-message-archive-group "nnimap+gnu:INBOX"
152 gnus-parameters
9867e4bb 153 '(("l\\.deepspec"
c84be134
AB
154 (to-address . "deepspec@lists.cs.princeton.edu")
155 (to-list . "deepspec@lists.cs.princeton.edu")
156 (list-identifier . "\\[deepspec\\]"))
c84be134
AB
157 ("l\\.fencepost-users"
158 (to-address . "fencepost-users@gnu.org")
159 (to-list . "fencepost-users@gnu.org")
160 (list-identifier . "\\[Fencepost-users\\]"))
c84be134
AB
161 ("l\\.haskell-cafe"
162 (to-address . "haskell-cafe@haskell.org")
163 (to-list . "haskell-cafe@haskell.org")
164 (list-identifier . "\\[Haskell-cafe\\]"))
c84be134 165 ("gnu.*"
c84be134
AB
166 (gcc-self . t)))
167 ;; nnimap-record-commands t
41fb7da0 168 ;; gnus-large-newsgroup 50
52b7a57a 169 ;; gnus-process-mark-toggle t
c84be134
AB
170 gnus-home-directory (b/var "gnus/")
171 gnus-directory (concat gnus-home-directory "news/")
172 message-directory (concat gnus-home-directory "mail/")
173 nndraft-directory (concat gnus-home-directory "drafts/")
174 gnus-save-newsrc-file nil
175 gnus-read-newsrc-file nil
adba94a7 176 gnus-search-use-parsed-queries t
c84be134
AB
177 gnus-interactive-exit nil
178 gnus-gcc-mark-as-read t)
179
180(with-eval-after-load 'gnus
2087ae39
AB
181 (when (version< emacs-version "27")
182 (with-eval-after-load 'nnmail
183 (add-to-list
184 'nnmail-split-abbrev-alist
185 '(list . "list-id\\|list-post\\|x-mailing-list\\|x-beenthere\\|x-loop")
186 t)))
187
9d3e2900
AB
188 (setq gnus-user-agent '(emacs gnus type))
189
6b09fc8a
AB
190 ;; (require 'gnus-registry)
191 ;; (setq gnus-registry-max-entries 2500)
192 ;; (setq gnus-registry-ignored-groups
193 ;; (append gnus-registry-ignored-groups
194 ;; '(("^nnimap:gnu\\.l" t)
195 ;; ("webmasters$" t))))
2087ae39
AB
196 ;; (gnus-registry-initialize)
197
198 (with-eval-after-load 'recentf
c84be134
AB
199 (add-to-list 'recentf-exclude gnus-home-directory))
200
201 ;; hooks
202 (add-hook 'gnus-group-mode-hook #'gnus-topic-mode)
203 (add-hook 'gnus-group-mode-hook #'gnus-agent-mode))
204;; global key bindings
55ac7968
AB
205(global-set-key (kbd "C-c g") #'gnus-plugged)
206(global-set-key (kbd "C-c G") #'gnus-unplugged)
2087ae39 207
c84be134 208(with-eval-after-load 'gnus-art
78d731e1 209 (setq
2087ae39
AB
210 gnus-buttonized-mime-types '("multipart/\\(signed\\|encrypted\\)")
211 gnus-sorted-header-list '("^From:"
212 "^X-RT-Originator"
213 "^Newsgroups:"
214 "^Subject:"
215 "^Date:"
216 "^Envelope-To:"
217 "^Followup-To:"
218 "^Reply-To:"
219 "^Organization:"
220 "^Summary:"
221 "^Abstract:"
222 "^Keywords:"
223 "^To:"
224 "^[BGF]?Cc:"
225 "^Posted-To:"
226 "^Mail-Copies-To:"
227 "^Mail-Followup-To:"
228 "^Apparently-To:"
229 "^Resent-From:"
230 "^User-Agent:"
231 "^X-detected-operating-system:"
6b09fc8a
AB
232 "^X-Spam_action:"
233 "^X-Spam_bar:"
2087ae39
AB
234 "^Message-ID:"
235 ;; "^References:"
236 "^List-Id:"
237 "^Gnus-Warning:")
f1b31451 238 gnus-visible-headers (mapconcat #'identity
2087ae39
AB
239 gnus-sorted-header-list
240 "\\|")
241 ;; local-lapsed article dates
242 ;; from https://www.emacswiki.org/emacs/GnusFormatting#toc11
243 gnus-article-date-headers '(user-defined)
244 gnus-article-time-format
245 (lambda (time)
246 (let* ((date (format-time-string "%a, %d %b %Y %T %z" time))
247 (local (article-make-date-line date 'local))
248 (combined-lapsed (article-make-date-line date
249 'combined-lapsed))
250 (lapsed (progn
251 (string-match " (.+" combined-lapsed)
252 (match-string 0 combined-lapsed))))
253 (concat local lapsed))))
c84be134 254 ;; local key bindings
41fb7da0 255 (declare-function org-store-link "ol" (arg &optional interactive?))
c84be134
AB
256 (define-key gnus-article-mode-map (kbd "M-L") #'org-store-link))
257
258(with-eval-after-load 'gnus-sum
78d731e1
AB
259 (setq gnus-thread-sort-functions '(gnus-thread-sort-by-number
260 gnus-thread-sort-by-subject
261 gnus-thread-sort-by-date))
75984354
AB
262 (with-eval-after-load 'message
263 (setq gnus-ignored-from-addresses message-dont-reply-to-names))
c84be134
AB
264 ;; local key bindings
265 (define-key gnus-summary-mode-map (kbd "M-L") #'org-store-link)
5efecfcd
AB
266 ;; (define-key gnus-summary-mode-map (kbd "r")
267 ;; #'gnus-summary-reply-with-original)
268 ;; (define-key gnus-summary-mode-map (kbd "R")
269 ;; #'gnus-summary-wide-reply-with-original)
c84be134
AB
270 (defvar b/gnus-summary-prefix-map)
271 (define-prefix-command 'b/gnus-summary-prefix-map)
272 (define-key gnus-summary-mode-map (kbd "v")
273 'b/gnus-summary-prefix-map)
274 (define-key b/gnus-summary-prefix-map (kbd "r")
275 #'gnus-summary-reply)
276 (define-key b/gnus-summary-prefix-map (kbd "w")
277 #'gnus-summary-wide-reply)
278 (define-key b/gnus-summary-prefix-map (kbd "v")
279 #'gnus-summary-show-raw-article))
280;; hooks
281(add-hook 'gnus-summary-mode-hook #'b/no-mouse-autoselect-window)
282
283(defvar b/sfl-p nil)
284(with-eval-after-load 'gnus-msg
f1b31451 285 (let ((bandali "Amin Bandali (https://kelar.org/~bandali)"))
f1b31451
AB
286 (defvar b/csc-signature
287 (mapconcat
288 #'identity
289 `(,bandali
290 "Systems Committee <syscom@csclub.uwaterloo.ca>"
291 "Computer Science Club of the University of Waterloo")
292 "\n"))
293 (defvar b/sfl-signature
294 (mapconcat
295 #'identity
296 `(,bandali
297 "Volunteer, Savoir-faire Linux"
298 "jami:bandali")
299 "\n")))
78d731e1 300 (setq
c84be134
AB
301 gnus-message-replysign t
302 gnus-posting-styles
303 '((".*"
a220fb5b
AB
304 (address "bandali@gnu.org")
305 ("X-Message-SMTP-Method" "smtp fencepost.gnu.org 587"))
c84be134
AB
306 ((header "subject" "ThankCRM")
307 (to "webmasters-comment@gnu.org")
f1b31451 308 (body ""))
3d36fc1a
AB
309 ("nnimap\\+kelar:.*"
310 (address "bandali@kelar.org")
311 ("X-Message-SMTP-Method" "smtp mail.kelar.org 587")
f1b31451 312 (gcc "nnimap+kelar:Sent"))
c84be134
AB
313 ("nnimap\\+shemshak:.*"
314 (address "amin@shemshak.org")
a220fb5b 315 ("X-Message-SMTP-Method" "smtp mail.shemshak.org 587")
f1b31451
AB
316 (gcc "nnimap+shemshak:Sent"))
317 ("nnimap\\+canonical:.*"
75984354 318 (address "bandali@canonical.com")
f1b31451 319 ("X-Message-SMTP-Method" "smtp smtp.canonical.com 587")
08a15504 320 (signature nil)
f1b31451 321 (gcc "nnimap+canonical:Sent"))
e5cb5c0e
AB
322 ((header "list-id" ".*\\.lists.ubuntu.com")
323 (address "bandali@ubuntu.com")
324 ("X-Message-SMTP-Method" "smtp mail.kelar.org 587"))
c84be134
AB
325 ("nnimap\\+csc:.*"
326 (address "bandali@csclub.uwaterloo.ca")
a220fb5b 327 ("X-Message-SMTP-Method" "smtp mail.csclub.uwaterloo.ca 587")
c84be134
AB
328 (signature b/csc-signature)
329 (gcc "nnimap+csc:Sent"))
330 ("nnimap\\+sfl:.*"
331 (address "amin.bandali@savoirfairelinux.com")
a220fb5b 332 ("X-Message-SMTP-Method" "smtp mail.savoirfairelinux.com 587")
f1b31451
AB
333 (signature b/sfl-signature)
334 (eval (setq-local b/sfl-p t))
335 (gcc "nnimap+sfl:Sent")))))
c84be134 336;; hooks
9867e4bb
AB
337;; (with-eval-after-load 'gnus
338;; (add-hook 'gnus-message-setup-hook
339;; (lambda ()
340;; (unless (or (mml-secure-is-encrypted-p)
341;; b/sfl-p)
342;; (mml-secure-message-sign)))))
c84be134
AB
343
344(with-eval-after-load 'gnus-topic
78d731e1 345 (setq
41fb7da0 346 gnus-topic-line-format "%i[ %A: %(%{%n%}%) ]%v\n"
8ab693f8
AB
347 gnus-topic-topology
348 `(("Gnus" visible nil nil)
349 (("misc" visible nil nil))
f1b31451
AB
350 ,@(if (string= (system-name) "darya")
351 '((("canonical" visible nil nil)))
8ab693f8 352 '((("csc" visible nil nil))
3d36fc1a 353 (("kelar" visible nil nil))
8ab693f8
AB
354 (("shemshak" visible nil nil))
355 (("gnu" visible nil nil))
f1b31451
AB
356 (("old-gnu" visible nil nil))
357 (("sfl" visible nil nil)))))))
c84be134
AB
358
359(with-eval-after-load 'gnus-agent
78d731e1 360 (setq gnus-agent-synchronize-flags 'ask))
c84be134
AB
361
362(with-eval-after-load 'gnus-group
78d731e1 363 (setq gnus-permanently-visible-groups "\\(:INBOX$\\|:gnu$\\)"))
2087ae39 364
bc04a4d4 365(with-eval-after-load 'gnus-win
78d731e1 366 (setq gnus-use-full-window nil))
2087ae39 367
c84be134 368(with-eval-after-load 'gnus-dired
2087ae39
AB
369 (add-hook 'dired-mode-hook 'gnus-dired-mode))
370
05d1c1ac
AB
371(with-eval-after-load 'mm-archive
372 (add-to-list
373 'mm-archive-decoders
374 '("application/gzip" nil "gunzip" "-S" ".zip" "-kd" "%f" "-r")))
375
75984354
AB
376(with-eval-after-load 'gnus-start
377 (add-hook 'gnus-after-getting-new-news-hook #'gnus-notifications))
378
c84be134 379(with-eval-after-load 'mm-decode
78d731e1
AB
380 (setq
381 ;; mm-attachment-override-types `("text/x-diff" "text/x-patch"
382 ;; ,@mm-attachment-override-types)
383 mm-discouraged-alternatives '("text/html" "text/richtext")
384 mm-decrypt-option 'known
05d1c1ac
AB
385 mm-verify-option 'known)
386 (add-to-list
387 'mm-inline-media-tests
388 `("application/gzip" mm-archive-dissect-and-inline identity))
389 (add-to-list 'mm-inlined-types "application/gzip" 'append))
c84be134
AB
390
391(with-eval-after-load 'mm-uu
2087ae39
AB
392 (when (version< "27" emacs-version)
393 (set-face-attribute 'mm-uu-extract nil :extend t))
7c558c9b 394 (when (version< emacs-version "27")
78d731e1 395 (setq mm-uu-diff-groups-regexp ".")))
c84be134
AB
396
397(with-eval-after-load 'mml-sec
78d731e1
AB
398 (setq mml-secure-openpgp-encrypt-to-self t
399 mml-secure-openpgp-sign-with-sender t))
c84be134 400
2087ae39 401(provide 'bandali-gnus)
4c05c418 402;;; bandali-gnus.el ends here