From fc7a8483f4a66a3f47bbb335574a399df64d62e0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= <rul@kalgan.cc>
Date: Tue, 3 Sep 2013 12:29:47 -0300
Subject: Color in new emails

---
 Handlers.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Handlers.hs')

diff --git a/Handlers.hs b/Handlers.hs
index fc4c009..644d643 100644
--- a/Handlers.hs
+++ b/Handlers.hs
@@ -170,7 +170,7 @@ formatIndexModeRows st = map formatRow where
         email = emailValue e
         hs = mime_val_headers email
         str = normalizeLen (screenColumns st) $ intercalate ppSep $
-              [ ppFlags . getFlags $ fp
+              [ "[" ++ normalizeLen maxFlags (ppFlags . getFlags $ fp) ++ "]"
               , formatDateTime "%b %d" $ emailDate e
               , normalizeLen fromLen $ ppField $ lookupField "from" hs
               , ppField $ lookupField "subject" hs
-- 
cgit v1.2.3