X-Git-Url: https://git.notmuchmail.org/git?a=blobdiff_plain;f=emacs%2Fnotmuch.el;h=9ff376786c476cd17ea8783fbe8a4e1f58baf3cc;hb=fbec989fe3272d6eff038369587be076347b96f0;hp=5e479d656730b74f821a3b7d9bd2e035e0944e57;hpb=e2dd4ac00b9979de34bd517fa57de56260d38755;p=notmuch

diff --git a/emacs/notmuch.el b/emacs/notmuch.el
index 5e479d65..9ff37678 100644
--- 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)