From e6f74b28476dcd91bd106d52a90a294d96e6597c Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 8 Nov 2025 22:21:52 +0000 Subject: notmuch: search jump tweaks --- custom/jao-custom-notmuch.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'custom') 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)) -- cgit v1.2.3