[PATCH v2 9/11] emacs: move search based tree functions to notmuch.el
Mark Walters
markwalters1009 at gmail.com
Fri Nov 1 02:23:43 PDT 2013
Move a couple of the search mode specifc caller helpers for tree from
tree into notmuch.el.
---
emacs/notmuch-tree.el | 18 ------------------
emacs/notmuch.el | 14 ++++++++++++++
2 files changed, 14 insertions(+), 18 deletions(-)
diff --git a/emacs/notmuch-tree.el b/emacs/notmuch-tree.el
index ebfb5e7..78b4a57 100644
--- a/emacs/notmuch-tree.el
+++ b/emacs/notmuch-tree.el
@@ -413,24 +413,6 @@ Does NOT change the database."
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)))
diff --git a/emacs/notmuch.el b/emacs/notmuch.el
index 418c781..2c9a07c 100644
--- a/emacs/notmuch.el
+++ b/emacs/notmuch.el
@@ -439,6 +439,20 @@ If BARE is set then do not prefix with \"thread:\""
(concat "*" (truncate-string-to-width subject 30 nil nil t) "*"))
(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)
"Begin composing a reply-all to the entire current thread in a new buffer."
(interactive "P")
--
1.7.9.1
More information about the notmuch
mailing list