little gnus nice-to-haves

2 files changed, 19 insertions, 12 deletions

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/.*"
diff --git a/init.org b/init.org
index 512c8ff..440f914 100644
--- a/init.org
+++ b/init.org
@@ -1496,7 +1496,7 @@
     #+end_src
 * Email
   #+begin_src emacs-lisp
-    (setq jao-afio-mail-function 'notmuch)
+    (setq jao-afio-mail-function 'gnus)
     (jao-load-org "email")
   #+end_src
 * PDFs