Commit 1222bb14 authored by Jan Idzikowski's avatar Jan Idzikowski
Browse files

Version 20131218.1

2013.12.18
Add patch convert bare LF into CRLF in rfc2045-q-encode-string-to-stream
Thanks Justin Megawarne  for the bug report and patch
Change cl-smtp.asd, cl-smtp.lisp, CHANGELOG
parent a915aeea
Version 20131218.1
2013.12.18
Add patch convert bare LF into CRLF in rfc2045-q-encode-string-to-stream
Thanks Justin Megawarne for the bug report and patch
Change cl-smtp.asd, cl-smtp.lisp, CHANGELOG
Version 20130822.1 Version 20130822.1
2013.08.22 2013.08.22
Add patch to use given external-format for ssl stream Add patch to use given external-format for ssl stream
......
...@@ -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 "20130822.1" :version "20131218.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
......
...@@ -111,7 +111,7 @@ ...@@ -111,7 +111,7 @@
(cond (cond
((char= c #\NewLine) ((char= c #\NewLine)
(setf last-line-break n) (setf last-line-break n)
(write-char c stream)) (write-blank-line stream))
((or (char= c #\Space) ((or (char= c #\Space)
(char= c #\Tab)) (char= c #\Tab))
(if (char= nc #\NewLine) (if (char= nc #\NewLine)
......
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