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

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