emacs: add support for reversing notmuch-search-archive-thread tag changes

Since archiving a thread can now be a user customized set of tag
changes, make reversing this easier. Allow a prefix argument to
notmuch-search-archive-thread to reverse the archiving, similar to the
unarchiving in notmuch-show-archive-message.
This commit is contained in:
Jani Nikula 2012-09-06 18:32:41 +03:00 committed by David Bremner
parent d5dcfc714e
commit 1548751041

View file

@ -593,7 +593,7 @@ See `notmuch-tag' for information on the format of TAG-CHANGES."
(interactive) (interactive)
(notmuch-search-tag "-")) (notmuch-search-tag "-"))
(defun notmuch-search-archive-thread () (defun notmuch-search-archive-thread (&optional unarchive)
"Archive the currently selected thread. "Archive the currently selected thread.
Archive each message in the currently selected thread by applying Archive each message in the currently selected thread by applying
@ -603,10 +603,10 @@ messages will be \"unarchived\" (i.e. the tag changes in
`notmuch-archive-tags' will be reversed). `notmuch-archive-tags' will be reversed).
This function advances the next thread when finished." This function advances the next thread when finished."
(interactive) (interactive "P")
(when notmuch-archive-tags (when notmuch-archive-tags
(notmuch-search-tag (notmuch-search-tag
(notmuch-tag-change-list notmuch-archive-tags))) (notmuch-tag-change-list notmuch-archive-tags unarchive)))
(notmuch-search-next-thread)) (notmuch-search-next-thread))
(defun notmuch-search-update-result (result &optional pos) (defun notmuch-search-update-result (result &optional pos)