This will look much nicer than the highlighting terminating at the
end of the summary text.
(re-search-forward notmuch-show-header-begin-regexp)
(forward-line)
(let ((beg (point-marker))
+ (summary-end (copy-marker (line-beginning-position 2)))
(btn nil))
- (end-of-line)
; Inverse video for subject
- (overlay-put (make-overlay beg (point)) 'face '(:inverse-video t))
- (setq btn (make-button beg (point) :type 'notmuch-button-body-toggle-type))
+ (overlay-put (make-overlay beg summary-end) 'face '(:inverse-video t))
+ (setq btn (make-button beg summary-end :type 'notmuch-button-body-toggle-type))
(forward-line 1)
(end-of-line)
(let ((beg-hidden (point-marker)))