X-Git-Url: https://git.notmuchmail.org/git?a=blobdiff_plain;f=emacs%2Fnotmuch.el;h=2a9876fddbeb69ce482cc4b7cfd75288dabfcd24;hb=ef819eb689a75acbc118a3ddbb3ac975460a95c8;hp=f6bf9c84d6a9cc4c86c647237d668e5a60784daf;hpb=44e6c52c76199f707b344b3303710a03201bee40;p=notmuch

diff --git a/emacs/notmuch.el b/emacs/notmuch.el
index f6bf9c84..2a9876fd 100644
--- a/emacs/notmuch.el
+++ b/emacs/notmuch.el
@@ -580,7 +580,8 @@ This function advances the next thread when finished."
   (when notmuch-archive-tags
     (notmuch-search-tag
      (notmuch-tag-change-list notmuch-archive-tags unarchive) beg end))
-  (notmuch-search-next-thread))
+  (when (eq beg end)
+    (notmuch-search-next-thread)))
 
 (defun notmuch-search-update-result (result &optional pos)
   "Replace the result object of the thread at POS (or point) by