From f014851d98970f07d1515805060dd55678284f27 Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 17 May 2021 04:07:24 +0100 Subject: email/news search tweaks --- email.org | 9 ++++++++- gnus.org | 6 +++--- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/email.org b/email.org index 6c107f2..8454f13 100644 --- a/email.org +++ b/email.org @@ -344,13 +344,18 @@ (jao-list-mailboxes base))) '("jao" "bigml" "feeds" "trove"))) + (defvar jao-consult-notmuch-history nil) + (defun jao-consult-notmuch-folder (&optional tree folder) (interactive "P") (let* ((root "~/var/mail/") (folder (if folder (file-name-as-directory folder) (completing-read "Folder: " - jao-consult-notmuch-folders))) + jao-consult-notmuch-folders + nil nil nil + jao-consult-notmuch-history + "."))) (folder (replace-regexp-in-string "/\\(.\\)" ".\\1" folder)) (init (read-string "Initial query: ")) (init (format "folder:/%s/ %s" folder init))) @@ -417,6 +422,8 @@ tag_directory jao tag_directory feeds + notmuch tag +gmane -- tag:new AND folder:/gmane/ + tag_deleted "bigml.(drivel|lists|deploys|bugs)" 3d tag_deleted "bigml.reports" 1d tag_deleted "bigml.support$" 7d diff --git a/gnus.org b/gnus.org index 8e4afd1..1469c2e 100644 --- a/gnus.org +++ b/gnus.org @@ -359,9 +359,9 @@ (message "Restarting all servers... done")) (define-key gnus-group-mode-map "z" nil) - (define-key gnus-group-mode-map "zz" #'notmuch) - (define-key gnus-group-mode-map "zg" #'jao-consult-notmuch-folder) - (define-key gnus-group-mode-map "zG" #'consult-notmuch) + (define-key gnus-group-mode-map "zg" #'notmuch) + (define-key gnus-group-mode-map "zz" #'jao-consult-notmuch-folder) + (define-key gnus-group-mode-map "zZ" #'consult-notmuch) (defun jao-gnus--first-group () (when (derived-mode-p 'gnus-group-mode) -- cgit v1.2.3