emacs: Move the blank line from the bottom of the headers to the top of the body.

The blank line doesn't really change position, but is now considered
to be part of the body rather than part of the headers. This means
that it is visible when the body is visible rather than when the
headers are visible.
This commit is contained in:
David Edmondson 2012-01-30 16:52:20 +00:00 committed by David Bremner
parent 32d7b3aabd
commit d8d7387881

View file

@ -865,8 +865,6 @@ current buffer, if possible."
;; compatible with the existing implementation. This just sets it ;; compatible with the existing implementation. This just sets it
;; to after the first header. ;; to after the first header.
(notmuch-show-insert-headers headers) (notmuch-show-insert-headers headers)
;; Headers should include a blank line (backwards compatibility).
(insert "\n")
(save-excursion (save-excursion
(goto-char content-start) (goto-char content-start)
;; If the subject of this message is the same as that of the ;; If the subject of this message is the same as that of the
@ -881,6 +879,8 @@ current buffer, if possible."
(setq notmuch-show-previous-subject bare-subject) (setq notmuch-show-previous-subject bare-subject)
(setq body-start (point-marker)) (setq body-start (point-marker))
;; A blank line between the headers and the body.
(insert "\n")
(notmuch-show-insert-body msg (plist-get msg :body) depth) (notmuch-show-insert-body msg (plist-get msg :body) depth)
;; Ensure that the body ends with a newline. ;; Ensure that the body ends with a newline.
(unless (bolp) (unless (bolp)