dvanceMode :: LazymailCurses ()
advanceMode = get >>= \st -> advanceMode' (mode st)

advanceMode :: LazymailCurses ()
advanceMode = get >>= \st -> advanceMode' (mode st)
advanceMode = get >>= \st -> advanceMode' (mode st)