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 Version 20130306.1
2013.03.06 2013.03.06
Fix smtp-command to return all lines from smtp server Fix smtp-command to return all lines from smtp server
......
...@@ -90,7 +90,7 @@ ...@@ -90,7 +90,7 @@
(write-char c s)) (write-char c s))
((char= c #\Space) ((char= c #\Space)
(write-char #\+ s)) (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) (defun send-attachment-header (sock boundary attachment external-format)
(let ((quoted-name (let ((quoted-name
......
...@@ -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 "20130306.1" :version "20130822.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
......
...@@ -324,7 +324,8 @@ ...@@ -324,7 +324,8 @@
(return-from smtp-handshake stream)) (return-from smtp-handshake stream))
;; When SSL or authentication requested, perform ESMTP EHLO ;; When SSL or authentication requested, perform ESMTP EHLO
(let (features) (let ((features)
(flexi-external-format (flexi-streams:flexi-stream-external-format stream)))
(labels (labels
((read-greetings () ((read-greetings ()
;; Read the initial greeting from the SMTP server ;; Read the initial greeting from the SMTP server
...@@ -343,9 +344,7 @@ ...@@ -343,9 +344,7 @@
#-allegro #-allegro
(setf stream (flexi-streams:make-flexi-stream (setf stream (flexi-streams:make-flexi-stream
stream stream
:external-format :external-format flexi-external-format))))
(flexi-streams:make-external-format
:latin-1 :eol-style :lf)))))
(ecase ssl (ecase ssl
((or t :starttls) ((or t :starttls)
(read-greetings) (read-greetings)
......
...@@ -141,6 +141,9 @@ n !" ...@@ -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" (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 boundary returnnewline returnnewline returnnewline
returnnewline returnnewline))) returnnewline returnnewline)))
(print headerstr)
(print tmpstr)
(assert (equal headerstr 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