[~bandali/configs] / lisp / bandali-gnus.el

(defvar b/maildir (expand-file-name "~/mail/"))
(with-eval-after-load 'recentf
  (add-to-list 'recentf-exclude b/maildir))

(defvar b/gnus-init-file (b/etc "gnus"))

(eval-when-compile
  (progn
    (defvar nndraft-directory)
    (defvar gnus-read-newsrc-file)
    (defvar gnus-save-newsrc-file)
    (defvar gnus-gcc-mark-as-read)
    (defvar nnmail-split-abbrev-alist)))

(declare-function article-make-date-line "gnus-art" (date type))

(setq
 mail-user-agent   'gnus-user-agent
 read-mail-command 'gnus)

(use-package gnus
  :bind (("s-m"     . gnus-plugged)
         ("s-M"     . gnus-unplugged)
         ("C-c a m" . gnus-plugged)
         ("C-c a M" . gnus-unplugged))
  :init
  (setq
   gnus-select-method '(nnnil "")
   gnus-secondary-select-methods
   '((nnimap "shemshak"
             (nnimap-stream plain)
             (nnimap-address "127.0.0.1")
             (nnimap-server-port 143)
             (nnimap-authenticator plain)
             (nnimap-user "amin@shemshak.local"))
     (nnimap "gnu"
             (nnimap-stream plain)
             (nnimap-address "127.0.0.1")
             (nnimap-server-port 143)
             (nnimap-authenticator plain)
             (nnimap-user "bandali@gnu.local")
             (nnimap-inbox "INBOX")
             (nnimap-split-methods 'nnimap-split-fancy)
             (nnimap-split-fancy (|
                                  ;; (: gnus-registry-split-fancy-with-parent)
                                  ;; (: gnus-group-split-fancy "INBOX" t "INBOX")
                                  ;; gnu
                                  (list ".*<\\(.*\\)\\.\\(non\\)?gnu\\.org>.*" "l.\\1")
                                  ;; gnus
                                  (list ".*<\\(.*\\)\\.gnus\\.org>.*" "l.\\1")
                                  ;; libreplanet
                                  (list ".*<\\(.*\\)\\.libreplanet\\.org>.*" "l.\\1")
                                  ;; *.lists.sr.ht, omitting one dot if present
                                  ;;    add more \\.?\\([^.]*\\) if needed
                                  (list ".*<~\\(.*\\)/\\([^.]*\\)\\.?\\([^.]*\\)\\.lists.sr.ht>.*" "l.~\\1.\\2\\3")
                                  ;; webmasters
                                  (from "webmasters\\(-comment\\)?@gnu\\.org" "webmasters")
                                  ;; other
                                  (list ".*atreus.freelists.org" "l.atreus")
                                  (list ".*deepspec.lists.cs.princeton.edu" "l.deepspec")
                                  ;; (list ".*haskell-art.we.lurk.org" "l.haskell.art") ;d
                                  (list ".*haskell-cafe.haskell.org" "l.haskell-cafe")
                                  ;; (list ".*notmuch.notmuchmail.org" "l.notmuch") ;u
                                  ;; (list ".*dev.lists.parabola.nu" "l.parabola-dev") ;u
                                  ;; ----------------------------------
                                  ;; legend: (u)nsubscribed | (d)ead
                                  ;; ----------------------------------
                                  ;; otherwise, leave mail in INBOX
                                  "INBOX")))
     (nnimap "uw"
             (nnimap-stream plain)
             (nnimap-address "127.0.0.1")
             (nnimap-server-port 143)
             (nnimap-authenticator plain)
             (nnimap-user "abandali@uw.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)
             (nnimap-address "127.0.0.1")
             (nnimap-server-port 143)
             (nnimap-authenticator plain)
             (nnimap-user "abandali@csc.uw.local")))
   gnus-message-archive-group "nnimap+gnu:INBOX"
   gnus-parameters
   '(("l\\.atreus"
      (to-address . "atreus@freelists.org")
      (to-list    . "atreus@freelists.org"))
     ("l\\.deepspec"
      (to-address . "deepspec@lists.cs.princeton.edu")
      (to-list    . "deepspec@lists.cs.princeton.edu")
      (list-identifier . "\\[deepspec\\]"))
     ("l\\.emacs-devel"
      (to-address . "emacs-devel@gnu.org")
      (to-list    . "emacs-devel@gnu.org"))
     ("l\\.help-gnu-emacs"
      (to-address . "help-gnu-emacs@gnu.org")
      (to-list    . "help-gnu-emacs@gnu.org"))
     ("l\\.info-gnu-emacs"
      (to-address . "info-gnu-emacs@gnu.org")
      (to-list    . "info-gnu-emacs@gnu.org"))
     ("l\\.emacs-orgmode"
      (to-address . "emacs-orgmode@gnu.org")
      (to-list    . "emacs-orgmode@gnu.org")
      (list-identifier . "\\[O\\]"))
     ("l\\.emacs-tangents"
      (to-address . "emacs-tangents@gnu.org")
      (to-list    . "emacs-tangents@gnu.org"))
     ("l\\.emacsconf-committee"
      (to-address . "emacsconf-committee@gnu.org")
      (to-list    . "emacsconf-committee@gnu.org"))
     ("l\\.emacsconf-discuss"
      (to-address . "emacsconf-discuss@gnu.org")
      (to-list    . "emacsconf-discuss@gnu.org"))
     ("l\\.emacsconf-register"
      (to-address . "emacsconf-register@gnu.org")
      (to-list    . "emacsconf-register@gnu.org"))
     ("l\\.emacsconf-submit"
      (to-address . "emacsconf-submit@gnu.org")
      (to-list    . "emacsconf-submit@gnu.org"))
     ("l\\.fencepost-users"
      (to-address . "fencepost-users@gnu.org")
      (to-list    . "fencepost-users@gnu.org")
      (list-identifier . "\\[Fencepost-users\\]"))
     ("l\\.gnewsense-art"
      (to-address . "gnewsense-art@nongnu.org")
      (to-list    . "gnewsense-art@nongnu.org")
      (list-identifier . "\\[gNewSense-art\\]"))
     ("l\\.gnewsense-dev"
      (to-address . "gnewsense-dev@nongnu.org")
      (to-list    . "gnewsense-dev@nongnu.org")
      (list-identifier . "\\[Gnewsense-dev\\]"))
     ("l\\.gnewsense-users"
      (to-address . "gnewsense-users@nongnu.org")
      (to-list    . "gnewsense-users@nongnu.org")
      (list-identifier . "\\[gNewSense-users\\]"))
     ("l\\.gnunet-developers"
      (to-address . "gnunet-developers@gnu.org")
      (to-list    . "gnunet-developers@gnu.org")
      (list-identifier . "\\[GNUnet-developers\\]"))
     ("l\\.help-gnunet"
      (to-address . "help-gnunet@gnu.org")
      (to-list    . "help-gnunet@gnu.org")
      (list-identifier . "\\[Help-gnunet\\]"))
     ("l\\.bug-gnuzilla"
      (to-address . "bug-gnuzilla@gnu.org")
      (to-list    . "bug-gnuzilla@gnu.org")
      (list-identifier . "\\[Bug-gnuzilla\\]"))
     ("l\\.gnuzilla-dev"
      (to-address . "gnuzilla-dev@gnu.org")
      (to-list    . "gnuzilla-dev@gnu.org")
      (list-identifier . "\\[Gnuzilla-dev\\]"))
     ("l\\.guile-devel"
      (to-address . "guile-devel@gnu.org")
      (to-list    . "guile-devel@gnu.org"))
     ("l\\.guile-user"
      (to-address . "guile-user@gnu.org")
      (to-list    . "guile-user@gnu.org"))
     ("l\\.guix-devel"
      (to-address . "guix-devel@gnu.org")
      (to-list    . "guix-devel@gnu.org"))
     ("l\\.help-guix"
      (to-address . "help-guix@gnu.org")
      (to-list    . "help-guix@gnu.org"))
     ("l\\.info-guix"
      (to-address . "info-guix@gnu.org")
      (to-list    . "info-guix@gnu.org"))
     ("l\\.savannah-hackers-public"
      (to-address . "savannah-hackers-public@gnu.org")
      (to-list    . "savannah-hackers-public@gnu.org"))
     ("l\\.savannah-users"
      (to-address . "savannah-users@gnu.org")
      (to-list    . "savannah-users@gnu.org"))
     ("l\\.www-commits"
      (to-address . "www-commits@gnu.org")
      (to-list    . "www-commits@gnu.org"))
     ("l\\.www-discuss"
      (to-address . "www-discuss@gnu.org")
      (to-list    . "www-discuss@gnu.org"))
     ("l\\.haskell-art"
      (to-address . "haskell-art@we.lurk.org")
      (to-list    . "haskell-art@we.lurk.org")
      (list-identifier . "\\[haskell-art\\]"))
     ("l\\.haskell-cafe"
      (to-address . "haskell-cafe@haskell.org")
      (to-list    . "haskell-cafe@haskell.org")
      (list-identifier . "\\[Haskell-cafe\\]"))
     ("l\\.notmuch"
      (to-address . "notmuch@notmuchmail.org")
      (to-list    . "notmuch@notmuchmail.org"))
     ("l\\.parabola-dev"
      (to-address . "dev@lists.parabola.nu")
      (to-list    . "dev@lists.parabola.nu")
      (list-identifier . "\\[Dev\\]"))
     ("l\\.~bandali\\.public-inbox"
      (to-address . "~bandali/public-inbox@lists.sr.ht")
      (to-list    . "~bandali/public-inbox@lists.sr.ht"))
     ("l\\.~sircmpwn\\.free-writers-club"
      (to-address . "~sircmpwn/free-writers-club@lists.sr.ht")
      (to-list    . "~sircmpwn/free-writers-club@lists.sr.ht"))
     ("l\\.~sircmpwn\\.srht-admins"
      (to-address . "~sircmpwn/sr.ht-admins@lists.sr.ht")
      (to-list    . "~sircmpwn/sr.ht-admins@lists.sr.ht"))
     ("l\\.~sircmpwn\\.srht-announce"
      (to-address . "~sircmpwn/sr.ht-announce@lists.sr.ht")
      (to-list    . "~sircmpwn/sr.ht-announce@lists.sr.ht"))
     ("l\\.~sircmpwn\\.srht-dev"
      (to-address . "~sircmpwn/sr.ht-dev@lists.sr.ht")
      (to-list    . "~sircmpwn/sr.ht-dev@lists.sr.ht"))
     ("l\\.~sircmpwn\\.srht-discuss"
      (to-address . "~sircmpwn/sr.ht-discuss@lists.sr.ht")
      (to-list    . "~sircmpwn/sr.ht-discuss@lists.sr.ht"))
     ("webmasters"
      (to-address . "webmasters@gnu.org")
      (to-list    . "webmasters@gnu.org"))
     ("gnu.*"
      (gcc-self . t))
     ("l\\."
      (subscribed . t))
     ("nnimap\\+uw:.*"
      (gcc-self . t)))
   gnus-large-newsgroup  50
   gnus-home-directory   (b/var "gnus/")
   gnus-directory        (concat gnus-home-directory "news/")
   message-directory     (concat gnus-home-directory "mail/")
   nndraft-directory     (concat gnus-home-directory "drafts/")
   gnus-save-newsrc-file nil
   gnus-read-newsrc-file nil
   gnus-interactive-exit nil
   gnus-gcc-mark-as-read t)
  :config
  (when (version< emacs-version "27")
    (with-eval-after-load 'nnmail
      (add-to-list
       'nnmail-split-abbrev-alist
       '(list . "list-id\\|list-post\\|x-mailing-list\\|x-beenthere\\|x-loop")
       t)))

  ;; (gnus-registry-initialize)

  (with-eval-after-load 'recentf
    (add-to-list 'recentf-exclude gnus-home-directory)))

(use-package gnus-art
  :config
  (setq
   gnus-buttonized-mime-types '("multipart/\\(signed\\|encrypted\\)")
   gnus-sorted-header-list '("^From:"
                             "^X-RT-Originator"
                             "^Newsgroups:"
                             "^Subject:"
                             "^Date:"
                             "^Envelope-To:"
                             "^Followup-To:"
                             "^Reply-To:"
                             "^Organization:"
                             "^Summary:"
                             "^Abstract:"
                             "^Keywords:"
                             "^To:"
                             "^[BGF]?Cc:"
                             "^Posted-To:"
                             "^Mail-Copies-To:"
                             "^Mail-Followup-To:"
                             "^Apparently-To:"
                             "^Resent-From:"
                             "^User-Agent:"
                             "^X-detected-operating-system:"
                             "^Message-ID:"
                             ;; "^References:"
                             "^List-Id:"
                             "^Gnus-Warning:")
   gnus-visible-headers (mapconcat 'identity
                                   gnus-sorted-header-list
                                   "\\|")
  ;; local-lapsed article dates
  ;; from https://www.emacswiki.org/emacs/GnusFormatting#toc11
  gnus-article-date-headers '(user-defined)
  gnus-article-time-format
  (lambda (time)
    (let* ((date (format-time-string "%a, %d %b %Y %T %z" time))
           (local (article-make-date-line date 'local))
           (combined-lapsed (article-make-date-line date
                                                    'combined-lapsed))
           (lapsed (progn
                     (string-match " (.+" combined-lapsed)
                     (match-string 0 combined-lapsed))))
      (concat local lapsed))))
  (bind-keys
   :map gnus-article-mode-map
   ("M-L" . org-store-link)))

(use-package gnus-sum
  :bind (:map gnus-summary-mode-map
              :prefix-map b/gnus-summary-prefix-map
              :prefix "v"
              ("r" . gnus-summary-reply)
              ("w" . gnus-summary-wide-reply)
              ("v" . gnus-summary-show-raw-article))
  :config
  (bind-keys
   :map gnus-summary-mode-map
   ("M-L" . org-store-link))
  :hook (gnus-summary-mode . b/no-mouse-autoselect-window)
  :custom
  (gnus-thread-sort-functions '(gnus-thread-sort-by-number
                                gnus-thread-sort-by-subject
                                gnus-thread-sort-by-date)))

(use-package gnus-msg
  :config
  (defvar b/shemshak-signature "Amin Bandali
https://shemshak.org/~amin")
  (defvar b/uw-signature "Amin Bandali, MMath Student
Cheriton School of Computer Science
University of Waterloo
https://bandali.eu.org")
  (defvar b/csc-signature "Amin Bandali
System Administrator, Systems Committee
Computer Science Club, University of Waterloo
https://csclub.uwaterloo.ca/~abandali")
  (setq gnus-message-replysign t
        gnus-posting-styles
        '((".*"
           (address "bandali@gnu.org"))
          ("nnimap\\+gnu:l\\..*"
           (signature nil))
          ("nnimap\\+gnu:.*"
           (organization "GNU"))
          ((header "subject" "ThankCRM")
           (to "webmasters-comment@gnu.org")
           (body "")
           (eval (setq b/message-cite-say-hi nil)))
          ("nnimap\\+shemshak:.*"
           (address "amin@shemshak.org")
           (body "\nBest,\n")
           (signature b/shemshak-signature)
           (gcc "nnimap+shemshak:Sent")
           (eval (setq b/message-cite-say-hi t)))
          ("nnimap\\+uw:.*"
           (address "bandali@uwaterloo.ca")
           (body "\nBest,\n")
           (signature b/uw-signature))
          ("nnimap\\+uw:INBOX"
           (gcc "\"nnimap+uw:Sent Items\""))
          ("nnimap\\+csc:.*"
           (address "bandali@csclub.uwaterloo.ca")
           (signature b/csc-signature)
           (gcc "nnimap+csc:Sent"))))
  :hook (gnus-message-setup . (lambda ()
                                (unless (mml-secure-is-encrypted-p)
                                  (mml-secure-message-sign)))))

(use-package gnus-topic
  :hook (gnus-group-mode . gnus-topic-mode)
  :config (setq gnus-topic-line-format "%i[ %A: %(%{%n%}%) ]%v\n"))

(use-package gnus-agent
  :config
  (setq gnus-agent-synchronize-flags 'ask)
  :hook (gnus-group-mode . gnus-agent-mode))

(use-package gnus-group
  :config
  (setq gnus-permanently-visible-groups "\\(:INBOX$\\|:gnu$\\)"))

(comment
  ;; problematic with ebdb's popup, *EBDB-Gnus*
  (use-package gnus-win
    :config
    (setq gnus-use-full-window nil)))

(use-package gnus-dired
  :commands gnus-dired-mode
  :init
  (add-hook 'dired-mode-hook 'gnus-dired-mode))

(comment
  (use-package gnus-utils
    :custom
    (gnus-completing-read-function 'gnus-ido-completing-read)))

(use-package mm-decode
  :config
  (setq mm-discouraged-alternatives '("text/html" "text/richtext")
        mm-decrypt-option 'known
        mm-verify-option 'known))

(use-package mm-uu
  :config
  (when (version< "27" emacs-version)
    (set-face-attribute 'mm-uu-extract nil :extend t))
  :custom
  (mm-uu-diff-groups-regexp
   "\\(gmane\\|gnu\\|l\\)\\..*\\(diff\\|commit\\|cvs\\|bug\\|dev\\)"))

(use-package mml)

(use-package mml-sec
  :custom
  (mml-secure-openpgp-encrypt-to-self t)
  (mml-secure-openpgp-sign-with-sender t))

(provide 'bandali-gnus)
Commit	Line	Data
2087ae39 AB	1	(defvar b/maildir (expand-file-name "~/mail/"))
	2	(with-eval-after-load 'recentf
	3	(add-to-list 'recentf-exclude b/maildir))
	4
	5	(defvar b/gnus-init-file (b/etc "gnus"))
	6
	7	(eval-when-compile
	8	(progn
	9	(defvar nndraft-directory)
	10	(defvar gnus-read-newsrc-file)
	11	(defvar gnus-save-newsrc-file)
	12	(defvar gnus-gcc-mark-as-read)
	13	(defvar nnmail-split-abbrev-alist)))
	14
	15	(declare-function article-make-date-line "gnus-art" (date type))
	16
	17	(setq
	18	mail-user-agent 'gnus-user-agent
	19	read-mail-command 'gnus)
	20
	21	(use-package gnus
	22	:bind (("s-m" . gnus-plugged)
	23	("s-M" . gnus-unplugged)
	24	("C-c a m" . gnus-plugged)
	25	("C-c a M" . gnus-unplugged))
	26	:init
	27	(setq
	28	gnus-select-method '(nnnil "")
	29	gnus-secondary-select-methods
	30	'((nnimap "shemshak"
	31	(nnimap-stream plain)
	32	(nnimap-address "127.0.0.1")
	33	(nnimap-server-port 143)
	34	(nnimap-authenticator plain)
	35	(nnimap-user "amin@shemshak.local"))
	36	(nnimap "gnu"
	37	(nnimap-stream plain)
	38	(nnimap-address "127.0.0.1")
	39	(nnimap-server-port 143)
	40	(nnimap-authenticator plain)
	41	(nnimap-user "bandali@gnu.local")
	42	(nnimap-inbox "INBOX")
	43	(nnimap-split-methods 'nnimap-split-fancy)
	44	(nnimap-split-fancy (\|
	45	;; (: gnus-registry-split-fancy-with-parent)
	46	;; (: gnus-group-split-fancy "INBOX" t "INBOX")
	47	;; gnu
	48	(list ".<\\(.\\)\\.\\(non\\)?gnu\\.org>.*" "l.\\1")
	49	;; gnus
	50	(list ".<\\(.\\)\\.gnus\\.org>.*" "l.\\1")
	51	;; libreplanet
	52	(list ".<\\(.\\)\\.libreplanet\\.org>.*" "l.\\1")
	53	;; *.lists.sr.ht, omitting one dot if present
	54	;; add more \\.?\\([^.]*\\) if needed
	55	(list ".<~\\(.\\)/\\([^.]\\)\\.?\\([^.]\\)\\.lists.sr.ht>.*" "l.~\\1.\\2\\3")
	56	;; webmasters
	57	(from "webmasters\\(-comment\\)?@gnu\\.org" "webmasters")
	58	;; other
	59	(list ".*atreus.freelists.org" "l.atreus")
	60	(list ".*deepspec.lists.cs.princeton.edu" "l.deepspec")
	61	;; (list ".*haskell-art.we.lurk.org" "l.haskell.art") ;d
	62	(list ".*haskell-cafe.haskell.org" "l.haskell-cafe")
	63	;; (list ".*notmuch.notmuchmail.org" "l.notmuch") ;u
	64	;; (list ".*dev.lists.parabola.nu" "l.parabola-dev") ;u
65	;; ----------------------------------
66	;; legend: (u)nsubscribed \| (d)ead
67	;; ----------------------------------
68	;; otherwise, leave mail in INBOX
69	"INBOX")))
70	(nnimap "uw"
71	(nnimap-stream plain)
72	(nnimap-address "127.0.0.1")
73	(nnimap-server-port 143)
74	(nnimap-authenticator plain)
75	(nnimap-user "abandali@uw.local")
76	(nnimap-inbox "INBOX")
77	(nnimap-split-methods 'nnimap-split-fancy)
78	(nnimap-split-fancy (\|
79	;; (: gnus-registry-split-fancy-with-parent)
80	;; se212-f19
81	("subject" "SE\\s-?212" "course.se212-f19")
82	(from "SE\\s-?212" "course.se212-f19")
83	;; catch-all
84	"INBOX")))
85	(nnimap "csc"
86	(nnimap-stream plain)
87	(nnimap-address "127.0.0.1")
88	(nnimap-server-port 143)
89	(nnimap-authenticator plain)
90	(nnimap-user "abandali@csc.uw.local")))
91	gnus-message-archive-group "nnimap+gnu:INBOX"
92	gnus-parameters
93	'(("l\\.atreus"
94	(to-address . "atreus@freelists.org")
95	(to-list . "atreus@freelists.org"))
96	("l\\.deepspec"
97	(to-address . "deepspec@lists.cs.princeton.edu")
98	(to-list . "deepspec@lists.cs.princeton.edu")
99	(list-identifier . "\\[deepspec\\]"))
100	("l\\.emacs-devel"
101	(to-address . "emacs-devel@gnu.org")
102	(to-list . "emacs-devel@gnu.org"))
103	("l\\.help-gnu-emacs"
104	(to-address . "help-gnu-emacs@gnu.org")
105	(to-list . "help-gnu-emacs@gnu.org"))
106	("l\\.info-gnu-emacs"
107	(to-address . "info-gnu-emacs@gnu.org")
108	(to-list . "info-gnu-emacs@gnu.org"))
109	("l\\.emacs-orgmode"
110	(to-address . "emacs-orgmode@gnu.org")
111	(to-list . "emacs-orgmode@gnu.org")
112	(list-identifier . "\\[O\\]"))
113	("l\\.emacs-tangents"
114	(to-address . "emacs-tangents@gnu.org")
115	(to-list . "emacs-tangents@gnu.org"))
116	("l\\.emacsconf-committee"
117	(to-address . "emacsconf-committee@gnu.org")
118	(to-list . "emacsconf-committee@gnu.org"))
119	("l\\.emacsconf-discuss"
120	(to-address . "emacsconf-discuss@gnu.org")
121	(to-list . "emacsconf-discuss@gnu.org"))
122	("l\\.emacsconf-register"
123	(to-address . "emacsconf-register@gnu.org")
124	(to-list . "emacsconf-register@gnu.org"))
125	("l\\.emacsconf-submit"
126	(to-address . "emacsconf-submit@gnu.org")
127	(to-list . "emacsconf-submit@gnu.org"))
128	("l\\.fencepost-users"
129	(to-address . "fencepost-users@gnu.org")
130	(to-list . "fencepost-users@gnu.org")
131	(list-identifier . "\\[Fencepost-users\\]"))
132	("l\\.gnewsense-art"
133	(to-address . "gnewsense-art@nongnu.org")
134	(to-list . "gnewsense-art@nongnu.org")
135	(list-identifier . "\\[gNewSense-art\\]"))
136	("l\\.gnewsense-dev"
137	(to-address . "gnewsense-dev@nongnu.org")
138	(to-list . "gnewsense-dev@nongnu.org")
139	(list-identifier . "\\[Gnewsense-dev\\]"))
140	("l\\.gnewsense-users"
141	(to-address . "gnewsense-users@nongnu.org")
142	(to-list . "gnewsense-users@nongnu.org")
143	(list-identifier . "\\[gNewSense-users\\]"))
144	("l\\.gnunet-developers"
145	(to-address . "gnunet-developers@gnu.org")
146	(to-list . "gnunet-developers@gnu.org")
147	(list-identifier . "\\[GNUnet-developers\\]"))
148	("l\\.help-gnunet"
149	(to-address . "help-gnunet@gnu.org")
150	(to-list . "help-gnunet@gnu.org")
151	(list-identifier . "\\[Help-gnunet\\]"))
152	("l\\.bug-gnuzilla"
153	(to-address . "bug-gnuzilla@gnu.org")
154	(to-list . "bug-gnuzilla@gnu.org")
155	(list-identifier . "\\[Bug-gnuzilla\\]"))
156	("l\\.gnuzilla-dev"
157	(to-address . "gnuzilla-dev@gnu.org")
158	(to-list . "gnuzilla-dev@gnu.org")
159	(list-identifier . "\\[Gnuzilla-dev\\]"))
160	("l\\.guile-devel"
161	(to-address . "guile-devel@gnu.org")
162	(to-list . "guile-devel@gnu.org"))
163	("l\\.guile-user"
164	(to-address . "guile-user@gnu.org")
165	(to-list . "guile-user@gnu.org"))
166	("l\\.guix-devel"
167	(to-address . "guix-devel@gnu.org")
168	(to-list . "guix-devel@gnu.org"))
169	("l\\.help-guix"
170	(to-address . "help-guix@gnu.org")
171	(to-list . "help-guix@gnu.org"))
172	("l\\.info-guix"
173	(to-address . "info-guix@gnu.org")
174	(to-list . "info-guix@gnu.org"))
175	("l\\.savannah-hackers-public"
176	(to-address . "savannah-hackers-public@gnu.org")
177	(to-list . "savannah-hackers-public@gnu.org"))
178	("l\\.savannah-users"
179	(to-address . "savannah-users@gnu.org")
180	(to-list . "savannah-users@gnu.org"))
181	("l\\.www-commits"
182	(to-address . "www-commits@gnu.org")
183	(to-list . "www-commits@gnu.org"))
184	("l\\.www-discuss"
185	(to-address . "www-discuss@gnu.org")
186	(to-list . "www-discuss@gnu.org"))
187	("l\\.haskell-art"
188	(to-address . "haskell-art@we.lurk.org")
189	(to-list . "haskell-art@we.lurk.org")
190	(list-identifier . "\\[haskell-art\\]"))
191	("l\\.haskell-cafe"
192	(to-address . "haskell-cafe@haskell.org")
193	(to-list . "haskell-cafe@haskell.org")
194	(list-identifier . "\\[Haskell-cafe\\]"))
195	("l\\.notmuch"
196	(to-address . "notmuch@notmuchmail.org")
197	(to-list . "notmuch@notmuchmail.org"))
198	("l\\.parabola-dev"
199	(to-address . "dev@lists.parabola.nu")
200	(to-list . "dev@lists.parabola.nu")
201	(list-identifier . "\\[Dev\\]"))
202	("l\\.~bandali\\.public-inbox"
203	(to-address . "~bandali/public-inbox@lists.sr.ht")
204	(to-list . "~bandali/public-inbox@lists.sr.ht"))
205	("l\\.~sircmpwn\\.free-writers-club"
206	(to-address . "~sircmpwn/free-writers-club@lists.sr.ht")
207	(to-list . "~sircmpwn/free-writers-club@lists.sr.ht"))
208	("l\\.~sircmpwn\\.srht-admins"
209	(to-address . "~sircmpwn/sr.ht-admins@lists.sr.ht")
210	(to-list . "~sircmpwn/sr.ht-admins@lists.sr.ht"))
211	("l\\.~sircmpwn\\.srht-announce"
212	(to-address . "~sircmpwn/sr.ht-announce@lists.sr.ht")
213	(to-list . "~sircmpwn/sr.ht-announce@lists.sr.ht"))
214	("l\\.~sircmpwn\\.srht-dev"
215	(to-address . "~sircmpwn/sr.ht-dev@lists.sr.ht")
216	(to-list . "~sircmpwn/sr.ht-dev@lists.sr.ht"))
217	("l\\.~sircmpwn\\.srht-discuss"
218	(to-address . "~sircmpwn/sr.ht-discuss@lists.sr.ht")
219	(to-list . "~sircmpwn/sr.ht-discuss@lists.sr.ht"))
220	("webmasters"
221	(to-address . "webmasters@gnu.org")
222	(to-list . "webmasters@gnu.org"))
223	("gnu.*"
224	(gcc-self . t))
225	("l\\."
226	(subscribed . t))
227	("nnimap\\+uw:.*"
228	(gcc-self . t)))
229	gnus-large-newsgroup 50
230	gnus-home-directory (b/var "gnus/")
231	gnus-directory (concat gnus-home-directory "news/")
232	message-directory (concat gnus-home-directory "mail/")
233	nndraft-directory (concat gnus-home-directory "drafts/")
234	gnus-save-newsrc-file nil
235	gnus-read-newsrc-file nil
236	gnus-interactive-exit nil
237	gnus-gcc-mark-as-read t)
238	:config
239	(when (version< emacs-version "27")
240	(with-eval-after-load 'nnmail
241	(add-to-list
242	'nnmail-split-abbrev-alist
243	'(list . "list-id\\\|list-post\\\|x-mailing-list\\\|x-beenthere\\\|x-loop")
244	t)))
245
246	;; (gnus-registry-initialize)
247
248	(with-eval-after-load 'recentf
249	(add-to-list 'recentf-exclude gnus-home-directory)))
250
251	(use-package gnus-art
252	:config
253	(setq
254	gnus-buttonized-mime-types '("multipart/\\(signed\\\|encrypted\\)")
255	gnus-sorted-header-list '("^From:"
256	"^X-RT-Originator"
257	"^Newsgroups:"
258	"^Subject:"
259	"^Date:"
260	"^Envelope-To:"
261	"^Followup-To:"
262	"^Reply-To:"
263	"^Organization:"
264	"^Summary:"
265	"^Abstract:"
266	"^Keywords:"
267	"^To:"
268	"^[BGF]?Cc:"
269	"^Posted-To:"
270	"^Mail-Copies-To:"
271	"^Mail-Followup-To:"
272	"^Apparently-To:"
273	"^Resent-From:"
274	"^User-Agent:"
275	"^X-detected-operating-system:"
276	"^Message-ID:"
277	;; "^References:"
278	"^List-Id:"
279	"^Gnus-Warning:")
280	gnus-visible-headers (mapconcat 'identity
281	gnus-sorted-header-list
282	"\\\|")
283	;; local-lapsed article dates
284	;; from https://www.emacswiki.org/emacs/GnusFormatting#toc11
285	gnus-article-date-headers '(user-defined)
286	gnus-article-time-format
287	(lambda (time)
288	(let* ((date (format-time-string "%a, %d %b %Y %T %z" time))
289	(local (article-make-date-line date 'local))
290	(combined-lapsed (article-make-date-line date
291	'combined-lapsed))
292	(lapsed (progn
293	(string-match " (.+" combined-lapsed)
294	(match-string 0 combined-lapsed))))
295	(concat local lapsed))))
296	(bind-keys
297	:map gnus-article-mode-map
298	("M-L" . org-store-link)))
299
300	(use-package gnus-sum
301	:bind (:map gnus-summary-mode-map
302	:prefix-map b/gnus-summary-prefix-map
303	:prefix "v"
304	("r" . gnus-summary-reply)
305	("w" . gnus-summary-wide-reply)
306	("v" . gnus-summary-show-raw-article))
307	:config
308	(bind-keys
309	:map gnus-summary-mode-map
310	("M-L" . org-store-link))
311	:hook (gnus-summary-mode . b/no-mouse-autoselect-window)
312	:custom
313	(gnus-thread-sort-functions '(gnus-thread-sort-by-number
314	gnus-thread-sort-by-subject
315	gnus-thread-sort-by-date)))
316
317	(use-package gnus-msg
318	:config
319	(defvar b/shemshak-signature "Amin Bandali
320	https://shemshak.org/~amin")
321	(defvar b/uw-signature "Amin Bandali, MMath Student
322	Cheriton School of Computer Science
323	University of Waterloo
324	https://bandali.eu.org")
325	(defvar b/csc-signature "Amin Bandali
326	System Administrator, Systems Committee
327	Computer Science Club, University of Waterloo
328	https://csclub.uwaterloo.ca/~abandali")
329	(setq gnus-message-replysign t
330	gnus-posting-styles
331	'((".*"
332	(address "bandali@gnu.org"))
333	("nnimap\\+gnu:l\\..*"
334	(signature nil))
335	("nnimap\\+gnu:.*"
336	(organization "GNU"))
337	((header "subject" "ThankCRM")
338	(to "webmasters-comment@gnu.org")
339	(body "")
340	(eval (setq b/message-cite-say-hi nil)))
341	("nnimap\\+shemshak:.*"
342	(address "amin@shemshak.org")
343	(body "\nBest,\n")
344	(signature b/shemshak-signature)
345	(gcc "nnimap+shemshak:Sent")
346	(eval (setq b/message-cite-say-hi t)))
347	("nnimap\\+uw:.*"
348	(address "bandali@uwaterloo.ca")
349	(body "\nBest,\n")
350	(signature b/uw-signature))
351	("nnimap\\+uw:INBOX"
352	(gcc "\"nnimap+uw:Sent Items\""))
353	("nnimap\\+csc:.*"
354	(address "bandali@csclub.uwaterloo.ca")
355	(signature b/csc-signature)
356	(gcc "nnimap+csc:Sent"))))
357	:hook (gnus-message-setup . (lambda ()
358	(unless (mml-secure-is-encrypted-p)
359	(mml-secure-message-sign)))))
360
361	(use-package gnus-topic
362	:hook (gnus-group-mode . gnus-topic-mode)
363	:config (setq gnus-topic-line-format "%i[ %A: %(%{%n%}%) ]%v\n"))
364
365	(use-package gnus-agent
366	:config
367	(setq gnus-agent-synchronize-flags 'ask)
368	:hook (gnus-group-mode . gnus-agent-mode))
369
370	(use-package gnus-group
371	:config
372	(setq gnus-permanently-visible-groups "\\(:INBOX$\\\|:gnu$\\)"))
373
374	(comment
375	;; problematic with ebdb's popup, EBDB-Gnus
376	(use-package gnus-win
377	:config
378	(setq gnus-use-full-window nil)))
379
380	(use-package gnus-dired
381	:commands gnus-dired-mode
382	:init
383	(add-hook 'dired-mode-hook 'gnus-dired-mode))
384
385	(comment
386	(use-package gnus-utils
387	:custom
388	(gnus-completing-read-function 'gnus-ido-completing-read)))
389
390	(use-package mm-decode
391	:config
392	(setq mm-discouraged-alternatives '("text/html" "text/richtext")
393	mm-decrypt-option 'known
394	mm-verify-option 'known))
395
396	(use-package mm-uu
397	:config
398	(when (version< "27" emacs-version)
399	(set-face-attribute 'mm-uu-extract nil :extend t))
400	:custom
401	(mm-uu-diff-groups-regexp
402	"\\(gmane\\\|gnu\\\|l\\)\\..*\\(diff\\\|commit\\\|cvs\\\|bug\\\|dev\\)"))
403
404	(use-package mml)
405
406	(use-package mml-sec
407	:custom
408	(mml-secure-openpgp-encrypt-to-self t)
409	(mml-secure-openpgp-sign-with-sender t))
410
411	(provide 'bandali-gnus)