steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

smtp: plain-auth-string should return a ... string.

db4
John Benediktsson 2012-09-28 19:04:38 -07:00
parent dc64c13670
commit 39a94832bd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/smtp/smtp.factor
View File

@ -146,7 +146,7 @@ GENERIC: send-auth ( auth -- )
M: no-auth send-auth drop ; M: no-auth send-auth drop ;
: plain-auth-string ( username password -- string ) : plain-auth-string ( username password -- string )
[ "\0" prepend ] bi@ append utf8 encode >base64 ; [ "\0" prepend ] bi@ append utf8 encode >base64 >string ;
M: plain-auth send-auth M: plain-auth send-auth
[ username>> ] [ password>> ] bi plain-auth-string [ username>> ] [ password>> ] bi plain-auth-string