Update of /project/cl-smtp/cvsroot/cl-smtp In directory clnet:/tmp/cvs-serv27009

Modified Files: CHANGELOG cl-smtp.asd smtp-output-stream.lisp Log Message: Fixed stream-element-type. Thanks Attila Lendvai for the bug report.

--- /project/cl-smtp/cvsroot/cl-smtp/CHANGELOG 2008/04/12 19:40:36 1.13 +++ /project/cl-smtp/cvsroot/cl-smtp/CHANGELOG 2008/04/17 08:33:55 1.14 @@ -1,3 +1,8 @@ +Version 20080417.1 +2008.04.17 +Fixed stream-element-type. Thanks Attila Lendvai for the bug report. +Change smtp-output-stream, cl-smtp.asd, CHANGELOG + Version 20080412.1 2008.04.12 Fixed TLS directly functionality, switch to ssl stream bevor read from stream. --- /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.asd 2008/04/12 19:40:36 1.15 +++ /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.asd 2008/04/17 08:33:55 1.16 @@ -17,7 +17,7 @@ ;;; Description: cl-smtp ASDF system definition file

(asdf:defsystem :cl-smtp - :version "20080412.1" + :version "20080417.1" :perform (load-op :after (op webpage) (pushnew :cl-smtp cl:*features*)) :depends-on (:usocket --- /project/cl-smtp/cvsroot/cl-smtp/smtp-output-stream.lisp 2008/04/02 18:02:29 1.1 +++ /project/cl-smtp/cvsroot/cl-smtp/smtp-output-stream.lisp 2008/04/17 08:33:55 1.2 @@ -41,7 +41,7 @@ :reader external-format)))

(defmethod stream-element-type ((stream smtp-output-stream)) - (stream-element-type (stream stream))) + (stream-element-type (encapsulated-stream stream)))

(defmethod close ((stream smtp-output-stream) &key abort) (close (encapsulated-stream stream) :abort abort))