diff options
| author | jao <jao@gnu.org> | 2025-11-05 18:22:51 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2025-11-05 18:22:51 +0000 |
| commit | 144e63edbe007c4fac3918a67e6cf0d957fa832b (patch) | |
| tree | 497c49de656e398fad76ccb9ce3212cd89d09987 /lib/net/jao-notmuch.el | |
| parent | 83bd6a98d80180dc0e2a7b93d8362d82924ba5ab (diff) | |
| download | elibs-144e63edbe007c4fac3918a67e6cf0d957fa832b.tar.gz elibs-144e63edbe007c4fac3918a67e6cf0d957fa832b.tar.bz2 | |
jao-notmuch-mark-all-readd (gnus's c's envy)
Diffstat (limited to 'lib/net/jao-notmuch.el')
| -rw-r--r-- | lib/net/jao-notmuch.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el index 7ae9a4f..73f6420 100644 --- a/lib/net/jao-notmuch.el +++ b/lib/net/jao-notmuch.el @@ -316,6 +316,12 @@ (let ((undo (jao-notmuch--has-tag "deleted"))) (jao-notmuch-tree-tag-thread '("+deleted" "-new" "-unread") undo full))) +(defun jao-notmuch-tree-mark-all-read () + (interactive) + (when-let* ((q notmuch-tree-basic-query)) + (when (yes-or-no-p "Mark all messages as read? ") + (notmuch-tag q '("-new" "-unread"))))) + (defun jao-notmuch-tree-read-thread (full) (interactive "P") (jao-notmuch-tree-tag-thread '("-unread" "-new") nil full)) |