From 6532d2b357160fe6a41ac4ec3aeb1283027d116e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= <rul@kalgan.cc>
Date: Thu, 29 Aug 2013 23:03:58 -0300
Subject: Filled email state

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

(limited to 'State.hs')

diff --git a/State.hs b/State.hs
index e7f551e..b6561ff 100644
--- a/State.hs
+++ b/State.hs
@@ -41,7 +41,6 @@ data MaildirState = MaildirState {
 
 data IndexState = IndexState {
     selectedRowIn     :: Int
-  , selectedEmail     :: Message
   , selectedEmailPath :: FilePath
   , selectedEmails    :: [(FilePath, String)]
   , scrollRowIn       :: Int
@@ -57,6 +56,7 @@ data EmailState = EmailState {
     scrollBufferEm :: [String]
   , scrollRowEm    :: Int
   , emailLines     :: [String]
+  , currentEmail  :: Message
 }
 
 data ColorStyle = ColorStyle {
@@ -92,7 +92,6 @@ initialMaildirState = MaildirState {
 
 initialIndexState = IndexState {
     selectedRowIn      = 0
-  , selectedEmail      = Message [] "Dummy email"
   , selectedEmailPath  = ""
   , selectedEmails     = []
   , scrollRowIn        = 0
@@ -104,6 +103,7 @@ initialEmailState = EmailState {
     scrollBufferEm = []
   , scrollRowEm    = 0
   , emailLines     = []
+  , currentEmail   = Message [] "Dummy email"
 }
 
 initialComposeState = ComposeState {
-- 
cgit v1.2.3