email>headers ( email -- assoc )

Vocabulary

smtp.private

Inputs

email

an object

Outputs

assoc

an object

Definition

USING: accessors calendar calendar.format combinators make
sequences ;

IN: smtp.private

: email>headers ( email -- assoc )
    [
        now timestamp>rfc822 "Date" ,,
        message-id "Message-Id" ,, "1.0" "MIME-Version" ,,
        "base64" "Content-Transfer-Encoding" ,, {
            [ from>> "From" ,, ]
            [ to>> ", " join "To" ,, ]
            [ cc>> ", " join [ "Cc" ,, ] unless-empty ]
            [ subject>> "Subject" ,, ]
            [ email-content-type "Content-Type" ,, ]
        } cleave
    ] H{ } make ;