put a newline after the headers

[notmuch] / notmuch.el

diff --git a/notmuch.el b/notmuch.el
index 763c85fffe7971cdf011299315274e7072db6bea..b0fa5fb20c96b75383a70547bdba51b96bf8c1b0 100644 (file)
--- a/notmuch.el
+++ b/notmuch.el
@@ -593,9 +593,19 @@ 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)
+        (goto-char end)
+        (insert "\n")
        (set-marker beg nil)
        (set-marker beg-hidden nil)
        (set-marker end nil)