notmuch: format author according to width rather than length

1 files changed, 13 insertions, 1 deletions

diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el
index 6344eab..d5a312d 100644
--- a/lib/net/jao-notmuch.el
+++ b/lib/net/jao-notmuch.el
@@ -415,7 +415,7 @@
     (jao-notmuch-tree--next nil nil t t)))
 
 (defvar jao-notmuch-mua-reply-not-inherited
-  '("attachment" "sent" "new" "unread"))
+  '("attachment" "sent" "new" "unread" "bigml" "jao"))
 
 (defun jao-notmuch--append-to-fcc (suffix)
   (mapcar (lambda (e)
@@ -441,6 +441,18 @@
               (seq-sort-by #'length #'<))))
     (format-spec fmt `((?s . ,(mapconcat #'identity ts " "))))))
 
+(defun jao-notmuch-format-author (width msg)
+  (let* ((headers (plist-get msg :headers))
+         (auth (notmuch-tree-clean-address (plist-get headers :From)))
+         (awidth (string-width auth))
+         (auth (if (> awidth width)
+                   (substring auth 0 width)
+                 (concat auth (make-string (- width awidth) 32))))
+         (face (if (plist-get msg :match)
+                   'notmuch-tree-match-author-face
+                 'notmuch-tree-no-match-author-face)))
+    (propertize auth 'face face)))
+
 (defun jao-notmuch-tree-and-subject (fmt msg)
   (let ((tr (notmuch-tree-format-field "tree" " %s" msg))
         (sb (notmuch-tree-format-field "subject" " %s" msg)))