alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* mu4e-headers.el: make the "To " in :from-or-to a defconst

Browse Source
This commit is contained in:
djcb
2012-05-04 08:58:02 +03:00
parent e2fa4f3478
commit e2faf1cc16
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
emacs/mu4e-headers.el
View File

@ -234,6 +234,9 @@ into a string."
(duplicate "= ")
(t "| "))))))
(defconst mu4e~headers-from-or-to-prefix "To "
"Prefix for the :from-or-to field when it is showing To:.")
(defun mu4e~headers-header-handler (msg &optional point)
"Create a one line description of MSG in this buffer, at POINT,
if provided, or at the end of the buffer otherwise."
@ -260,7 +263,7 @@ if provided, or at the end of the buffer otherwise."
(from (and from-lst (cdar from-lst))))
(if (and from (string-match
mu4e-user-mail-address-regexp from))
(concat "To "
(concat (or mu4e~headers-from-or-to-prefix "")
(mu4e~headers-contact-str (plist-get msg :to)))
(mu4e~headers-contact-str from-lst))))
(:date (format-time-string mu4e-headers-date-format val))