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
2014.01.28
Add patch for converted username and password to base64 string,
......
......@@ -17,7 +17,7 @@
;;; Description: cl-smtp ASDF system definition file
(asdf:defsystem :cl-smtp
:version "20140128.1"
:version "20140227.1"
:perform (load-op :after (op webpage)
(pushnew :cl-smtp cl:*features*))
:depends-on (:usocket
......
......@@ -61,7 +61,8 @@
(let ((exformat (flex:make-external-format external-format)))
#+allegro (excl:usb8-array-to-base64-string
(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
(flex:string-to-octets str :external-format exformat)
:columns columns)))
......@@ -298,14 +299,14 @@
username
#\null username
#\null password)
:columns nil))
:columns 0))
235))
((search " LOGIN" server-authentication :test #'equal)
(smtp-command stream "AUTH LOGIN"
334)
(smtp-command stream (string-to-base64-string username :columns nil)
(smtp-command stream (string-to-base64-string username :columns 0)
334)
(smtp-command stream (string-to-base64-string password :columns nil)
(smtp-command stream (string-to-base64-string password :columns 0)
235))
(t
(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