send-body ( email -- )

Vocabulary

smtp.private

Inputs

email

an object

Outputs

None

Definition

USING: accessors base64 io io.crlf io.encodings
io.encodings.ascii io.encodings.binary io.encodings.string
kernel ;

IN: smtp.private

: send-body ( email -- )
    binary encode-output [ body>> ] [ encoding>> ] bi encode
    >base64-lines write ascii encode-output crlf "." command ;