reviousMode' EmailMode   = do
  st <- get
  if (triggerUpdateIn . indexState $ st)
    then advanceMode' MaildirMode >> solveIndexUpdate
    else put $ st { mode = IndexMode }

previousMode' EmailMode   = do
  st <- get
  if (triggerUpdateIn . indexState $ st)
    then advanceMode' MaildirMode >> solveIndexUpdate
    else put $ st { mode = IndexMode }
previousMode' EmailMode   = do
  st <- get
  if (triggerUpdateIn . indexState $ st)
    then advanceMode' MaildirMode >> solveIndexUpdate
    else put $ st { mode = IndexMode }