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.

diff --git a/emacs/notmuch.el b/emacs/notmuch.el
index 64caa3eaf2e5a9b73c79b38634ba9f398d9ff083..a8a85ce7839d11a9e5fce04d85da57481a51f45e 100644 (file)
--- a/emacs/notmuch.el
+++ b/emacs/notmuch.el
@@ -593,7 +593,7 @@ See `notmuch-tag' for information on the format of TAG-CHANGES."
   (interactive)
   (notmuch-search-tag "-"))
 
   (interactive)
   (notmuch-search-tag "-"))
 

-(defun notmuch-search-archive-thread ()
+(defun notmuch-search-archive-thread (&optional unarchive)

   "Archive the currently selected thread.
 
 Archive each message in the currently selected thread by applying
   "Archive the currently selected thread.
 
 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).
 
 This function advances the next thread when finished."
 `notmuch-archive-tags' will be reversed).
 
 This function advances the next thread when finished."

-  (interactive)
+  (interactive "P")

   (when notmuch-archive-tags
     (notmuch-search-tag
   (when notmuch-archive-tags
     (notmuch-search-tag

-     (notmuch-tag-change-list notmuch-archive-tags)))
+     (notmuch-tag-change-list notmuch-archive-tags unarchive)))

   (notmuch-search-next-thread))
 
 (defun notmuch-search-update-result (result &optional pos)
   (notmuch-search-next-thread))
 
 (defun notmuch-search-update-result (result &optional pos)