X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=notmuch.el;h=0050dd92ffbf806a032004c8a0db644a9dd44531;hp=989450a697e946cdb2e0f92fb1c8ca1f32fd917f;hb=e0b830410aa1c64942a50ca7dd46bee9a496d86d;hpb=c4ea149a9bc3a0a49d58e956cf35a96210f4ad1e

diff --git a/notmuch.el b/notmuch.el
index 989450a6..0050dd92 100644
--- 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."