From: Mark Walters <markwalters1009@gmail.com>
Date: Sun, 25 Sep 2016 07:18:10 +0000 (+0100)
Subject: emacs: tree: make b bounce a message and backspace scroll message pane up
X-Git-Tag: 0.23_rc1~13
X-Git-Url: https://git.cworth.org/git?a=commitdiff_plain;h=9966720453c72286b5f36a56323244d70202cb26;p=notmuch-old

emacs: tree: make b bounce a message and backspace scroll message pane up

This tweaks the keybindings in tree-mode. It make b do bounce/resend
matching show-mode. Since b was already bound to scroll message pane
back, we now use backspace for that.

This means space/backspace scroll the message pane forwards/backwards,
and page-up/page-down scrolls the tree pane forwards/backwards.
---

diff --git a/emacs/notmuch-tree.el b/emacs/notmuch-tree.el
index 6e5797e9..658c4f90 100644
--- a/emacs/notmuch-tree.el
+++ b/emacs/notmuch-tree.el
@@ -251,6 +251,7 @@ FUNC."
     (define-key map "w" 'notmuch-show-save-attachments)
     (define-key map "v" 'notmuch-show-view-all-mime-parts)
     (define-key map "c" 'notmuch-show-stash-map)
+    (define-key map "b" 'notmuch-show-resend-message)
 
     ;; these apply to the message pane
     (define-key map (kbd "M-TAB") (notmuch-tree-to-message-pane #'notmuch-show-previous-button))
@@ -282,7 +283,7 @@ FUNC."
     (define-key map "+" 'notmuch-tree-add-tag)
     (define-key map "*" 'notmuch-tree-tag-thread)
     (define-key map " " 'notmuch-tree-scroll-or-next)
-    (define-key map "b" 'notmuch-tree-scroll-message-window-back)
+    (define-key map (kbd "DEL") 'notmuch-tree-scroll-message-window-back)
     map))
 (fset 'notmuch-tree-mode-map notmuch-tree-mode-map)