mason-email ( body content-type subject -- )

Vocabulary

mason.email

Inputs

body	an object
content-type	an object
subject	an object

Outputs

None

Definition

USING: accessors continuations debugger io kernel mason.common
mason.config namespaces smtp ;

IN: mason.email

: mason-email ( body content-type subject -- )
    [
        [
            [
                [
                    <email> builder-from get >>from
                    builder-recipients get >>to
                ]
            ] dip [ >>body ] curry compose
        ] dip [ >>content-type ] curry compose
    ] dip [ >>subject send-email ] curry compose
    [ "E-MAILING FAILED:" print-timestamp error. flush ] recover
    ;