From 5adea7669935fc661c8e2d7ec2fa57c4e505d8cf Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 10 Jul 2021 02:24:02 +0100 Subject: little gnus nice-to-haves --- gnus.org | 29 ++++++++++++++++++----------- 1 file changed, 18 insertions(+), 11 deletions(-) (limited to 'gnus.org') diff --git a/gnus.org b/gnus.org index 09fa8e4..a8abd89 100644 --- a/gnus.org +++ b/gnus.org @@ -121,17 +121,18 @@ #+begin_src emacs-lisp (setq gnus-search-use-parsed-queries t jao-gnus-search-prefix (expand-file-name "~/var/mail/")) - - (defun jao-gnus-search-engine (engine) - `(gnus-search-engine ,engine (remove-prefix ,jao-gnus-search-prefix))) + (with-eval-after-load "gnus-search" + (add-to-list 'gnus-search-expandable-keys "list-id")) #+end_src * News server #+begin_src emacs-lisp (setq gnus-select-method (cond (jao-gnus-use-leafnode - `(nntp "localhost" - (gnus-search-engine gnus-search-notmuch - (remove-prefix "/home/jao/var/news/")))) + '(nntp "localhost" + (gnus-search-engine + gnus-search-notmuch + (remove-prefix "/home/jao/var/news/") + (config-file "/home/jao/.notmuch-config-news")))) (jao-gnus-use-gmane '(nntp "news.gmane.io")) (t '(nnnil "")))) @@ -185,13 +186,19 @@ (when jao-gnus-use-maildirs (add-to-list 'gnus-secondary-select-methods `(nnmaildir "bml" (directory "~/var/mail/bigml/") - ,(jao-gnus-search-engine 'gnus-search-notmuch))) + (gnus-search-engine gnus-search-notmuch + (remove-prefix + "/home/jao/var/mail/")))) (add-to-list 'gnus-secondary-select-methods '(nnmaildir "jao" (directory "~/var/mail/jao/") - ,(jao-gnus-search-engine 'gnus-search-notmuch))) + (gnus-search-engine gnus-search-notmuch + (remove-prefix + "/home/jao/var/mail/")))) (add-to-list 'gnus-secondary-select-methods '(nnmaildir "feeds" (directory "~/var/mail/feeds/") - ,(jao-gnus-search-engine 'gnus-search-notmuch)))) + (gnus-search-engine gnus-search-notmuch + (remove-prefix + "/home/jao/var/mail/"))))) #+end_src * Demons and notifications #+begin_src emacs-lisp @@ -210,7 +217,7 @@ (defvar jao-gnus-tracked-groups '(("nnimap:bigml/inbox" "B" jao-themes-f00) - ("nnimap:bigml/bugs" "b" jao-themes-error) + ("nnselect:.*bugs" "b" jao-themes-error) ("nnimap:bigml/support" "S" default) ("nnimap:jao/inbox" "I" jao-themes-f01) ("nnimap:bigml/[^ibs]" "W" jao-themes-dimm) @@ -391,7 +398,7 @@ (regexp-opt '("reports" "deploys" "lists" "drivel" "bugs")) (regexp-opt '("think" "drivel" "lists")))) - (setq gnus-permanently-visible-groups "^nnselect.*") + (setq gnus-permanently-visible-groups "^nnselect:.*today") (setq gnus-parameters `(("^nnimap:jao/.*" -- cgit v1.2.3