make header names bold in show-mode

This commit is contained in:
Alexander Botero-Lowry 2009-11-20 00:06:17 -08:00 committed by Alexander Botero-Lowry
parent b38bd7efd8
commit 00c0896c9b

View file

@ -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)))
(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)