notmuch.el: fontify date in header

[notmuch] / emacs / notmuch.el

diff --git a/emacs/notmuch.el b/emacs/notmuch.el
index 5e479d656730b74f821a3b7d9bd2e035e0944e57..ee5448de3c79ebf04c9d8d87513f5add971da9b9 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."