DomainKey-Signature: a=rsa-sha1; c=nofws; d=gmail.com; s=gamma;
	h=sender:from:to:cc:subject:date:message-id:x-mailer:in-reply-to
	:references;
	b=jPxDvJXNNpqdyU8ZoQ6n0KDWWqWWqtPfyC8GoWGrmzWpfjJ1YcFHMIt3Tk//MJj28D
	/jG2hLOukChMYDqmaP8Ti5puDjP53mRcmImat3coCkAazPtGWzuojLxtWc/nT5VZB3CP
	2Gf11ptYMHoaHMH6GoWQm1z8BRdOOy0x79OM4=
Sender: Jed Brown <five9a2@gmail.com>
From: Jed Brown <jed@59A2.org>
To: cworth@cworth.org
Date: Thu, 26 Nov 2009 22:36:50 +0100
Message-Id: <1259271410-15336-2-git-send-email-jed@59A2.org>
In-Reply-To: <1259271410-15336-1-git-send-email-jed@59A2.org>
References: <87pr75q9va.fsf@yoom.home.cworth.org>
	<1259271410-15336-1-git-send-email-jed@59A2.org>
Cc: notmuch@notmuchmail.org
Subject: [notmuch] [PATCH 2/2] notmuch-search-add/remove-tag: restrict to
	messages in current query
Precedence: list

Rather than tagging the everything in the thread.  This is arguably more
desirable behavior and is consistent with clearly desirably behavior of
notmuch-search-operate-all.

Note that this change applies indirectly to
notmuch-search-archive-thread (which is actually equivalent behavior
since this function is primarily used when browsing an inbox).

Signed-off-by: Jed Brown <jed@59A2.org>
---
 notmuch.el |    8 ++++++--
 1 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/notmuch.el b/notmuch.el
index 6adac9e..e9786c0 100644
--- a/notmuch.el
+++ b/notmuch.el
@@ -935,15 +935,19 @@ and will also appear in a buffer named \"*Notmuch errors*\"."
 	(split-string (buffer-substring beg end))))))
 
 (defun notmuch-search-add-tag (tag)
+  "Add a tag to messages in the current thread matching the
+active query."
   (interactive
    (list (notmuch-select-tag-with-completion "Tag to add: ")))
-  (notmuch-call-notmuch-process "tag" (concat "+" tag) (notmuch-search-find-thread-id))
+  (notmuch-call-notmuch-process "tag" (concat "+" tag) (notmuch-search-find-thread-id) " and " notmuch-search-query-string)
   (notmuch-search-set-tags (delete-dups (sort (cons tag (notmuch-search-get-tags)) 'string<))))
 
 (defun notmuch-search-remove-tag (tag)
+  "Remove a tag from messages in the current thread matching the
+active query."
   (interactive
    (list (notmuch-select-tag-with-completion "Tag to remove: " (notmuch-search-find-thread-id))))
-  (notmuch-call-notmuch-process "tag" (concat "-" tag) (notmuch-search-find-thread-id))
+  (notmuch-call-notmuch-process "tag" (concat "-" tag) (notmuch-search-find-thread-id) " and " notmuch-search-query-string)
   (notmuch-search-set-tags (delete tag (notmuch-search-get-tags))))
 
 (defun notmuch-search-archive-thread ()
-- 
1.6.5.3