From 29cc19fc5eec7f9ddc7d56c475112e2ff7acb6a4 Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 12 Jan 2022 18:28:26 +0000 Subject: jao-notmuch: new command to undo tagging --- lib/net/jao-notmuch.el | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'lib/net') diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el index 4714367..ebb348a 100644 --- a/lib/net/jao-notmuch.el +++ b/lib/net/jao-notmuch.el @@ -411,6 +411,11 @@ '("-unread" "-new" "+spam")))) (jao-notmuch-tree--tag-and-next tags nil nil))) +(defun jao-notmuch-tree-reset-tags () + (interactive) + (let ((tags (plist-get (notmuch-tree-get-message-properties) :orig-tags))) + (jao-notmuch-tree--tag tags nil nil))) + ;;;; Results formatters -- cgit v1.2.3