Further improving on body scrolling

1 files changed, 2 insertions, 0 deletions

diff --git a/State.hs b/State.hs
index d72bc1a..d04871f 100644
--- a/State.hs
+++ b/State.hs
@@ -54,6 +54,7 @@ data ComposeState = ComposeState {
 
 data EmailState = EmailState {
     scrollRowEm    :: Int
+  , bodyStartRow   :: Int
   , emailLines     :: [String]
   , currentEmail   :: Message
 }
@@ -100,6 +101,7 @@ initialIndexState = IndexState {
 
 initialEmailState = EmailState {
     scrollRowEm    = 0
+  , bodyStartRow  = 0
   , emailLines     = []
   , currentEmail   = Message [] "Dummy email"
 }