notmuch.el: 'F' in search mode takes us to a list of folders.

[notmuch] / emacs / notmuch.el

diff --git a/emacs/notmuch.el b/emacs/notmuch.el
index 5e479d656730b74f821a3b7d9bd2e035e0944e57..9ff376786c476cd17ea8783fbe8a4e1f58baf3cc 100644 (file)
--- a/emacs/notmuch.el
+++ b/emacs/notmuch.el
@@ -152,7 +152,13 @@
              (overlay-put (make-overlay (point) (re-search-forward ":"))
                           'face 'message-header-name)
              (overlay-put (make-overlay (point) (re-search-forward ".*$"))
-                          'face 'message-header-other)))))))
+                          'face 'message-header-other))
+         (if (looking-at "[Dd]ate:")
+             (progn
+               (overlay-put (make-overlay (point) (re-search-forward ":"))
+                            'face 'message-header-name)
+               (overlay-put (make-overlay (point) (re-search-forward ".*$"))
+                            'face 'message-header-other))))))))
 
 (defun notmuch-documentation-first-line (symbol)
   "Return the first line of the documentation string for SYMBOL."
@@ -262,6 +268,7 @@ For a mouse binding, return nil."
     (define-key map "-" 'notmuch-search-remove-tag)
     (define-key map "+" 'notmuch-search-add-tag)
     (define-key map (kbd "RET") 'notmuch-search-show-thread)
+    (define-key map "F" 'notmuch-folder)
     map)
   "Keymap for \"notmuch search\" buffers.")
 (fset 'notmuch-search-mode-map notmuch-search-mode-map)