* .emacs.d/init.el: Require a few more Debian things.
[~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
6b09fc8a
AB
188 ;; (require 'gnus-registry)
189 ;; (setq gnus-registry-max-entries 2500)
190 ;; (setq gnus-registry-ignored-groups
191 ;; (append gnus-registry-ignored-groups
192 ;; '(("^nnimap:gnu\\.l" t)
193 ;; ("webmasters$" t))))
2087ae39
AB
194 ;; (gnus-registry-initialize)
195
196 (with-eval-after-load 'recentf
c84be134
AB
197 (add-to-list 'recentf-exclude gnus-home-directory))
198
199 ;; hooks
200 (add-hook 'gnus-group-mode-hook #'gnus-topic-mode)
201 (add-hook 'gnus-group-mode-hook #'gnus-agent-mode))
202;; global key bindings
55ac7968
AB
203(global-set-key (kbd "C-c g") #'gnus-plugged)
204(global-set-key (kbd "C-c G") #'gnus-unplugged)
2087ae39 205
c84be134 206(with-eval-after-load 'gnus-art
78d731e1 207 (setq
2087ae39
AB
208 gnus-buttonized-mime-types '("multipart/\\(signed\\|encrypted\\)")
209 gnus-sorted-header-list '("^From:"
210 "^X-RT-Originator"
211 "^Newsgroups:"
212 "^Subject:"
213 "^Date:"
214 "^Envelope-To:"
215 "^Followup-To:"
216 "^Reply-To:"
217 "^Organization:"
218 "^Summary:"
219 "^Abstract:"
220 "^Keywords:"
221 "^To:"
222 "^[BGF]?Cc:"
223 "^Posted-To:"
224 "^Mail-Copies-To:"
225 "^Mail-Followup-To:"
226 "^Apparently-To:"
227 "^Resent-From:"
228 "^User-Agent:"
229 "^X-detected-operating-system:"
6b09fc8a
AB
230 "^X-Spam_action:"
231 "^X-Spam_bar:"
2087ae39
AB
232 "^Message-ID:"
233 ;; "^References:"
234 "^List-Id:"
235 "^Gnus-Warning:")
f1b31451 236 gnus-visible-headers (mapconcat #'identity
2087ae39
AB
237 gnus-sorted-header-list
238 "\\|")
239 ;; local-lapsed article dates
240 ;; from https://www.emacswiki.org/emacs/GnusFormatting#toc11
241 gnus-article-date-headers '(user-defined)
242 gnus-article-time-format
243 (lambda (time)
244 (let* ((date (format-time-string "%a, %d %b %Y %T %z" time))
245 (local (article-make-date-line date 'local))
246 (combined-lapsed (article-make-date-line date
247 'combined-lapsed))
248 (lapsed (progn
249 (string-match " (.+" combined-lapsed)
250 (match-string 0 combined-lapsed))))
251 (concat local lapsed))))
c84be134 252 ;; local key bindings
41fb7da0 253 (declare-function org-store-link "ol" (arg &optional interactive?))
c84be134
AB
254 (define-key gnus-article-mode-map (kbd "M-L") #'org-store-link))
255
256(with-eval-after-load 'gnus-sum
78d731e1
AB
257 (setq gnus-thread-sort-functions '(gnus-thread-sort-by-number
258 gnus-thread-sort-by-subject
259 gnus-thread-sort-by-date))
c84be134
AB
260 ;; local key bindings
261 (define-key gnus-summary-mode-map (kbd "M-L") #'org-store-link)
5efecfcd
AB
262 ;; (define-key gnus-summary-mode-map (kbd "r")
263 ;; #'gnus-summary-reply-with-original)
264 ;; (define-key gnus-summary-mode-map (kbd "R")
265 ;; #'gnus-summary-wide-reply-with-original)
c84be134
AB
266 (defvar b/gnus-summary-prefix-map)
267 (define-prefix-command 'b/gnus-summary-prefix-map)
268 (define-key gnus-summary-mode-map (kbd "v")
269 'b/gnus-summary-prefix-map)
270 (define-key b/gnus-summary-prefix-map (kbd "r")
271 #'gnus-summary-reply)
272 (define-key b/gnus-summary-prefix-map (kbd "w")
273 #'gnus-summary-wide-reply)
274 (define-key b/gnus-summary-prefix-map (kbd "v")
275 #'gnus-summary-show-raw-article))
276;; hooks
277(add-hook 'gnus-summary-mode-hook #'b/no-mouse-autoselect-window)
278
279(defvar b/sfl-p nil)
280(with-eval-after-load 'gnus-msg
f1b31451 281 (let ((bandali "Amin Bandali (https://kelar.org/~bandali)"))
f1b31451
AB
282 (defvar b/csc-signature
283 (mapconcat
284 #'identity
285 `(,bandali
286 "Systems Committee <syscom@csclub.uwaterloo.ca>"
287 "Computer Science Club of the University of Waterloo")
288 "\n"))
289 (defvar b/sfl-signature
290 (mapconcat
291 #'identity
292 `(,bandali
293 "Volunteer, Savoir-faire Linux"
294 "jami:bandali")
295 "\n")))
78d731e1 296 (setq
c84be134
AB
297 gnus-message-replysign t
298 gnus-posting-styles
299 '((".*"
a220fb5b
AB
300 (address "bandali@gnu.org")
301 ("X-Message-SMTP-Method" "smtp fencepost.gnu.org 587"))
c84be134
AB
302 ((header "subject" "ThankCRM")
303 (to "webmasters-comment@gnu.org")
f1b31451 304 (body ""))
3d36fc1a
AB
305 ("nnimap\\+kelar:.*"
306 (address "bandali@kelar.org")
307 ("X-Message-SMTP-Method" "smtp mail.kelar.org 587")
f1b31451 308 (gcc "nnimap+kelar:Sent"))
c84be134
AB
309 ("nnimap\\+shemshak:.*"
310 (address "amin@shemshak.org")
a220fb5b 311 ("X-Message-SMTP-Method" "smtp mail.shemshak.org 587")
f1b31451
AB
312 (gcc "nnimap+shemshak:Sent"))
313 ("nnimap\\+canonical:.*"
314 (address "amin.bandali@canonical.com")
315 ("X-Message-SMTP-Method" "smtp smtp.canonical.com 587")
08a15504 316 (signature nil)
f1b31451 317 (gcc "nnimap+canonical:Sent"))
c84be134
AB
318 ("nnimap\\+csc:.*"
319 (address "bandali@csclub.uwaterloo.ca")
a220fb5b 320 ("X-Message-SMTP-Method" "smtp mail.csclub.uwaterloo.ca 587")
c84be134
AB
321 (signature b/csc-signature)
322 (gcc "nnimap+csc:Sent"))
323 ("nnimap\\+sfl:.*"
324 (address "amin.bandali@savoirfairelinux.com")
a220fb5b 325 ("X-Message-SMTP-Method" "smtp mail.savoirfairelinux.com 587")
f1b31451
AB
326 (signature b/sfl-signature)
327 (eval (setq-local b/sfl-p t))
328 (gcc "nnimap+sfl:Sent")))))
c84be134 329;; hooks
9867e4bb
AB
330;; (with-eval-after-load 'gnus
331;; (add-hook 'gnus-message-setup-hook
332;; (lambda ()
333;; (unless (or (mml-secure-is-encrypted-p)
334;; b/sfl-p)
335;; (mml-secure-message-sign)))))
c84be134
AB
336
337(with-eval-after-load 'gnus-topic
78d731e1 338 (setq
41fb7da0 339 gnus-topic-line-format "%i[ %A: %(%{%n%}%) ]%v\n"
8ab693f8
AB
340 gnus-topic-topology
341 `(("Gnus" visible nil nil)
342 (("misc" visible nil nil))
f1b31451
AB
343 ,@(if (string= (system-name) "darya")
344 '((("canonical" visible nil nil)))
8ab693f8 345 '((("csc" visible nil nil))
3d36fc1a 346 (("kelar" visible nil nil))
8ab693f8
AB
347 (("shemshak" visible nil nil))
348 (("gnu" visible nil nil))
f1b31451
AB
349 (("old-gnu" visible nil nil))
350 (("sfl" visible nil nil)))))))
c84be134
AB
351
352(with-eval-after-load 'gnus-agent
78d731e1 353 (setq gnus-agent-synchronize-flags 'ask))
c84be134
AB
354
355(with-eval-after-load 'gnus-group
78d731e1 356 (setq gnus-permanently-visible-groups "\\(:INBOX$\\|:gnu$\\)"))
2087ae39 357
bc04a4d4 358(with-eval-after-load 'gnus-win
78d731e1 359 (setq gnus-use-full-window nil))
2087ae39 360
c84be134 361(with-eval-after-load 'gnus-dired
2087ae39
AB
362 (add-hook 'dired-mode-hook 'gnus-dired-mode))
363
05d1c1ac
AB
364(with-eval-after-load 'mm-archive
365 (add-to-list
366 'mm-archive-decoders
367 '("application/gzip" nil "gunzip" "-S" ".zip" "-kd" "%f" "-r")))
368
c84be134 369(with-eval-after-load 'mm-decode
78d731e1
AB
370 (setq
371 ;; mm-attachment-override-types `("text/x-diff" "text/x-patch"
372 ;; ,@mm-attachment-override-types)
373 mm-discouraged-alternatives '("text/html" "text/richtext")
374 mm-decrypt-option 'known
05d1c1ac
AB
375 mm-verify-option 'known)
376 (add-to-list
377 'mm-inline-media-tests
378 `("application/gzip" mm-archive-dissect-and-inline identity))
379 (add-to-list 'mm-inlined-types "application/gzip" 'append))
c84be134
AB
380
381(with-eval-after-load 'mm-uu
2087ae39
AB
382 (when (version< "27" emacs-version)
383 (set-face-attribute 'mm-uu-extract nil :extend t))
7c558c9b 384 (when (version< emacs-version "27")
78d731e1 385 (setq mm-uu-diff-groups-regexp ".")))
c84be134
AB
386
387(with-eval-after-load 'mml-sec
78d731e1
AB
388 (setq mml-secure-openpgp-encrypt-to-self t
389 mml-secure-openpgp-sign-with-sender t))
c84be134 390
2087ae39 391(provide 'bandali-gnus)
4c05c418 392;;; bandali-gnus.el ends here