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

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