Many thanks David; just what I needed.
> tested either, but I suppose you would need to write a function like
> author-or-to that decides for each message which of those to insert.
For the record:
(defun -notmuch-authors-or-to (format-string result)
(let* ((headers (plist-get result :headers))
(match (plist-get result :match))
(to (plist-get headers :To))
(author (notmuch-tree-clean-address (plist-get headers :From)))
(len (length (format format-string "")))
(face (if match
'notmuch-tree-match-author-face
'notmuch-tree-no-match-author-face)))
(if (string= author "Jon Hurst")
(setq author (concat "To:" (notmuch-tree-clean-address to))))
(when (> (length author) len)
(setq author (substring author 0 len)))
(propertize (format format-string author) 'face face)))
(setq notmuch-tree-result-format
'(("date" . "%12s ")
(-notmuch-authors-or-to . "%-25s")
((("tree" . "%s")
("subject" . "%s"))
. " %-54s ")
("tags" . "(%s)")))
_______________________________________________
notmuch mailing list -- [email protected]
To unsubscribe send an email to [email protected]
