notmuch.el: Make archive-thread advance to next line.

This is the command in notmuch-search mode and it's cer convenient
for it to advance to the next line there. (It would be even more
convenient if it didn't also take forever, but as mentioned before
that's an issue we'll need to fix in Xapian.)

diff --git a/notmuch.el b/notmuch.el
index 989450a697e946cdb2e0f92fb1c8ca1f32fd917f..0050dd92ffbf806a032004c8a0db644a9dd44531 100644 (file)
--- a/notmuch.el
+++ b/notmuch.el
@@ -445,8 +445,12 @@ Does nothing if already on the first message in the buffer."
   (notmuch-search-set-tags (delete tag (notmuch-search-get-tags))))
 
 (defun notmuch-search-archive-thread ()
   (notmuch-search-set-tags (delete tag (notmuch-search-get-tags))))
 
 (defun notmuch-search-archive-thread ()

+  "Archive the current thread (remove its \"inbox\" tag).
+
+This function advances point to the next line when finished."

   (interactive)
   (interactive)

-  (notmuch-search-remove-tag "inbox"))
+  (notmuch-search-remove-tag "inbox")
+  (next-line))

 
 (defun notmuch-search (query)
   "Run \"notmuch search\" with the given query string and display results."
 
 (defun notmuch-search (query)
   "Run \"notmuch search\" with the given query string and display results."