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

emacs: move the show entry to tree into show.el

Browse source 
Move the keybinding and show specific helper from tree.el to show.el
This commit is contained in:
Mark Walters 2013-11-01 09:23:45 +00:00 committed by David Bremner
parent 31d81f7fdd
commit 3cf926463e
2 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
emacs/notmuch-show.el
View file

@ -44,6 +44,8 @@
(declare-function notmuch-foreach-mime-part "notmuch" (function mm-handle))
(declare-function notmuch-count-attachments "notmuch" (mm-handle))
(declare-function notmuch-save-attachments "notmuch" (mm-handle &optional queryp))
(declare-function notmuch-tree "notmuch-tree"
(&optional query query-context target buffer-name open-target))
(defcustom notmuch-message-headers '("Subject" "To" "Cc" "Date")
"Headers that should be shown in a message, in this order.
@ -1247,6 +1249,7 @@ reset based on the original query."
(defvar notmuch-show-mode-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map notmuch-common-keymap)
(define-key map "Z" 'notmuch-tree-from-show-current-query)
(define-key map (kbd "<C-tab>") 'widget-backward)
(define-key map (kbd "M-TAB") 'notmuch-show-previous-button)
(define-key map (kbd "<backtab>") 'notmuch-show-previous-button)
@ -1323,6 +1326,13 @@ All currently available key bindings:
(setq buffer-read-only t
truncate-lines t))
(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)))
(defun notmuch-show-move-to-message-top ()
(goto-char (notmuch-show-message-top)))

12
emacs/notmuch-tree.el
View file

@ -404,15 +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)))
(defun notmuch-tree-message-window-kill-hook ()
"Close the message pane when exiting the show buffer."
(let ((buffer (current-buffer)))
@ -918,7 +909,6 @@ The arguments are:
(setq truncate-lines t))
;; Set up key bindings from the rest of notmuch.
(define-key notmuch-show-mode-map "Z" 'notmuch-tree-from-show-current-query)
;;
(provide 'notmuch-tree)