parse-email ( string -- parsed-email )

Vocabulary

imap

Inputs

string

an object

Outputs

parsed-email

an object

Definition

USING: kernel splitting ;

IN: imap

: parse-email ( string -- parsed-email )
    [ <parsed-email> ] dip "\r\n\r\n" split1
    [ string-lines parse-email-header ] dip decode-email-body ;