* optionally hide e-mail addresses in address fields in the view; document it

2012-04-18 19:55:50 +03:00
parent 0915ae96c0
commit d52d534d71
3 changed files with 21 additions and 6 deletions
--- a/emacs/mu4e-view.el
+++ b/emacs/mu4e-view.el
@ -161,9 +161,14 @@ DONT-PROPERTIZE-VAL, do not add text-properties to VAL."
 	      (mapconcat
 		(lambda(c)
 		  (let ((name (car c)) (email (cdr c)))
-		    (if name
-		      (format "%s <%s>" name email)
-		      (format "%s" email)))) lst ", "))))
+		    (propertize
+		      (if name
+			(if mu4e-view-show-addresses
+			  (format "%s <%s>" name email)
+			  (format "%s" name))
+			(format "%s" email))
+		      'help-echo email)))
+		lst ", "))))
    (if contacts
      (mu4e-view-header fieldname contacts)
      "")))