From: Jameson Graef Rollins <jrollins@finestructure.net>
Date: Sat, 14 Apr 2012 18:52:54 +0000 (-0700)
Subject: emacs: eliminate search-tag-thread in favor of just search-tag
X-Git-Tag: 0.13_rc1~36
X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=commitdiff_plain;h=904a8070889c36b5dc7169a82f20cc354cc0f867

emacs: eliminate search-tag-thread in favor of just search-tag

notmuch-search-tag-thread is now completely redundant with
notmuch-search-tag so we eliminate it to simplify the interface.
---

diff --git a/emacs/notmuch.el b/emacs/notmuch.el
index a069492b..c6236db2 100644
--- a/emacs/notmuch.el
+++ b/emacs/notmuch.el
@@ -517,12 +517,6 @@ and will also appear in a buffer named \"*Notmuch errors*\"."
 	(forward-line 1))
       output)))
 
-(defun notmuch-search-tag-thread (&rest tag-changes)
-  "Change tags for the currently selected thread.
-
-See `notmuch-search-tag-region' for details."
-  (apply 'notmuch-search-tag-region (point) (point) tag-changes))
-
 (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)))
@@ -560,7 +554,7 @@ See `notmuch-tag' for information on the format of TAG-CHANGES."
 
 This function advances the next thread when finished."
   (interactive)
-  (notmuch-search-tag-thread "-inbox")
+  (notmuch-search-tag '("-inbox"))
   (notmuch-search-next-thread))
 
 (defvar notmuch-search-process-filter-data nil