Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
cl-smtp
Commits
d1eab1b9
Commit
d1eab1b9
authored
Feb 27, 2014
by
Jan Idzikowski
Browse files
fix string-to-base64-string for lispworks (need :columns 0, not nil)
parent
dff96df6
Changes
3
Hide whitespace changes
Inline
Side-by-side
CHANGELOG
View file @
d1eab1b9
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,
...
...
cl-smtp.asd
View file @
d1eab1b9
...
...
@@ -17,7 +17,7 @@
;;; Description: cl-smtp ASDF system definition file
(
asdf:defsystem
:cl-smtp
:version
"20140
128
.1"
:version
"20140
227
.1"
:perform
(
load-op
:after
(
op
webpage
)
(
pushnew
:cl-smtp
cl:*features*
))
:depends-on
(
:usocket
...
...
cl-smtp.lisp
View file @
d1eab1b9
...
...
@@ -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
))))))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment