validate-address ( string -- string' )

Vocabulary

smtp.private

Inputs

string

an object

Outputs

string'

an object

Definition

USING: kernel sets ;

IN: smtp.private

: validate-address ( string -- string' )
    dup "\r\n>" intersects? [ bad-email-address ] when ;