From e2faf1cc1668510ba007510e9636b0a48fc693d5 Mon Sep 17 00:00:00 2001 From: djcb Date: Fri, 4 May 2012 08:58:02 +0300 Subject: [PATCH] * mu4e-headers.el: make the "To " in :from-or-to a defconst --- emacs/mu4e-headers.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/emacs/mu4e-headers.el b/emacs/mu4e-headers.el index bbef4937..7097fee2 100644 --- a/emacs/mu4e-headers.el +++ b/emacs/mu4e-headers.el @@ -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))