notmuch.el: Fix add/remove tag from search buffers.

These were recently broken with the change of "notmuch search" to
prefix thread IDs with "thread:" rather than printing them raw.
This commit is contained in:
Carl Worth 2009-11-09 13:45:11 -08:00
parent 3942933962
commit 97ef8a74c9

View file

@ -759,12 +759,12 @@ and will also appear in a buffer named \"*Notmuch errors*\"."
(defun notmuch-search-add-tag (tag) (defun notmuch-search-add-tag (tag)
(interactive "sTag to add: ") (interactive "sTag to add: ")
(notmuch-call-notmuch-process "tag" (concat "+" tag) (concat "thread:" (notmuch-search-find-thread-id))) (notmuch-call-notmuch-process "tag" (concat "+" tag) (notmuch-search-find-thread-id))
(notmuch-search-set-tags (delete-dups (sort (cons tag (notmuch-search-get-tags)) 'string<)))) (notmuch-search-set-tags (delete-dups (sort (cons tag (notmuch-search-get-tags)) 'string<))))
(defun notmuch-search-remove-tag (tag) (defun notmuch-search-remove-tag (tag)
(interactive "sTag to remove: ") (interactive "sTag to remove: ")
(notmuch-call-notmuch-process "tag" (concat "-" tag) (concat "thread:" (notmuch-search-find-thread-id))) (notmuch-call-notmuch-process "tag" (concat "-" tag) (notmuch-search-find-thread-id))
(notmuch-search-set-tags (delete tag (notmuch-search-get-tags)))) (notmuch-search-set-tags (delete tag (notmuch-search-get-tags))))
(defun notmuch-search-archive-thread () (defun notmuch-search-archive-thread ()