When displaying headers, insert leading space so that the `:' in all
of the headers shown is aligned.
---
emacs/notmuch-show.el | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
index 364004b8..677405ba 100644
--- a/emacs/notmuch-show.el
+++ b/emacs/notmuch-show.el
@@ -345,11 +345,11 @@ operation on the contents of the current buffer."
(defun notmuch-show-fontify-header ()
(let ((face (cond
- ((looking-at "[Tt]o:")
+ ((looking-at " *[Tt]o:")
'message-header-to)
- ((looking-at "[Bb]?[Cc][Cc]:")
+ ((looking-at " *[Bb]?[Cc][Cc]:")
'message-header-cc)
- ((looking-at "[Ss]ubject:")
+ ((looking-at " *[Ss]ubject:")
'message-header-subject)
(t
'message-header-other))))
@@ -362,7 +362,7 @@ operation on the contents of the current buffer."
(defun notmuch-show-colour-headers ()
"Apply some colouring to the current headers."
(goto-char (point-min))
- (while (looking-at "^[A-Za-z][-A-Za-z0-9]*:")
+ (while (looking-at "^ *[A-Za-z][-A-Za-z0-9]*:")
(notmuch-show-fontify-header)
(forward-line)))
@@ -462,7 +462,8 @@ message at DEPTH in the current thread."
(defun notmuch-show-insert-header (header header-value)
"Insert a single header."
- (insert header ": " (notmuch-sanitize header-value) "\n"))
+ ;; `7' because `Subject' is the longest header.
+ (insert (format "%7s: %s\n" header (notmuch-sanitize header-value))))
(defun notmuch-show-insert-headers (headers)
"Insert the headers of the current message."
--
2.11.0
_______________________________________________
notmuch mailing list
notmuch@notmuchmail.org
https://notmuchmail.org/mailman/listinfo/notmuch
