-(defun notmuch-show-tag-thread-internal (tag &optional remove)
- "Add tag to the current set of messages.
-
-If the remove switch is given, tags will be removed instead of
-added."
- (goto-char (point-min))
- (let ((op (if remove "-" "+")))
- (loop do (notmuch-show-tag-message (concat op tag))
- until (not (notmuch-show-goto-message-next)))))
-
-(defun notmuch-show-add-tag-thread (tag)
- "Add tag to all messages in the current thread."
- (interactive)
- (notmuch-show-tag-thread-internal tag))
-
-(defun notmuch-show-remove-tag-thread (tag)
- "Remove tag from all messages in the current thread."
- (interactive)
- (notmuch-show-tag-thread-internal tag t))
-