emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Reintroduce mu4e-headers-from-or-to-prefix to customize the prefix

This commit is contained in:
Christophe Troestler 2022-05-11 22:59:00 +02:00
parent 201acfbbd3
commit 3caa22596b
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
mu4e/mu4e-headers.el
View File

@ -193,6 +193,13 @@ chronologically (`:date') by the newest message in the thread.")
"Direction to sort by; a symbol either `descending' (sorting
Z->A) or `ascending' (sorting A->Z).")
(defcustom mu4e-headers-from-or-to-prefix '("" . "To ")
"Prefix for the :from-or-to field when it is showing,
respectively, From: or To:. It is a cons cell with the car
element being the From: prefix, the cdr element the To: prefix."
:type '(cons string string)
:group 'mu4e-headers)
;;;; Fancy marks
;; marks for headers of the form; each is a cons-cell (basic . fancy)
@ -508,8 +515,10 @@ otherwise ; show the from address; prefixed with the appropriate
(from1-addr (and from1 (mu4e-contact-email from1)))
(is-user (and from1-addr (mu4e-personal-address-p from1-addr))))
(if is-user
(concat "To " (mu4e~headers-contact-str (mu4e-message-field msg :to)))
(mu4e~headers-contact-str (mu4e-message-field msg :from)))))
(concat (cdr mu4e-headers-from-or-to-prefix)
(mu4e~headers-contact-str (mu4e-message-field msg :to)))
(concat (car mu4e-headers-from-or-to-prefix)
(mu4e~headers-contact-str (mu4e-message-field msg :from))))))
(defun mu4e~headers-human-date (msg)