read-response ( tag -- lines )

Vocabulary

imap.private

Inputs

tag

an object

Outputs

lines

an object

Definition

USING: formatting kernel sequences sequences.extras ;

IN: imap.private

: read-response ( tag -- lines )
    "^%s (BAD|NO|OK) (.*)$" sprintf
    [ read-response-chunk ] curry loop>array* unclip-last first2
    [ check-status ] keep suffix ;