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

Version 20130822.1

2013.08.22
Add patch to use given external-format for ssl stream
Thanks Anton Vodonosov for the bug report and patch
Change cl-smtp.asd, cl-smtp.lisp, CHANGELOG
parent 3411fbd6
Version 20130822.1
2013.08.22
Add patch to use given external-format for ssl stream
Thanks Anton Vodonosov for the bug report and patch
Change cl-smtp.asd, cl-smtp.lisp, CHANGELOG
Version 20130306.1
2013.03.06
Fix smtp-command to return all lines from smtp server
......
......@@ -90,7 +90,7 @@
(write-char c s))
((char= c #\Space)
(write-char #\+ s))
(t (format s "%~2,'0x" (char-code c)))))))
(t (format s "%~2,'0X" (char-code c)))))))
(defun send-attachment-header (sock boundary attachment external-format)
(let ((quoted-name
......
......@@ -17,7 +17,7 @@
;;; Description: cl-smtp ASDF system definition file
(asdf:defsystem :cl-smtp
:version "20130306.1"
:version "20130822.1"
:perform (load-op :after (op webpage)
(pushnew :cl-smtp cl:*features*))
:depends-on (:usocket
......
......@@ -324,7 +324,8 @@
(return-from smtp-handshake stream))
;; When SSL or authentication requested, perform ESMTP EHLO
(let (features)
(let ((features)
(flexi-external-format (flexi-streams:flexi-stream-external-format stream)))
(labels
((read-greetings ()
;; Read the initial greeting from the SMTP server
......@@ -343,9 +344,7 @@
#-allegro
(setf stream (flexi-streams:make-flexi-stream
stream
:external-format
(flexi-streams:make-external-format
:latin-1 :eol-style :lf)))))
:external-format flexi-external-format))))
(ecase ssl
((or t :starttls)
(read-greetings)
......
......@@ -141,6 +141,9 @@ n !"
(tmpstr (format nil "--~A~AContent-type: text/plain;~% name*=UTF-8''foo%5cbar;~% name=\"foo\\\\bar\"~AContent-Disposition: attachment; filename*=UTF-8''foo%5cbar; filename=\"foo\\\\bar\"~AContent-Transfer-Encoding: base64~A~A"
boundary returnnewline returnnewline returnnewline
returnnewline returnnewline)))
(print headerstr)
(print tmpstr)
(assert (equal headerstr tmpstr))
))
......
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