[PATCH 4/5] emacs: make search tag completion use the tags it believes are there

[Mark Walters]

From: markwalters1009 <markwalters1009 at gmail.com>

Tagging from search mode now passes the tags it believes are present
to the completion function. This means that the user interface is more
consistent: tag-completion will complete to any tag the user can see
(even if it is no longer present).
---
 emacs/notmuch.el |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/emacs/notmuch.el b/emacs/notmuch.el
index 4e6bbcf..4ffa803 100644
--- a/emacs/notmuch.el
+++ b/emacs/notmuch.el
@@ -567,8 +567,9 @@ and will also appear in a buffer named \"*Notmuch errors*\"."
 
 (defun notmuch-search-tag-region (beg end &optional tag-changes)
   "Change tags for threads in the given region."
-  (let ((search-string (notmuch-search-find-thread-id-region-search beg end)))
-    (setq tag-changes (funcall 'notmuch-tag search-string tag-changes))
+  (let ((search-string (notmuch-search-find-thread-id-region-search beg end))
+	(current-tags (notmuch-search-get-tags-region beg end)))
+    (setq tag-changes (funcall 'notmuch-tag search-string tag-changes current-tags))
     (notmuch-search-foreach-result beg end
       (lambda (pos)
 	(notmuch-search-set-tags
-- 
1.7.9.1