[cl-smtp-cvs] CVS cl-smtp

[jidzikowski]

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))