emacs: Add more functions to clean up text/plain parts

[notmuch] / emacs / notmuch-hello.el

diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el
index aefa350f8282e237ae24dc9ef40ac56460db33e9..482ef6818ec6d461f2f86ac392a589411e36b7e5 100644 (file)
--- a/emacs/notmuch-hello.el
+++ b/emacs/notmuch-hello.el
@@ -25,6 +25,7 @@
 
 (require 'notmuch-lib)
 (require 'notmuch)
+(require 'notmuch-mua)
 
 (declare-function notmuch-search "notmuch" (query &optional oldest-first target-thread target-line continuation))
 (declare-function notmuch-folder-count "notmuch" (search))
@@ -59,7 +60,7 @@
   :type 'color
   :group 'notmuch)
 
-(defcustom notmuch-hello-jump-to-search nil
+(defcustom notmuch-hello-jump-to-search t
   "Whether `notmuch-hello' should always jump to the search
 field."
   :type 'boolean
@@ -335,6 +336,7 @@ diagonal."
 
   (use-local-map widget-keymap)
   (local-set-key "=" 'notmuch-hello-update)
+  (local-set-key "m" 'notmuch-mua-mail)
   (local-set-key "q" '(lambda () (interactive) (kill-buffer (current-buffer))))
   (local-set-key "s" 'notmuch-hello-goto-search)
   (local-set-key "v" '(lambda () (interactive)