git.shemshak.org - ~bandali/configs/blob - .emacs.d/lisp/bandali-gnus.el

   1 ;;; bandali-gnus.el --- bandali's Gnus setup         -*- lexical-binding: t; -*-
   2
   3 ;; Copyright (C) 2018-2022  Amin Bandali
   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
  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
  43 (setq
  44  mail-user-agent 'gnus-user-agent
  45  read-mail-command 'gnus
  46
  47  gnus-select-method '(nnnil "")
  48  gnus-secondary-select-methods
  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")))
  57        '((nnimap
  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
  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")
  84             ;; spam
  85             ("X-Spam_action" "reject" "Junk")
  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")
  92             ;; fsf
  93             (list ".*<\\(.*\\)\\.fsf\\.org>.*" "l.\\1")
  94             ;; gnus
  95             (list ".*<\\(.*\\)\\.gnus\\.org>.*" "l.\\1")
  96             ;; libreplanet
  97             (list ".*<\\(.*\\)\\.libreplanet\\.org>.*" "l.\\1")
  98             ;; iana (e.g. tz-announce)
  99             (list ".*<\\(.*\\)\\.iana\\.org>.*" "l.\\1")
 100             ;; mailop
 101             (list ".*<\\(.*\\)\\.mailop\\.org>.*" "l.\\1")
 102             ;; sdlu
 103             (list ".*<\\(.*\\)\\.spammers\\.dontlike\\.us>.*" "l.sdlu")
 104             ;; bitfolk
 105             (from ".*@\\(.+\\)?bitfolk\\.com>.*" "bitfolk")
 106             ;; haskell
 107             (list ".*<\\(.*\\)\\.haskell\\.org>.*" "l.\\1")
 108             ;; *.lists.sr.ht, omitting one dot if present
 109             ;;    add more \\.?\\([^.]*\\) if needed
 110             (list ".*<~\\(.*\\)/\\([^.]*\\)\\.?\\([^.]*\\)\\.lists\\.sr\\.ht>.*" "l.~\\1.\\2\\3")
 111             ;; webmasters
 112             (from "webmasters\\(-comment\\)?@gnu\\.org" "webmasters")
 113             ;; other
 114             ("subject" "nagios-fsf:.*" "nagios-fsf")
 115             (list ".*atreus.freelists.org" "l.atreus")
 116             (list ".*deepspec.lists.cs.princeton.edu" "l.deepspec")
 117             ;; (list ".*haskell-art.we.lurk.org" "l.haskell.art") ;d
 118             ;; (list ".*notmuch.notmuchmail.org" "l.notmuch") ;u
 119             (list ".*dev.lists.parabola.nu" "l.parabola-dev")
 120             ;; ----------------------------------
 121             ;; legend: (u)nsubscribed | (d)ead
 122             ;; ----------------------------------
 123             ;; otherwise, leave mail in INBOX
 124             "INBOX")))
 125          (nnimap
 126           "uwaterloo"
 127           (nnimap-stream plain)
 128           (nnimap-address "127.0.0.1")
 129           (nnimap-server-port 143)
 130           (nnimap-authenticator plain)
 131           (nnimap-user "abandali@uwaterloo.local")
 132           (nnimap-inbox "INBOX")
 133           (nnimap-split-methods 'nnimap-split-fancy)
 134           (nnimap-split-fancy
 135            (|
 136             ;; (: gnus-registry-split-fancy-with-parent)
 137             ;; se212-f19
 138             ("subject" "SE\\s-?212" "course.se212-f19")
 139             (from "SE\\s-?212" "course.se212-f19")
 140             ;; catch-all
 141             "INBOX")))
 142          (nnimap
 143           "csc"
 144           (nnimap-stream plain)
 145           (nnimap-address "127.0.0.1")
 146           (nnimap-server-port 143)
 147           (nnimap-authenticator plain)
 148           (nnimap-user "abandali@csclub.uwaterloo.local")
 149           (nnimap-inbox "INBOX")
 150           (nnimap-split-methods 'nnimap-split-fancy)
 151           (nnimap-split-fancy
 152            (|
 153             ;; cron reports and other messages from root
 154             (from "root@\\(.*\\.\\)?csclub\\.uwaterloo\\.ca" "INBOX")
 155             ;; spam
 156             ("X-Spam-Flag" "YES" "Junk")
 157             ;; catch-all
 158             "INBOX")))
 159          (nnimap
 160           "sfl"
 161           (nnimap-stream plain)
 162           (nnimap-address "127.0.0.1")
 163           (nnimap-server-port 143)
 164           (nnimap-authenticator plain)
 165           (nnimap-user "amin.bandali@savoirfairelinux.local")))))
 166  gnus-message-archive-group "nnimap+gnu:INBOX"
 167  gnus-parameters
 168  '(("l\\.deepspec"
 169     (to-address . "deepspec@lists.cs.princeton.edu")
 170     (to-list    . "deepspec@lists.cs.princeton.edu")
 171     (list-identifier . "\\[deepspec\\]"))
 172    ("l\\.fencepost-users"
 173     (to-address . "fencepost-users@gnu.org")
 174     (to-list    . "fencepost-users@gnu.org")
 175     (list-identifier . "\\[Fencepost-users\\]"))
 176    ("l\\.haskell-cafe"
 177     (to-address . "haskell-cafe@haskell.org")
 178     (to-list    . "haskell-cafe@haskell.org")
 179     (list-identifier . "\\[Haskell-cafe\\]"))
 180    ("gnu.*"
 181     (gcc-self . t)))
 182  ;; nnimap-record-commands t
 183  ;; gnus-large-newsgroup  50
 184  ;; gnus-process-mark-toggle t
 185  gnus-home-directory   (b/var "gnus/")
 186  gnus-directory        (concat gnus-home-directory "news/")
 187  message-directory     (concat gnus-home-directory "mail/")
 188  nndraft-directory     (concat gnus-home-directory "drafts/")
 189  gnus-save-newsrc-file nil
 190  gnus-read-newsrc-file nil
 191  gnus-search-use-parsed-queries t
 192  gnus-interactive-exit nil
 193  gnus-gcc-mark-as-read t)
 194
 195 (with-eval-after-load 'gnus
 196   (when (version< emacs-version "27")
 197     (with-eval-after-load 'nnmail
 198       (add-to-list
 199        'nnmail-split-abbrev-alist
 200        '(list . "list-id\\|list-post\\|x-mailing-list\\|x-beenthere\\|x-loop")
 201        t)))
 202
 203   ;; (require 'gnus-registry)
 204   ;; (setq gnus-registry-max-entries 2500)
 205   ;; (setq gnus-registry-ignored-groups
 206   ;;       (append gnus-registry-ignored-groups
 207   ;;               '(("^nnimap:gnu\\.l" t)
 208   ;;                 ("webmasters$" t))))
 209   ;; (gnus-registry-initialize)
 210
 211   (with-eval-after-load 'recentf
 212     (add-to-list 'recentf-exclude gnus-home-directory))
 213
 214   ;; hooks
 215   (add-hook 'gnus-group-mode-hook #'gnus-topic-mode)
 216   (add-hook 'gnus-group-mode-hook #'gnus-agent-mode))
 217 ;; global key bindings
 218 (global-set-key (kbd "C-c g") #'gnus-plugged)
 219 (global-set-key (kbd "C-c G") #'gnus-unplugged)
 220
 221 (with-eval-after-load 'gnus-art
 222   (setq
 223    gnus-buttonized-mime-types '("multipart/\\(signed\\|encrypted\\)")
 224    gnus-sorted-header-list '("^From:"
 225                              "^X-RT-Originator"
 226                              "^Newsgroups:"
 227                              "^Subject:"
 228                              "^Date:"
 229                              "^Envelope-To:"
 230                              "^Followup-To:"
 231                              "^Reply-To:"
 232                              "^Organization:"
 233                              "^Summary:"
 234                              "^Abstract:"
 235                              "^Keywords:"
 236                              "^To:"
 237                              "^[BGF]?Cc:"
 238                              "^Posted-To:"
 239                              "^Mail-Copies-To:"
 240                              "^Mail-Followup-To:"
 241                              "^Apparently-To:"
 242                              "^Resent-From:"
 243                              "^User-Agent:"
 244                              "^X-detected-operating-system:"
 245                              "^X-Spam_action:"
 246                              "^X-Spam_bar:"
 247                              "^Message-ID:"
 248                              ;; "^References:"
 249                              "^List-Id:"
 250                              "^Gnus-Warning:")
 251    gnus-visible-headers (mapconcat #'identity
 252                                    gnus-sorted-header-list
 253                                    "\\|")
 254   ;; local-lapsed article dates
 255   ;; from https://www.emacswiki.org/emacs/GnusFormatting#toc11
 256   gnus-article-date-headers '(user-defined)
 257   gnus-article-time-format
 258   (lambda (time)
 259     (let* ((date (format-time-string "%a, %d %b %Y %T %z" time))
 260            (local (article-make-date-line date 'local))
 261            (combined-lapsed (article-make-date-line date
 262                                                     'combined-lapsed))
 263            (lapsed (progn
 264                      (string-match " (.+" combined-lapsed)
 265                      (match-string 0 combined-lapsed))))
 266       (concat local lapsed))))
 267   ;; local key bindings
 268   (declare-function org-store-link "ol" (arg &optional interactive?))
 269   (define-key gnus-article-mode-map (kbd "M-L") #'org-store-link))
 270
 271 (with-eval-after-load 'gnus-sum
 272   (setq gnus-thread-sort-functions '(gnus-thread-sort-by-number
 273                                      gnus-thread-sort-by-subject
 274                                      gnus-thread-sort-by-date))
 275   ;; local key bindings
 276   (define-key gnus-summary-mode-map (kbd "M-L") #'org-store-link)
 277   ;; (define-key gnus-summary-mode-map (kbd "r")
 278   ;;   #'gnus-summary-reply-with-original)
 279   ;; (define-key gnus-summary-mode-map (kbd "R")
 280   ;;   #'gnus-summary-wide-reply-with-original)
 281   (defvar b/gnus-summary-prefix-map)
 282   (define-prefix-command 'b/gnus-summary-prefix-map)
 283   (define-key gnus-summary-mode-map (kbd "v")
 284     'b/gnus-summary-prefix-map)
 285   (define-key b/gnus-summary-prefix-map (kbd "r")
 286     #'gnus-summary-reply)
 287   (define-key b/gnus-summary-prefix-map (kbd "w")
 288     #'gnus-summary-wide-reply)
 289   (define-key b/gnus-summary-prefix-map (kbd "v")
 290     #'gnus-summary-show-raw-article))
 291 ;; hooks
 292 (add-hook 'gnus-summary-mode-hook #'b/no-mouse-autoselect-window)
 293
 294 (defvar b/sfl-p nil)
 295 (with-eval-after-load 'gnus-msg
 296   (let ((bandali "Amin Bandali (https://kelar.org/~bandali)"))
 297     (defvar b/canonical-signature
 298       (mapconcat
 299        #'identity
 300        `(,bandali
 301          "Software Engineer (Desktop), Canonical")
 302        "\n"))
 303     (defvar b/csc-signature
 304       (mapconcat
 305        #'identity
 306        `(,bandali
 307          "Systems Committee <syscom@csclub.uwaterloo.ca>"
 308          "Computer Science Club of the University of Waterloo")
 309        "\n"))
 310     (defvar b/sfl-signature
 311       (mapconcat
 312        #'identity
 313        `(,bandali
 314          "Volunteer, Savoir-faire Linux"
 315          "jami:bandali")
 316        "\n")))
 317   (setq
 318    gnus-message-replysign t
 319    gnus-posting-styles
 320    '((".*"
 321       (address "bandali@gnu.org")
 322       ("X-Message-SMTP-Method" "smtp fencepost.gnu.org 587"))
 323      ((header "subject" "ThankCRM")
 324       (to "webmasters-comment@gnu.org")
 325       (body ""))
 326      ("nnimap\\+kelar:.*"
 327       (address "bandali@kelar.org")
 328       ("X-Message-SMTP-Method" "smtp mail.kelar.org 587")
 329       (gcc "nnimap+kelar:Sent"))
 330      ("nnimap\\+shemshak:.*"
 331       (address "amin@shemshak.org")
 332       ("X-Message-SMTP-Method" "smtp mail.shemshak.org 587")
 333       (gcc "nnimap+shemshak:Sent"))
 334      ("nnimap\\+canonical:.*"
 335       (address "amin.bandali@canonical.com")
 336       ("X-Message-SMTP-Method" "smtp smtp.canonical.com 587")
 337       (signature b/canonical-signature)
 338       (gcc "nnimap+canonical:Sent"))
 339      ("nnimap\\+csc:.*"
 340       (address "bandali@csclub.uwaterloo.ca")
 341       ("X-Message-SMTP-Method" "smtp mail.csclub.uwaterloo.ca 587")
 342       (signature b/csc-signature)
 343       (gcc "nnimap+csc:Sent"))
 344      ("nnimap\\+sfl:.*"
 345       (address "amin.bandali@savoirfairelinux.com")
 346       ("X-Message-SMTP-Method" "smtp mail.savoirfairelinux.com 587")
 347       (signature b/sfl-signature)
 348       (eval (setq-local b/sfl-p t))
 349       (gcc "nnimap+sfl:Sent")))))
 350 ;; hooks
 351 ;; (with-eval-after-load 'gnus
 352 ;;   (add-hook 'gnus-message-setup-hook
 353 ;;             (lambda ()
 354 ;;               (unless (or (mml-secure-is-encrypted-p)
 355 ;;                           b/sfl-p)
 356 ;;                 (mml-secure-message-sign)))))
 357
 358 (with-eval-after-load 'gnus-topic
 359   (setq
 360    gnus-topic-line-format "%i[ %A: %(%{%n%}%) ]%v\n"
 361    gnus-topic-topology
 362    `(("Gnus" visible nil nil)
 363      (("misc" visible nil nil))
 364      ,@(if (string= (system-name) "darya")
 365            '((("canonical" visible nil nil)))
 366          '((("csc" visible nil nil))
 367            (("uwaterloo" visible nil nil))
 368            (("kelar" visible nil nil))
 369            (("shemshak" visible nil nil))
 370            (("gnu" visible nil nil))
 371            (("old-gnu" visible nil nil))
 372            (("sfl" visible nil nil)))))))
 373
 374 (with-eval-after-load 'gnus-agent
 375   (setq gnus-agent-synchronize-flags 'ask))
 376
 377 (with-eval-after-load 'gnus-group
 378   (setq gnus-permanently-visible-groups "\\(:INBOX$\\|:gnu$\\)"))
 379
 380 (with-eval-after-load 'gnus-win
 381   (setq gnus-use-full-window nil))
 382
 383 (with-eval-after-load 'gnus-dired
 384   (add-hook 'dired-mode-hook 'gnus-dired-mode))
 385
 386 (with-eval-after-load 'mm-decode
 387   (setq
 388    ;; mm-attachment-override-types `("text/x-diff" "text/x-patch"
 389    ;;                                ,@mm-attachment-override-types)
 390    mm-discouraged-alternatives '("text/html" "text/richtext")
 391    mm-decrypt-option 'known
 392    mm-verify-option 'known))
 393
 394 (with-eval-after-load 'mm-uu
 395   (when (version< "27" emacs-version)
 396     (set-face-attribute 'mm-uu-extract nil :extend t))
 397   (when (version< emacs-version "27")
 398     (setq mm-uu-diff-groups-regexp ".")))
 399
 400 (with-eval-after-load 'mml-sec
 401   (setq mml-secure-openpgp-encrypt-to-self t
 402         mml-secure-openpgp-sign-with-sender t))
 403
 404 (provide 'bandali-gnus)
 405 ;;; bandali-gnus.el ends here