Re: Feature request: show destination in tree view when appropriate

[David Bremner <david@tethera.net>]

Jon Hurst <jon@hursts.org.uk> writes:

> 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)")))

Nice. I hope you don't mind, but I used a modified version of this code
as an example for the the documentation:

https://nmbug.notmuchmail.org/nmweb/show/20220716212228.56432-5-david%40tethera.net