From 7b067ea9cdee788331712791022c276f5fb03971 Mon Sep 17 00:00:00 2001 From: tv Date: Thu, 1 Jan 2015 21:37:15 +0100 Subject: show part filename and charst --- TreeViewRaw.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 -- cgit v1.2.3