Further improving on body scrolling

1 files changed, 1 insertions, 0 deletions

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 $