Permalink
Browse files

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

  • Loading branch information...
1 parent c49ed40 commit 61feee60062e088553a342e1f99e13048f29964d @mrjbq7 mrjbq7 committed Sep 29, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 basis/smtp/smtp.factor
View
@@ -146,7 +146,7 @@ GENERIC: send-auth ( auth -- )
M: no-auth send-auth drop ;
: 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
[ username>> ] [ password>> ] bi plain-auth-string

0 comments on commit 61feee6

Please sign in to comment.