email-fatal? ( -- ? )

Vocabulary

mason.email

Inputs

None

Outputs

?

an object

Definition

USING: calendar combinators kernel namespaces ;

IN: mason.email

: email-fatal? ( -- ? )
    {
        {
            [ next-email-time get-global ]
            [ send-email-throttled? ]
        }
        {
            [ last-email-time get-global ]
            [ send-email-capped? ]
        }
        [ now last-email-time set-global t ]
    } cond dup [ now last-email-time set-global ] when ;