summaryrefslogtreecommitdiffhomepage
path: root/email.org
diff options
context:
space:
mode:
Diffstat (limited to 'email.org')
-rw-r--r--email.org16
1 files changed, 14 insertions, 2 deletions
diff --git a/email.org b/email.org
index 50bd73b..009a4f9 100644
--- a/email.org
+++ b/email.org
@@ -590,6 +590,17 @@
(scroll-other-window 1)
(notmuch-tree-show-message nil)))
+ (defun jao-notmuch-tree-delete-next (thread)
+ "Mark as deleted current message (or thread, with prefix) and move to next."
+ (interactive "P")
+ (jao-notmuch-tree--tag-next '("+deleted" "-unread" "-new") nil thread))
+
+
+ (defun jao-notmuch-tree-read-thread-next ()
+ "Mark the current thread as read and move to next one."
+ (interactive)
+ (jao-notmuch-tree--tag-next '("-unread" "-new") nil t))
+
(dolist (f '(notmuch-tree-match-tree-face
notmuch-tree-no-match-tree-face))
(set-face-attribute f nil
@@ -608,7 +619,8 @@
(("." . jao-notmuch-toggle-mime-parts)
("i" . jao-notmuch-toggle-images)
("h" . jao-notmuch-goto-message-buffer)
- ("k" . jao-notmuch-tag-jump)
+ ("K" . jao-notmuch-tag-jump)
+ ("k" . jao-notmuch-tree-read-thread-next)
("n" . jao-notmuch-tree-next)
("RET" . jao-notmuch-tree-show-or-scroll)
("SPC" . jao-notmuch-tree-scroll-or-next))))
@@ -639,7 +651,7 @@
notmuch-tagging-keys
'(("a" notmuch-archive-tags "Archive")
("d" notmuch-show-mark-read-tags "Mark read")
- ("u" ("+new" "+unread") "Mark unred read")
+ ("u" ("+new" "+unread") "Mark unread")
("f" ("+flagged") "Flag")
("x" ("+deleted" "-new" "-flagged" "-unread") "Deleted")))