X-Git-Url: https://git.notmuchmail.org/git?a=blobdiff_plain;f=emacs%2Fnotmuch-tree.el;h=f13b41f5b015f943cb0d243ffa1fb2bbd1ea6975;hb=96c0ce28f8288773870bff5a6ef1c43ff3a931f8;hp=ebfb5e7b8c2a449be91453a20079a211d472441f;hpb=66612063813c8c6179eb06dd83a75be6c427b215;p=notmuch diff --git a/emacs/notmuch-tree.el b/emacs/notmuch-tree.el index ebfb5e7b..f13b41f5 100644 --- a/emacs/notmuch-tree.el +++ b/emacs/notmuch-tree.el @@ -404,33 +404,6 @@ Does NOT change the database." (notmuch-tree-close-message-window) (notmuch-tree query))) -;; This function should be in notmuch-show.el but be we trying to -;; minimise impact on the rest of the codebase. -(defun notmuch-tree-from-show-current-query () - "Call notmuch tree with the current query" - (interactive) - (notmuch-tree notmuch-show-thread-id - notmuch-show-query-context - (notmuch-show-get-message-id))) - -;; This function should be in notmuch.el but be we trying to minimise -;; impact on the rest of the codebase. -(defun notmuch-tree-from-search-current-query () - "Call notmuch tree with the current query" - (interactive) - (notmuch-tree notmuch-search-query-string)) - -;; This function should be in notmuch.el but be we trying to minimise -;; impact on the rest of the codebase. -(defun notmuch-tree-from-search-thread () - "Show the selected thread with notmuch-tree" - (interactive) - (notmuch-tree (notmuch-search-find-thread-id) - notmuch-search-query-string - nil - (notmuch-prettify-subject (notmuch-search-find-subject)) - t)) - (defun notmuch-tree-message-window-kill-hook () "Close the message pane when exiting the show buffer." (let ((buffer (current-buffer))) @@ -936,8 +909,6 @@ The arguments are: (setq truncate-lines t)) -;; Set up key bindings from the rest of notmuch. -(define-key notmuch-common-keymap "z" 'notmuch-tree) -(define-key notmuch-show-mode-map "Z" 'notmuch-tree-from-show-current-query) +;; (provide 'notmuch-tree)