From dbb475ebfb7ef4a9b21e7174eeb9242db362c503 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Mon, 26 Jul 2021 00:34:27 +0100
Subject: notmuch: emacs queries

---
 init.org    |  2 +-
 notmuch.org | 18 +++++++++++-------
 2 files changed, 12 insertions(+), 8 deletions(-)

diff --git a/init.org b/init.org
index 16107b2..e3b0c7d 100644
--- a/init.org
+++ b/init.org
@@ -1504,7 +1504,7 @@
     #+end_src
 * Email
   #+begin_src emacs-lisp
-    (setq jao-afio-mail-function 'gnus)
+    (setq jao-afio-mail-function 'notmuch)
     (jao-load-org "email")
   #+end_src
 * PDFs
diff --git a/notmuch.org b/notmuch.org
index 76e484c..4f9b3ee 100644
--- a/notmuch.org
+++ b/notmuch.org
@@ -76,10 +76,10 @@
             ,@(jao-notmuch--mboxes-search "jao")
             ,(jao-notmuch--q "feeds" "papers" "fp" '("tag:papers" "tag:new"))
             ,(jao-notmuch--q "local" nil "l" '("tag:local" "tag:new"))
-            ,(jao-notmuch--q "gmane" "emacs" "e")
-            ,(jao-notmuch--q "gmane" nil "g"
-                             '("tag:gmane" "tag:new"
-                               "not tag:emacs" "not tag:papers"))
+            ,(jao-notmuch--q "emacs" "github" "eg" '("tag:new" "tag:emacs-github"))
+            ,(jao-notmuch--q "emacs" "devel" "ed" '("tag:new" "tag:emacs-devel"))
+            ,(jao-notmuch--q "emacs" "bugs" "eb" '("tag:new" "tag:emacs-bugs"))
+            ,(jao-notmuch--q "emacs" "diffs" "ec" '("tag:new" "tag:emacs-diffs"))
             ,@(jao-notmuch--mboxes-search "feeds")
             ,(jao-notmuch--q "bml" "today" "tb" '("tag:bigml" "date:1d..") t)
             ,(jao-notmuch--q "jao" "today" "tj"
@@ -118,6 +118,7 @@
       :init
       (setq notmuch-draft-folder "jao/drafts"
             notmuch-draft-quoted-tags '("part")
+            notmuch-column-control 1.0
             notmuch-hello-sections '(notmuch-hello-insert-saved-searches
                                      notmuch-hello-insert-alltags
                                      notmuch-hello-insert-header)
@@ -185,19 +186,22 @@
 
       :bind (:map notmuch-hello-mode-map
              (("a" . jao-notmuch-refresh-agenda)
+              ("n" . widget-forward)
               ("S" . consult-notmuch)
               ("g" . jao-notmuch-refresh-hello)
               ("." . jao-notmuch-hello-first)
               ("SPC" . widget-button-press))
              :map notmuch-common-keymap
              (("E" . jao-notmuch-open-enclosure))))
-  #+end_src
-* tree view
-  #+begin_src emacs-lisp
+
     (use-package jao-notmuch
       :demand t
       :config (setq jao-notmuch-mailboxes (jao-mailbox-folders)))
 
+
+  #+end_src
+* tree view
+  #+begin_src emacs-lisp
     (use-package notmuch-tree
       :config
 
-- 
cgit v1.2.3