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.
This commit is contained in:
Mark Walters 2014-06-06 13:48:33 +01:00 committed by David Bremner
parent de262a2026
commit ef819eb689

View file

@ -580,7 +580,8 @@ This function advances the next thread when finished."
(when notmuch-archive-tags (when notmuch-archive-tags
(notmuch-search-tag (notmuch-search-tag
(notmuch-tag-change-list notmuch-archive-tags unarchive) beg end)) (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) (defun notmuch-search-update-result (result &optional pos)
"Replace the result object of the thread at POS (or point) by "Replace the result object of the thread at POS (or point) by