Fix problem with multi-lines subjects

1 files changed, 5 insertions, 4 deletions

diff --git a/Handlers.hs b/Handlers.hs
index 72f09dc..4a0ba88 100644
--- a/Handlers.hs
+++ b/Handlers.hs
@@ -7,6 +7,7 @@
 
 module Handlers where
 
+import Data.List(intercalate)
 import Control.Monad.State
 import Data.List(stripPrefix)
 import System.FilePath(FilePath, takeFileName, dropTrailingPathSeparator)
@@ -151,10 +152,10 @@ formatIndexModeRows st = mapM formatRow where
     msg <- UTF8.readFile fp
     let email = parseEmail msg
     let fs = getFields email
-    let str = normalizeLen (screenColumns st) . concat $
-              [ (ppSep ++) $ ppFlags . getFlags $ fp
-              , (ppSep ++) $ ppIndexNameAddr . getFrom $ fs
-              , (ppSep ++) $ ppIndexSubject . getSubject $ fs
+    let str = normalizeLen (screenColumns st) $ intercalate ppSep $
+              [ ppFlags . getFlags $ fp
+              , ppIndexNameAddr . getFrom $ fs
+              , ppSubject . getSubject $ fs
               ]
     return (fp, str)