From 56b4aef769386e9fbe3b074698451e8b74489d61 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= <rul@kalgan.cc>
Date: Sun, 1 Sep 2013 21:10:33 -0300
Subject: Email mode working for almost all kind of test-emails

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

(limited to 'Handlers.hs')

diff --git a/Handlers.hs b/Handlers.hs
index 503358b..ccce1d0 100644
--- a/Handlers.hs
+++ b/Handlers.hs
@@ -9,6 +9,7 @@ module Handlers where
 
 import Codec.MIME.Parse(parseMIMEMessage)
 import Codec.MIME.Type(MIMEValue(..))
+import Control.Exception(evaluate)
 import Control.Monad.State
 import Data.List(intercalate, stripPrefix)
 import System.FilePath(FilePath, takeFileName, dropTrailingPathSeparator)
@@ -33,7 +34,7 @@ changeMode :: Mode -> LazymailCurses ()
 changeMode EmailMode   = return ()
 changeMode IndexMode   = do
   st <- get
-  msg <- liftIO $ UTF8.readFile . selectedEmailPath . indexState $ st
+  msg <- liftIO $ UTF8.readFile (selectedEmailPath . indexState $ st)
   let email = parseMIMEMessage msg
   let body = getBody $ email
   let el = formatBody body $ screenColumns st
-- 
cgit v1.2.3