notmuch: k to mark as deleted current thread

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")))