From 39f53d2775f38514a537f03c7b72281ec31a3c0e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= <rul@kalgan.cc>
Date: Sun, 1 Sep 2013 11:16:38 -0300
Subject: Further improving on body scrolling

---
 Screen.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Screen.hs')

diff --git a/Screen.hs b/Screen.hs
index 4e16b22..eaa87cf 100644
--- a/Screen.hs
+++ b/Screen.hs
@@ -136,6 +136,7 @@ drawEmailHelper = do
 
   st <- get
   let est = emailState st
+  put $ st { emailState = est { bodyStartRow = (currentRow st ) } }
   let body = getBody $ currentEmail . emailState $ st
   let maxRows = if statusBar st then (scrRowsAsInteger st) - 1 else scrRowsAsInteger st
   liftUpdate $
-- 
cgit v1.2.3