branch: externals/minimail
commit a0726b780e91ddf46e582a1e7a81474e449fd5d4
Author: Augusto Stoffel <[email protected]>
Commit: Augusto Stoffel <[email protected]>
Define size column for mailbox buffer
---
minimail.el | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/minimail.el b/minimail.el
index f784e454a3..4b270b8572 100644
--- a/minimail.el
+++ b/minimail.el
@@ -1552,6 +1552,12 @@ Cf. RFC 5256, ยง2.1."
'minimail (let-alist msg .envelope.date)))
:formatter ,(lambda (s)
(propertize (-format-date (-get-data s))
+ 'face 'vtable)))
+ (size
+ :name "Size"
+ :getter ,(lambda (msg _) (let-alist msg .rfc822-size))
+ :formatter ,(lambda (v)
+ (propertize (file-size-human-readable-iec v)
'face 'vtable)))))
(defun -mailbox-buffer-update (messages)
