Commit d1eab1b9 authored by Jan Idzikowski's avatar Jan Idzikowski
Browse files

fix string-to-base64-string for lispworks (need :columns 0, not nil)

parent dff96df6
Version 20140227.1
2014.02.27
Add patch for handle base64 string without newline after n columns.
Thanks William P. Proffitt for the bug report
Change cl-smtp.asd, cl-smtp.lisp, CHANGELOG
Version 20140128.1 Version 20140128.1
2014.01.28 2014.01.28
Add patch for converted username and password to base64 string, Add patch for converted username and password to base64 string,
......
...@@ -17,7 +17,7 @@ ...@@ -17,7 +17,7 @@
;;; Description: cl-smtp ASDF system definition file ;;; Description: cl-smtp ASDF system definition file
(asdf:defsystem :cl-smtp (asdf:defsystem :cl-smtp
:version "20140128.1" :version "20140227.1"
:perform (load-op :after (op webpage) :perform (load-op :after (op webpage)
(pushnew :cl-smtp cl:*features*)) (pushnew :cl-smtp cl:*features*))
:depends-on (:usocket :depends-on (:usocket
......
...@@ -61,7 +61,8 @@ ...@@ -61,7 +61,8 @@
(let ((exformat (flex:make-external-format external-format))) (let ((exformat (flex:make-external-format external-format)))
#+allegro (excl:usb8-array-to-base64-string #+allegro (excl:usb8-array-to-base64-string
(flex:string-to-octets str :external-format exformat) (flex:string-to-octets str :external-format exformat)
:wrap-at-column columns) :wrap-at-column (if (and (numberp columns) (= columns 0))
nil columns))
#-allegro (cl-base64:usb8-array-to-base64-string #-allegro (cl-base64:usb8-array-to-base64-string
(flex:string-to-octets str :external-format exformat) (flex:string-to-octets str :external-format exformat)
:columns columns))) :columns columns)))
...@@ -298,14 +299,14 @@ ...@@ -298,14 +299,14 @@
username username
#\null username #\null username
#\null password) #\null password)
:columns nil)) :columns 0))
235)) 235))
((search " LOGIN" server-authentication :test #'equal) ((search " LOGIN" server-authentication :test #'equal)
(smtp-command stream "AUTH LOGIN" (smtp-command stream "AUTH LOGIN"
334) 334)
(smtp-command stream (string-to-base64-string username :columns nil) (smtp-command stream (string-to-base64-string username :columns 0)
334) 334)
(smtp-command stream (string-to-base64-string password :columns nil) (smtp-command stream (string-to-base64-string password :columns 0)
235)) 235))
(t (t
(error 'no-supported-authentication-method :features features)))))) (error 'no-supported-authentication-method :features features))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment