parse-list-folders ( str -- folder )

Vocabulary

imap.private

Inputs

str

an object

Outputs

folder

an object

Definition

USING: assocs io.encodings.string io.encodings.utf7 pcre
sequences ;

IN: imap.private

: parse-list-folders ( str -- folder )
    "\\* LIST \\(([^\\)]+)\\) \"([^\"]+)\" \"?([^\"]+)\"?"
    findall first rest values [ utf7imap4 decode ] map ;