test/test-lib.sh: take the --background feature in smtp-dummy into use

[notmuch] / emacs / notmuch.el

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)