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

Add patch for converted username and password to base64 string,

ignore default wrap columns 80, so that no newline is inserted.
parent 1222bb14
Version 20140128.1
2014.01.28
Add patch for converted username and password to base64 string,
ignore default wrap columns 80, so that no newline is inserted.
Thanks Helmut G. Enders for the bug report and patch
Change cl-smtp.asd, cl-smtp.lisp, CHANGELOG
Version 20131218.1
2013.12.18
Add patch convert bare LF into CRLF in rfc2045-q-encode-string-to-stream
......
......@@ -17,7 +17,7 @@
;;; Description: cl-smtp ASDF system definition file
(asdf:defsystem :cl-smtp
:version "20131218.1"
:version "20140128.1"
:perform (load-op :after (op webpage)
(pushnew :cl-smtp cl:*features*))
:depends-on (:usocket
......
......@@ -297,14 +297,15 @@
(format nil "~A~C~A~C~A"
username
#\null username
#\null password)))
#\null password)
:columns nil))
235))
((search " LOGIN" server-authentication :test #'equal)
(smtp-command stream "AUTH LOGIN"
334)
(smtp-command stream (string-to-base64-string username)
(smtp-command stream (string-to-base64-string username :columns nil)
334)
(smtp-command stream (string-to-base64-string password)
(smtp-command stream (string-to-base64-string password :columns nil)
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