Signed-off-by: Ioan-Adrian Ratiu <adi@adirat.com> --- emacs/notmuch-show.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index c670160d..f2cb09d2 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -446,7 +446,7 @@ unchanged ADDRESS if parsing fails." ;; Otherwise format the name and address together. (concat p-name " <" p-address ">")))) -(defun notmuch-show-insert-headerline (headers date tags depth) +(defun notmuch-show-insert-headerline (headers date filesize tags depth) "Insert a notmuch style headerline based on HEADERS for a message at DEPTH in the current thread." (let ((start (point))) @@ -456,6 +456,8 @@ message at DEPTH in the current thread." " (" date ") (" + (file-size-human-readable filesize) + ") (" (notmuch-tag-format-tags tags tags) ")\n") (overlay-put (make-overlay start (point)) 'face 'notmuch-message-summary-face))) @@ -1038,6 +1040,7 @@ is t, hide the part initially and show the button." (plist-get msg :date_relative) nil) (plist-get headers :Date)) + (plist-get msg :filesize) (plist-get msg :tags) depth) (setq content-start (point-marker)) -- 2.13.0