email/news search tweaks

1 files changed, 8 insertions, 1 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