From fbc1636c060b1a6cba31fb9c414cf663c55d2b77 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= <rul@kalgan.cc>
Date: Wed, 11 Sep 2013 21:30:59 -0300
Subject: Solve markAsRead bug

---
 src/Lazymail/Handlers.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Lazymail/Handlers.hs b/src/Lazymail/Handlers.hs
index 15dbf4c..15fd523 100644
--- a/src/Lazymail/Handlers.hs
+++ b/src/Lazymail/Handlers.hs
@@ -38,7 +38,7 @@ previousMode' MaildirMode = (=<<) put $ get >>= \st -> return st { exitRequested
 previousMode' EmailMode   = do
   st <- get
   if (triggerUpdateIn . indexState $ st)
-    then advanceMode >> solveIndexUpdate
+    then advanceMode' MaildirMode >> solveIndexUpdate
     else put $ st { mode = IndexMode }
 previousMode' IndexMode   = do
   st <- get
-- 
cgit v1.2.3