From 9fcd6c3ea32da1a62ab402a9f37e1294d143a08d Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 12 Nov 2021 02:55:03 +0000 Subject: gnus clean-ups --- gnus.org | 90 ++++++++++++++++++++++++++-------------------------------------- 1 file changed, 37 insertions(+), 53 deletions(-) (limited to 'gnus.org') diff --git a/gnus.org b/gnus.org index c9cabed..9302b17 100644 --- a/gnus.org +++ b/gnus.org @@ -1,17 +1,15 @@ #+property: header-args :lexical t :tangle ~/.emacs.d/gnus.el :comments yes :results silent :shebang ";; -*- lexical-binding: t -*-" :tangle-mode (identity #o644) #+title: Gnus -#+auto_tangle: t * Feature switching vars #+begin_src emacs-lisp - (defvar jao-gnus-use-local-imap nil) - (defvar jao-gnus-use-leafnode nil) - (defvar jao-gnus-use-gandi-imap nil) - (defvar jao-gnus-use-pm-imap nil) - (defvar jao-gnus-use-gmane nil) - (defvar jao-gnus-use-nnml nil) - (defvar jao-gnus-use-maildirs nil) - (defvar jao-gnus-use-nnnm nil) + (defvar jao-gnus-use-local-imap nil) + (defvar jao-gnus-use-leafnode nil) + (defvar jao-gnus-use-gandi-imap nil) + (defvar jao-gnus-use-pm-imap nil) + (defvar jao-gnus-use-gmane nil) + (defvar jao-gnus-use-nnml nil) + (defvar jao-gnus-use-maildirs nil) #+end_src * Startup and kill #+begin_src emacs-lisp @@ -58,7 +56,7 @@ * Looks *** Verbosity #+begin_src emacs-lisp - (setq gnus-verbose 6) + (setq gnus-verbose 4) #+end_src *** Geometry #+begin_src emacs-lisp @@ -152,24 +150,7 @@ (setq nnheader-read-timeout 0.02 gnus-save-newsrc-file nil) ; .newsrc only needed by other newsreaders #+end_src -* IMAP servers - #+begin_src emacs-lisp - (when jao-gnus-use-local-imap - (add-to-list 'gnus-secondary-select-methods - `(nnimap "" (nnimap-address "localhost")))) - - (when jao-gnus-use-pm-imap - (add-to-list 'gnus-secondary-select-methods - '(nnimap "pm" - (nnimap-address "127.0.0.1") - (nnimap-stream network) - (nnimap-server-port 1143)))) - - (when jao-gnus-use-gandi-imap - (add-to-list 'gnus-secondary-select-methods - '(nnimap "gandi" (nnimap-address "mail.gandi.net")))) - #+end_src -* Local mail servers +* Local mail *** nnml #+begin_src emacs-lisp (setq mail-sources '((group)) @@ -225,12 +206,23 @@ (jao-gnus--maildir "bigml")) #+end_src -*** nnnm - #+begin_src emacs-lisp - (when (and jao-gnus-use-nnnm (require 'nnnm nil t)) - (add-to-list 'gnus-secondary-select-methods '(nnnm ""))) +* IMAP servers + #+begin_src emacs-lisp + (when jao-gnus-use-local-imap + (add-to-list 'gnus-secondary-select-methods + `(nnimap "" (nnimap-address "localhost")))) - #+end_src + (when jao-gnus-use-pm-imap + (add-to-list 'gnus-secondary-select-methods + '(nnimap "pm" + (nnimap-address "127.0.0.1") + (nnimap-stream network) + (nnimap-server-port 1143)))) + + (when jao-gnus-use-gandi-imap + (add-to-list 'gnus-secondary-select-methods + '(nnimap "gandi" (nnimap-address "mail.gandi.net")))) + #+end_src * Demons and notifications #+begin_src emacs-lisp (setq mail-user-agent 'gnus-user-agent) @@ -329,10 +321,9 @@ (with-eval-after-load "bbdb" (bbdb-initialize 'gnus 'message 'pgp 'mail) (bbdb-mua-auto-update-init 'gnus) - (eval-after-load "gnus-sum" - '(progn - (define-key gnus-summary-mode-map ":" 'bbdb-mua-annotate-sender) - (define-key gnus-summary-mode-map ";" 'bbdb-mua-annotate-recipients)))) + (with-eval-after-load "gnus-sum" + (define-key gnus-summary-mode-map ":" 'bbdb-mua-annotate-sender) + (define-key gnus-summary-mode-map ";" 'bbdb-mua-annotate-recipients))) #+end_src *** randomsig #+begin_src emacs-lisp @@ -360,17 +351,6 @@ '(define-key notmuch-show-mode-map (kbd "C-c C-c") #'jao-notmuch-goto-message-in-gnus)) #+end_src -*** gnus-recent - #+begin_src emacs-lisp :tangle no - (use-package gnus-recent - :ensure t - :after gnus - :bind (:map gnus-summary-mode-map - (("l" . #'gnus-recent-goto-previous)) - :map gnus-group-mode-map - (("C-c l" . #'gnus-recent-goto-previous) - ("C-c r" . #'gnus-recent)))) - #+end_src * Groups buffer #+begin_src emacs-lisp ;; (setq gnus-group-line-format " %m%S%p%P:%~(pad-right 35)c %3y %B\n") @@ -430,6 +410,10 @@ #+begin_src emacs-lisp (setq gnus-permanently-visible-groups "^nnselect:.*-today") + (defvar jao-gnus-image-groups-rx + (format "nnml:feeds\\.fun\\|gwene\\..*%s.*" + (regexp-opt jao-gnus-image-groups))) + (setq gnus-parameters `(("^nnselect:.*\\(-today\\|bigml\\.bugs\\)" (nnselect-rescan . t)) @@ -455,8 +439,8 @@ ("nnml:bigml\\..*" ;; (posting-style (address "jao@bigml.com")) (jao-gnus--trash-group "nnml:jao.trash") - (jao-gnus--archiving-group "nnml:bigml.trove") - (jao-gnus--spam-group "nnml:bigml.spam")) + (jao-gnus--spam-group "nnml:jao.spam") + (jao-gnus--archiving-group "nnml:bigml.trove")) ("nnml:bigml\\.inbox" (gcc-self . t) (auto-expire . t) @@ -488,11 +472,11 @@ (expiry-wait . 7) (expiry-target . delete) (jao-gnus--archiving-group "nnml:feeds.trove")) - ("nnml:feeds\\.\\(news\\|emacs\\|prog\\)$" (expiry-wait . 1)) + ("^nnml:feeds\\.\\(news\\)$" (expiry-wait . 2)) ("nnml:feeds\\.trove" (auto-expire . nil) (total-expire . nil)) - ("nnml:feeds.fun" + (,jao-gnus-image-groups-rx (mm-html-inhibit-images nil) (mm-html-blocked-images nil)) ("\\(gmane\\|gwene\\)\\..*" @@ -650,7 +634,7 @@ (define-key gnus-summary-mode-map "/!" 'jao-gnus-show-tickled) (define-key gnus-summary-mode-map [f7] 'gnus-summary-force-verify-and-decrypt) #+END_SRC -*** Writing emails +*** Saving emails #+BEGIN_SRC emacs-lisp (setq gnus-default-article-saver 'gnus-summary-save-article-mail) (defvar jao-gnus-file-save-directory (expand-file-name "~/tmp")) -- cgit v1.2.3