From 58836f3c2020c634a2a508846140d163572fd5c0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= <rul@kalgan.cc>
Date: Fri, 30 Aug 2013 15:26:33 -0300
Subject: Fix problem with multi-lines subjects

---
 Handlers.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'Handlers.hs')

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)
 
-- 
cgit v1.2.3