From f47eeac0b0186c3559eb559c4f0bee0e1fac1961 Mon Sep 17 00:00:00 2001 From: Mark Walters Date: Mon, 23 Jun 2014 22:06:46 +0100 Subject: emacs: set default in notmuch-read-query This adds the current query as a "default value" to notmuch-read-qeury. The default value is available via a down-arrow as opposed to history which is available from the up arrow. Note if a user presses return in the minibuffer this value is not returned. The implementation is simple but notmuch-read-query could be called via notmuch-search/notmuch-tree etc from any buffer so it makes sense to put the decision of how to extract the current query in notmuch-read-query rather than in each of the callers. --- emacs/notmuch-show.el | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'emacs/notmuch-show.el') diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index b8e24bc7..2c6c89e9 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -1203,6 +1203,15 @@ This includes: - the current message." (list (notmuch-show-get-message-id) (notmuch-show-get-message-ids-for-open-messages))) +(defun notmuch-show-get-query () + "Return the current query in this show buffer" + (if notmuch-show-query-context + (concat notmuch-show-thread-id + " and (" + notmuch-show-query-context + ")") + notmuch-show-thread-id)) + (defun notmuch-show-apply-state (state) "Apply STATE to the current buffer. -- cgit v1.2.3