From: Mark Walters <markwalters1009@gmail.com>
Date: Fri, 6 Jun 2014 12:48:33 +0000 (+0100)
Subject: emacs: search archive tweak
X-Git-Tag: 0.19_rc1~137
X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=commitdiff_plain;h=ef819eb689a75acbc118a3ddbb3ac975460a95c8

emacs: search archive tweak

notmuch-search-archive-thread moves to the next line after tagging. In
the normal case this makes sense, but if the region is active, it tags
the whole region and then it doesn't really. Thus only move to the
next line if region is not active.
---

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