parse-append-mail ( seq -- uid/f )

Vocabulary

imap.private

Inputs

seq

an object

Outputs

uid/f

an object

Definition

USING: math.parser pcre sequences ;

IN: imap.private

: parse-append-mail ( seq -- uid/f )
    [ "\\[APPENDUID (\\d+) \\d+\\]" findall ] map harvest
    [ f ] [ first first last last string>number ] if-empty ;