summaryrefslogtreecommitdiffstats
path: root/TreeViewRaw.hs
diff options
context:
space:
mode:
authortv <tv@shackspace.de>2015-01-01 21:37:15 +0100
committertv <tv@shackspace.de>2015-01-01 21:37:15 +0100
commit7b067ea9cdee788331712791022c276f5fb03971 (patch)
treec788792616a23ad50449e7fc103e65b8b46d4da5 /TreeViewRaw.hs
parent10db15e75804b8af6878cb3b850ffde75f38d1a0 (diff)
show part filename and charst
Diffstat (limited to 'TreeViewRaw.hs')
-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