Quoting Mark Walters <[email protected]>:
'Mash <[email protected]> writes:
I am trying to setup a tag toggle to be used in the Notmuch-tree.
I referred to "Add a key binding to add/remove/toggle a tag":
http://notmuchmail.org/emacstips/#index8h2
Looking at "notmuch-tree.el" I noticed
(defun notmuch-tree-get-tags ()
"Return the tags of the current message."
(notmuch-tree-get-prop :tags))
and
(defun notmuch-tree-tag (tag-changes)
"Change tags for the current message"
(interactive
(list (notmuch-read-tag-changes (notmuch-tree-get-tags) "Tag message")))
(notmuch-tag (notmuch-tree-get-message-id) tag-changes)
(notmuch-tree-tag-update-display tag-changes))
Which in my mind would be substituted for "notmuch-show-tag-message"
and "notmuch-show-get-tags" respectively in the "add a toggle
"deleted" key" example.
(define-key notmuch-tree-mode-map "d"
(lambda ()
"toggle deleted tag for message"
(interactive)
(notmuch-tree-tag
(if (member "deleted" (notmuch-tree-get-tags))
"-deleted" "+deleted"))))
Hi
I think you want
(if (member "deleted" (notmuch-tree-get-tags))
(list "-deleted")
(list "+deleted")))))
at the end. It looks like the wiki could do some tidying, which I will
try and have a look at at some point.
Best wishes
Mark
Excellent!
Many thanks for your quick response.
I am attempting to move from > 8 years of using Mutt in an Emacs Term
to Notmuch. Slow going so far, especially trying to get the workflow
sorted. (The reason for the move is Mutt in Emacs24 Term is
horrifically sluggish for some reason I am yet to discover.)
I need to investigate a keybinding to go straight to notmuch-tree now.
Thanks again,
_______________________________________________
notmuch mailing list
[email protected]
http://notmuchmail.org/mailman/listinfo/notmuch
