summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--TreeViewRaw.hs4
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