summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--email.org9
-rw-r--r--gnus.org6
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)