Email mode working for almost all kind of test-emails

1 files changed, 2 insertions, 1 deletions

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