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

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

Date: Sat, 16 Jul 2022 14:23:17 +0100

To: David Bremner, notmuch@notmuchmail.org

Cc:

From: Jon Hurst


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 -- notmuch@notmuchmail.org
To unsubscribe send an email to notmuch-leave@notmuchmail.org

Thread: