notmuch: search jump tweaks

1 files changed, 5 insertions, 3 deletions

diff --git a/custom/jao-custom-notmuch.el b/custom/jao-custom-notmuch.el
index 92b9be0..ade064b 100644
--- a/custom/jao-custom-notmuch.el
+++ b/custom/jao-custom-notmuch.el
@@ -1,4 +1,4 @@
-;; -*- lexical-binding: t; -*-
+;;; -*- lexical-binding: t; -*-
 ;;; minibuffer
 (defvar jao-notmuch-minibuffer-string "")
 
@@ -207,8 +207,10 @@ ch--search-keys i)
   "Jump to a saved, non-zero count search."
   (interactive)
   (if-let* ((searches (jao-notmuch--searches-w/new notmuch-saved-searches)))
-      (if (= 1 (length searches))
-          (let* ((q (car searches))
+      (if (= 2 (length searches))
+          (let* ((q (seq-remove (lambda (q) (string= "new" (plist-get q :name)))
+                                searches))
+                 (q (car q))
                  (of (eq 'oldest-first (plist-get q :sort-order)))
                  (query (plist-get q :query)))
             (notmuch-tree query nil nil nil nil nil nil of t))