From bb40819efff0ff7e751a83d4563ddfec3d57acfc Mon Sep 17 00:00:00 2001 From: jao Date: Thu, 3 Jun 2021 00:53:34 +0100 Subject: gnus: automatic re-select on enter (and nits) --- gnus.org | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) (limited to 'gnus.org') diff --git a/gnus.org b/gnus.org index a11bfa0..ba3a9b5 100644 --- a/gnus.org +++ b/gnus.org @@ -399,12 +399,11 @@ (expiry-wait . 1) (jao-gnus--trash-group nil) (expiry-target . delete)) - ("^nnselect:.*-today" - (nnselect-rescan . t)) ("^nnimap:jao/inbox" (gcc-self . t)) ("^nnimap:bigml/.*" (posting-style (address "jao@bigml.com")) + (jao-gnus--archiving-group "nnimap:trove/bigml") (jao-gnus--spam-group "nnimap:bigml/spam")) ("^nnimap:bigml/inbox" (gcc-self . t) @@ -449,7 +448,9 @@ #+BEGIN_SRC emacs-lisp (setq gnus-summary-ignore-duplicates t gnus-suppress-duplicates t - gnus-summary-ignored-from-addresses jao-mails-regexp) + gnus-summary-ignored-from-addresses jao-mails-regexp + gnus-process-mark-toggle t + gnus-auto-select-next 'almost-quietly) (setq gnus-show-threads t gnus-thread-hide-subtree t @@ -477,6 +478,12 @@ ;; (add-hook 'gnus-select-group-hook 'jao-gnus--set-summary-line) (jao-gnus--set-summary-line 190) + (defun jao-gnus--maybe-reselect (&rest _i) + (when (string-match-p "^nnselect" (or (gnus-group-name-at-point) "")) + (save-excursion (gnus-group-get-new-news-this-group)))) + + (advice-add 'gnus-group-select-group :before #'jao-gnus--maybe-reselect) + (add-to-list 'nnmail-extra-headers 'Cc) (add-to-list 'nnmail-extra-headers 'BCc) (add-to-list 'gnus-extra-headers 'Cc) -- cgit v1.2.3