From 893720cd7111828b65c66e0051c4c91e4405a740 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Wed, 7 Jan 2015 04:45:05 +0100
Subject: show part content size

---
 RenderTreeView.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'RenderTreeView.hs')

diff --git a/RenderTreeView.hs b/RenderTreeView.hs
index 5d1a9bf..155cf52 100644
--- a/RenderTreeView.hs
+++ b/RenderTreeView.hs
@@ -170,7 +170,8 @@ renderTreeView1 now hasFocus x = case x of
             t = Plain $ T.unpack $ CI.original $ Notmuch.partContentType p
             filename = maybe "" (Plain . (" "<>) . show) $ Notmuch.partContentFilename p
             charset = maybe "" (Plain . (" "<>) . show) $ Notmuch.partContentCharset p
-        in c $ "part#" <> i <> " " <> t <> filename <> charset
+            size = Plain $ show $ Notmuch.contentSize (Notmuch.partContent p)
+        in c $ "part#" <> i <> " " <> t <> filename <> charset <> " " <> size
 
     TVMessageQuoteLine _ _ _ s ->
         if hasFocus
-- 
cgit v1.2.3