debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 10:58:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

make header names bold in show-mode

Browse source
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
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
notmuch.el
View file

@ -593,6 +593,14 @@ which this thread was originally shown."
(re-search-forward notmuch-show-header-end-regexp) (re-search-forward notmuch-show-header-end-regexp)
(beginning-of-line) (beginning-of-line)
(let ((end (point-marker))) (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) (indent-rigidly beg end depth)
(overlay-put (make-overlay beg-hidden end) (overlay-put (make-overlay beg-hidden end)
'invisible 'notmuch-show-header) 'invisible 'notmuch-show-header)