get-ok-and-uidl ( -- uidl )

Vocabulary

pop3.private

Inputs

None

Outputs

uidl

an object

Definition

USING: io io.streams.duplex kernel sequences splitting ;

IN: pop3.private

: get-ok-and-uidl ( -- uidl )
    stream
    [ readln dup "+OK" head? [ split-words last ] [ throw ] if ]
    with-stream* ;