extract-email ( recepient -- email )


Vocabulary
smtp.private

Inputs
recepientan object


Outputs
emailan object


Definition
USING: kernel splitting ;

IN: smtp.private

: extract-email ( recepient -- email )
" " split1-last or* "<" ?head drop ">" ?tail drop ;