From 6532d2b357160fe6a41ac4ec3aeb1283027d116e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= <rul@kalgan.cc>
Date: Thu, 29 Aug 2013 23:03:58 -0300
Subject: Filled email state

---
 Screen.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Screen.hs')

diff --git a/Screen.hs b/Screen.hs
index c2da7ac..26c5d9b 100644
--- a/Screen.hs
+++ b/Screen.hs
@@ -75,7 +75,7 @@ screenLoop = do
                  then screenLoop
                  else return ()
 
-{- Perform the screen for the next update. A clean is made -}
+{- Perform the screen update, by cleaning it first. -}
 performUpdate :: LazymailUpdate LazymailState
 performUpdate = do
   st <- get
@@ -137,7 +137,7 @@ drawEmailHelper = do
   drawEmailHeader
 
   st <- get
-  let body = getBody $ selectedEmail . indexState $ st
+  let body = getBody $ currentEmail . emailState $ st
   let maxRows = if statusBar st then (scrRowsAsInteger st) - 1 else scrRowsAsInteger st
   let emailLines = formatBody body $ (screenColumns st) - 1
   liftUpdate $ drawBody ((curRowAsInteger st) + 4) (colPadAsInteger st) maxRows emailLines
@@ -146,7 +146,7 @@ drawEmailHelper = do
 drawEmailHeader = do
   st <- get
   liftUpdate $ do
-    let fs = getFields $ selectedEmail . indexState $ st
+    let fs = getFields $ currentEmail . emailState $ st
     let cropWith xs = normalizeLen $ (screenColumns st) - (length xs)
     let row = curRowAsInteger st
     setColor $ headerColorID . colorStyle $ st
-- 
cgit v1.2.3