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

---
 State.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'State.hs')

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"
 }
-- 
cgit v1.2.3