headers ( -- assoc )

Vocabulary

pop3

Inputs

None

Outputs

assoc

an assoc

Word description

Gathers and associates the From:, Subject:, and To: headers of each message.

Definition

USING: accessors combinators kernel pop3.private sequences ;

IN: pop3

: headers ( -- assoc )
    raw top>> {
        [
            [
                dup "From:" head?
                [ raw [ swap suffix ] change-headers drop ]
                [ drop ] if
            ] each
        ]
        [
            [
                dup "To:" head?
                [ raw [ swap suffix ] change-headers drop ]
                [ drop ] if
            ] each
        ]
        [
            [
                dup "Subject:" head?
                [ raw [ swap suffix ] change-headers drop ]
                [ drop ] if
            ] each
        ]
    } cleave raw headers>> associate-split ;