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

[notmuch] / notmuch.el

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 ()
+  "Archive the current thread (remove its \"inbox\" tag).
+
+This function advances point to the next line when finished."
   (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."