From d5dcfc714e13256cb2084b30d3506a4abc990a51 Mon Sep 17 00:00:00 2001 From: Jani Nikula Date: Thu, 6 Sep 2012 18:32:40 +0300 Subject: emacs: add support for custom tag changes on message/thread archive Add support for customization of the tag changes that are applied when a message or a thread is archived. Instead of hard-coded removal of the "inbox" tag, the user can now specify a list of tag changes to perform. --- emacs/notmuch.el | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'emacs/notmuch.el') diff --git a/emacs/notmuch.el b/emacs/notmuch.el index 1c43d3ee..64caa3ea 100644 --- a/emacs/notmuch.el +++ b/emacs/notmuch.el @@ -594,11 +594,19 @@ See `notmuch-tag' for information on the format of TAG-CHANGES." (notmuch-search-tag "-")) (defun notmuch-search-archive-thread () - "Archive the currently selected thread (remove its \"inbox\" tag). + "Archive the currently selected thread. + +Archive each message in the currently selected thread by applying +the tag changes in `notmuch-archive-tags' to each (remove the +\"inbox\" tag by default). If a prefix argument is given, the +messages will be \"unarchived\" (i.e. the tag changes in +`notmuch-archive-tags' will be reversed). This function advances the next thread when finished." (interactive) - (notmuch-search-tag '("-inbox")) + (when notmuch-archive-tags + (notmuch-search-tag + (notmuch-tag-change-list notmuch-archive-tags))) (notmuch-search-next-thread)) (defun notmuch-search-update-result (result &optional pos) -- cgit v1.2.3