diff options
| author | Raúl Benencia <rul@kalgan.cc> | 2013-09-03 12:29:47 -0300 |
|---|---|---|
| committer | Raúl Benencia <rul@kalgan.cc> | 2013-09-03 12:29:47 -0300 |
| commit | fc7a8483f4a66a3f47bbb335574a399df64d62e0 (patch) | |
| tree | ee91c99a23b8999503d47635b1b404d54770e586 /Handlers.hs | |
| parent | ac5a65d8adc1d9a683327165057493d9cba6fdb8 (diff) | |
Color in new emails
Diffstat (limited to 'Handlers.hs')
| -rw-r--r-- | Handlers.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |