encode-header ( string -- string' )

Vocabulary

smtp.private

Inputs

string

an object

Outputs

string'

an object

Definition

USING: accessors base64 io.encodings.string io.encodings.utf8
kernel sequences ;

IN: smtp.private

: encode-header ( string -- string' )
    dup aux>>
    [ utf8 encode >base64 "=?utf-8?B?" "?=" surround ] when ;