email-fatal ( string subject -- )

Vocabulary

mason.email

Inputs

string	an object
subject	an object

Outputs

None

Definition

USING: calendar io kernel namespaces sequences ;

IN: mason.email

: email-fatal ( string subject -- )
    [ print nl print flush ] [
        email-fatal? [
            now last-email-time set-global
            [ "text/plain" subject-prefix ] dip append
            mason-email
        ] [ 2drop ] if
    ] 2bi ;