From 17e44cd584017c9187860e0dc80ea407940b8939 Mon Sep 17 00:00:00 2001 From: Mark Walters Date: Sat, 11 Jan 2014 21:49:52 +0000 Subject: emacs: tree: use tag-format-tags Previously tree did not use tag-format-tags: since tree wants to distinguish matching messages from non-matching messages it is not a perfect fit. However, in preparation for allowing tag-changes to be shown (i.e., added or deleted tags to be indicated) it is convenient to make all places displaying tags call the same routines. We modify notmuch-tag-format-tags slightly so that it can take and argument for the default characteristics of the face before the special tag features are applied. This also means that things like the star symbol for flagged messages all work in tree. --- emacs/notmuch-tree.el | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'emacs/notmuch-tree.el') diff --git a/emacs/notmuch-tree.el b/emacs/notmuch-tree.el index 16f28629..4f2ac028 100644 --- a/emacs/notmuch-tree.el +++ b/emacs/notmuch-tree.el @@ -704,10 +704,7 @@ unchanged ADDRESS if parsing fails." (face (if match 'notmuch-tree-match-tag-face 'notmuch-tree-no-match-tag-face))) - (propertize (format format-string - (mapconcat #'identity tags " ")) - 'face face)))))) - + (format format-string (notmuch-tag-format-tags tags face))))))) (defun notmuch-tree-format-field-list (field-list msg) "Format fields of MSG according to FIELD-LIST and return string" -- cgit v1.2.3