diff options
| -rw-r--r-- | gnus.org | 13 |
1 files changed, 10 insertions, 3 deletions
@@ -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) |