From 96be972c18b9ff389cf713d9cd025fb31bea503f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= <rul@kalgan.cc>
Date: Thu, 29 Aug 2013 23:33:37 -0300
Subject: down-scrolling support in Email mode

---
 State.hs | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'State.hs')

diff --git a/State.hs b/State.hs
index b6561ff..d72bc1a 100644
--- a/State.hs
+++ b/State.hs
@@ -53,10 +53,9 @@ data ComposeState = ComposeState {
 }
 
 data EmailState = EmailState {
-    scrollBufferEm :: [String]
-  , scrollRowEm    :: Int
+    scrollRowEm    :: Int
   , emailLines     :: [String]
-  , currentEmail  :: Message
+  , currentEmail   :: Message
 }
 
 data ColorStyle = ColorStyle {
@@ -100,8 +99,7 @@ initialIndexState = IndexState {
 }
 
 initialEmailState = EmailState {
-    scrollBufferEm = []
-  , scrollRowEm    = 0
+    scrollRowEm    = 0
   , emailLines     = []
   , currentEmail   = Message [] "Dummy email"
 }
-- 
cgit v1.2.3