notmuch.el: Add an 'm' binding to start composing a new mail.

[notmuch] / notmuch.el

diff --git a/notmuch.el b/notmuch.el
index 6c39ec7e3685f18b06d266d4566a93d424747d13..e70a1fc58919564576678959f5c1ee39ddafb4a4 100644 (file)
--- a/notmuch.el
+++ b/notmuch.el
@@ -35,6 +35,7 @@
     (define-key map "b" 'notmuch-show-toggle-body-read-visible)
     (define-key map "c" 'notmuch-show-toggle-citations-visible)
     (define-key map "h" 'notmuch-show-toggle-headers-visible)
+    (define-key map "m" 'message-mail)
     (define-key map "n" 'notmuch-show-next-message)
     (define-key map "N" 'notmuch-show-mark-read-then-next-open-message)
     (define-key map "p" 'notmuch-show-previous-message)
@@ -614,6 +615,7 @@ thread from that buffer can be show when done with this one)."
     (define-key map "a" 'notmuch-search-archive-thread)
     (define-key map "b" 'notmuch-search-scroll-down)
     (define-key map "f" 'notmuch-search-filter)
+    (define-key map "m" 'message-mail)
     (define-key map "n" 'next-line)
     (define-key map "o" 'notmuch-search-toggle-order)
     (define-key map "p" 'previous-line)