debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2025-01-03 07:11:41 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: tree: bind S to run current query in search mode

Browse source
This commit is contained in:
Mark Walters 2015-10-14 09:38:23 +01:00 committed by David Bremner
parent 391d9f9420
commit f9d2ccf67b
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
emacs/notmuch-tree.el
View file

@ -240,6 +240,8 @@ FUNC."
;; Override because we want to close message pane first. ;; Override because we want to close message pane first.
(define-key map [remap notmuch-mua-new-mail] (notmuch-tree-close-message-pane-and #'notmuch-mua-new-mail)) (define-key map [remap notmuch-mua-new-mail] (notmuch-tree-close-message-pane-and #'notmuch-mua-new-mail))
(define-key map "S" 'notmuch-search-from-tree-current-query)
;; these use notmuch-show functions directly ;; these use notmuch-show functions directly
(define-key map "|" 'notmuch-show-pipe-message) (define-key map "|" 'notmuch-show-pipe-message)
(define-key map "w" 'notmuch-show-save-attachments) (define-key map "w" 'notmuch-show-save-attachments)
@ -402,6 +404,12 @@ Does NOT change the database."
(notmuch-tree-close-message-window) (notmuch-tree-close-message-window)
(notmuch-tree query))) (notmuch-tree query)))
(defun notmuch-search-from-tree-current-query ()
"Call notmuch search with the current query"
(interactive)
(notmuch-tree-close-message-window)
(notmuch-search (notmuch-tree-get-query)))
(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)))