summaryrefslogtreecommitdiffhomepage
path: root/gnus.org
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-06-03 00:53:34 +0100
committerjao <jao@gnu.org>2021-06-03 00:53:34 +0100
commitbb40819efff0ff7e751a83d4563ddfec3d57acfc (patch)
tree44eb1134257e8aba5908abf3fa8ddf4eff30354b /gnus.org
parent0d03f558a3b9309f509e8de31844365e7e7f0586 (diff)
downloadelibs-bb40819efff0ff7e751a83d4563ddfec3d57acfc.tar.gz
elibs-bb40819efff0ff7e751a83d4563ddfec3d57acfc.tar.bz2
gnus: automatic re-select on enter (and nits)
Diffstat (limited to 'gnus.org')
-rw-r--r--gnus.org13
1 files changed, 10 insertions, 3 deletions
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)