make header names bold in show-mode

diff --git a/notmuch.el b/notmuch.el
index 763c85fffe7971cdf011299315274e7072db6bea..70dbe5ba7f6baaf8ebfec6cce86e1ea73234df1a 100644 (file)
--- a/notmuch.el
+++ b/notmuch.el
@@ -593,6 +593,14 @@ which this thread was originally shown."
       (re-search-forward notmuch-show-header-end-regexp)
       (beginning-of-line)
       (let ((end (point-marker)))
       (re-search-forward notmuch-show-header-end-regexp)
       (beginning-of-line)
       (let ((end (point-marker)))

+        (goto-char beg)
+        (forward-line)
+        (while (looking-at "[A-Za-z][-A-Za-z0-9]*:")
+          (beginning-of-line)
+          (overlay-put (make-overlay (point) (re-search-forward ":"))
+                       'face 'bold)
+          (forward-line)
+          )

        (indent-rigidly beg end depth)
        (overlay-put (make-overlay beg-hidden end)
                     'invisible 'notmuch-show-header)
        (indent-rigidly beg end depth)
        (overlay-put (make-overlay beg-hidden end)
                     'invisible 'notmuch-show-header)