diff options
-rw-r--r-- | TreeViewRaw.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/TreeViewRaw.hs b/TreeViewRaw.hs index ef135de..ee3bd99 100644 --- a/TreeViewRaw.hs +++ b/TreeViewRaw.hs @@ -110,7 +110,9 @@ renderTreeView1 now hasFocus x = case x of let c = if hasFocus then focusSGR else boringSGR i = Plain $ show $ Notmuch.partID p t = Plain $ T.unpack $ CI.original $ Notmuch.partContentType p - in c $ "part#" <> i <> " " <> t + filename = maybe "" (Plain . (" "<>) . show) $ Notmuch.partContentFilename p + charset = maybe "" (Plain . (" "<>) . show) $ Notmuch.partContentCharset p + in c $ "part#" <> i <> " " <> t <> filename <> charset TVMessageLine _ _ _ s -> if hasFocus |