diff options
| -rw-r--r-- | email.org | 9 | ||||
| -rw-r--r-- | gnus.org | 6 |
2 files changed, 11 insertions, 4 deletions
@@ -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 @@ -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) |