summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
5a447b0)
When removing a tag from a message or thread, build a completion buffer
which contains only tags that the message or thread has really set.
Signed-off-by: Jan Janak <jan@ryngle.com>
(or (memq prop buffer-invisibility-spec)
(assq prop buffer-invisibility-spec)))))
(or (memq prop buffer-invisibility-spec)
(assq prop buffer-invisibility-spec)))))
-(defun notmuch-select-tag-with-completion (prompt)
+(defun notmuch-select-tag-with-completion (prompt &rest search-terms)
(let ((tag-list
(with-output-to-string
(with-current-buffer standard-output
(let ((tag-list
(with-output-to-string
(with-current-buffer standard-output
- (call-process notmuch-command nil t nil "search-tags")))))
+ (apply 'call-process notmuch-command nil t nil "search-tags" search-terms)))))
(completing-read prompt (split-string tag-list "\n+" t) nil nil nil)))
(defun notmuch-show-next-line ()
(completing-read prompt (split-string tag-list "\n+" t) nil nil nil)))
(defun notmuch-show-next-line ()
(defun notmuch-show-remove-tag (&rest toremove)
"Remove a tag from the current message."
(interactive
(defun notmuch-show-remove-tag (&rest toremove)
"Remove a tag from the current message."
(interactive
- (list (notmuch-select-tag-with-completion "Tag to remove: ")))
+ (list (notmuch-select-tag-with-completion "Tag to remove: " (notmuch-show-get-message-id))))
(let ((tags (notmuch-show-get-tags)))
(if (intersection tags toremove :test 'string=)
(progn
(let ((tags (notmuch-show-get-tags)))
(if (intersection tags toremove :test 'string=)
(progn
(defun notmuch-search-remove-tag (tag)
(interactive
(defun notmuch-search-remove-tag (tag)
(interactive
- (list (notmuch-select-tag-with-completion "Tag to remove: ")))
+ (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-search-set-tags (delete tag (notmuch-search-get-tags))))
(notmuch-call-notmuch-process "tag" (concat "-" tag) (notmuch-search-find-thread-id))
(notmuch-search-set-tags (delete tag (notmuch-search-get-tags))))