diff options
| author | tv <tv@shackspace.de> | 2015-01-01 21:37:15 +0100 |
|---|---|---|
| committer | tv <tv@shackspace.de> | 2015-01-01 21:37:15 +0100 |
| commit | 7b067ea9cdee788331712791022c276f5fb03971 (patch) | |
| tree | c788792616a23ad50449e7fc103e65b8b46d4da5 | |
| parent | 10db15e75804b8af6878cb3b850ffde75f38d1a0 (diff) | |
show part filename and charst
| -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 |