implement catching up notmuch-tree views

1 files changed, 14 insertions, 0 deletions

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index b561b506..33d40d6e 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -1353,6 +1353,20 @@ Passes ARG to `projectile-switch-project-by-name'."
 (use-package notmuch-tree
   :commands notmuch-tree
   :config
+  ;; use on views produced by `spw--next-unread-group', and only after
+  ;; emptying weekday unread view, so that messages which fall into
+  ;; both `spw--lists-readall' and the current view will not
+  ;; accidentally get marked as read
+  (defun spw--notmuch-tree-catchup ()
+    (interactive)
+    (when (and (eq major-mode 'notmuch-tree-mode)
+               (y-or-n-p (concat "Are you sure you want to mark all as read?"
+                                 " (should be used only after emptying"
+                                 " weekday unread view)")))
+      (notmuch-tag (notmuch-tree-get-query) '("-unread"))
+      (notmuch-refresh-this-buffer)))
+  (bind-key "C" 'spw--notmuch-tree-catchup notmuch-tree-mode-map)
+
   (bind-key "<f9>" 'spw--next-unread-group notmuch-tree-mode-map))
 
 (use-package notmuch-hello