debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 02:48:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: move search based tree functions to notmuch.el

Browse source 
Move a couple of the search mode specifc caller helpers for tree from
tree into notmuch.el.
This commit is contained in:
Mark Walters 2013-11-01 09:23:43 +00:00 committed by David Bremner
parent 10bf1b7400
commit 00b3ee4f82
2 changed files with 14 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
emacs/notmuch-tree.el
View file

@ -413,24 +413,6 @@ Does NOT change the database."
notmuch-show-query-context notmuch-show-query-context
(notmuch-show-get-message-id))) (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 () (defun notmuch-tree-message-window-kill-hook ()
"Close the message pane when exiting the show buffer." "Close the message pane when exiting the show buffer."
(let ((buffer (current-buffer))) (let ((buffer (current-buffer)))

14
emacs/notmuch.el
View file

@ -439,6 +439,20 @@ If BARE is set then do not prefix with \"thread:\""
(concat "*" (truncate-string-to-width subject 30 nil nil t) "*")) (concat "*" (truncate-string-to-width subject 30 nil nil t) "*"))
(message "End of search results.")))) (message "End of search results."))))
(defun notmuch-tree-from-search-current-query ()
"Call notmuch tree with the current query"
(interactive)
(notmuch-tree notmuch-search-query-string))
(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-search-reply-to-thread (&optional prompt-for-sender) (defun notmuch-search-reply-to-thread (&optional prompt-for-sender)
"Begin composing a reply-all to the entire current thread in a new buffer." "Begin composing a reply-all to the entire current thread in a new buffer."
(interactive "P") (interactive "P")