diff options
| -rw-r--r-- | src/Much/RenderTreeView.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Much/RenderTreeView.hs b/src/Much/RenderTreeView.hs index ebed6e0..ea81fe2 100644 --- a/src/Much/RenderTreeView.hs +++ b/src/Much/RenderTreeView.hs @@ -13,6 +13,7 @@ import qualified Data.Text as T import qualified Data.Tree.Zipper as Z import qualified Much.TreeZipperUtils as Z import Blessings +import Blessings.String.Extra (quoteSpecials) import Control.Arrow import Data.Char import Data.Function @@ -133,7 +134,7 @@ renderTreeView1 q@State{..} hasFocus x = case x of authors = Plain $ T.unpack $ Notmuch.searchAuthors sr date = color Much.State.date colorConfig $ renderDate now x - subject = Plain $ T.unpack $ Notmuch.searchSubject sr + subject = quoteSpecials $ Plain $ T.unpack $ Notmuch.searchSubject sr tags = color Much.State.tags colorConfig $ renderTags q (Notmuch.searchTags sr) title = if subject /= "" then subject else c_authors authors in |