diff options
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 |