From: markwalters1009 <[email protected]>
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
