[PATCH 5/5] 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.
---
emacs/notmuch.el |8 +---
1 file changed, 1 insertion(+), 7 deletions(-)
diff --git a/emacs/notmuch.el b/emacs/notmuch.el
index a03a526..cfc3b29 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 ( 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 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
--
1.7.9.5
[PATCH 5/5] 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. --- emacs/notmuch.el |8 +--- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/emacs/notmuch.el b/emacs/notmuch.el index a03a526..cfc3b29 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 -- 1.7.9.5 ___ notmuch mailing list notmuch@notmuchmail.org http://notmuchmail.org/mailman/listinfo/notmuch
