[cl-xmpp-cvs] CVS update: cl-xmpp/cl-xmpp-tls.lisp

[Erik Enge]

Update of /project/cl-xmpp/cvsroot/cl-xmpp
In directory common-lisp.net:/tmp/cvs-serv3568

Modified Files:
	cl-xmpp-tls.lisp 
Log Message:
patch from david lichteblau

Date: Mon Nov 28 16:15:46 2005
Author: eenge

Index: cl-xmpp/cl-xmpp-tls.lisp
diff -u cl-xmpp/cl-xmpp-tls.lisp:1.7 cl-xmpp/cl-xmpp-tls.lisp:1.8
--- cl-xmpp/cl-xmpp-tls.lisp:1.7	Thu Nov 17 21:56:38 2005
+++ cl-xmpp/cl-xmpp-tls.lisp	Mon Nov 28 16:15:46 2005
@@ -1,4 +1,4 @@
-;;;; $Id: cl-xmpp-tls.lisp,v 1.7 2005/11/17 20:56:38 eenge Exp $
+;;;; $Id: cl-xmpp-tls.lisp,v 1.8 2005/11/28 15:15:46 eenge Exp $
 ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp-tls.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -46,7 +46,8 @@
 
 Turn off sending XML stream start with :begin-xml-stream nil."
   (setf (server-stream connection)
-	(cl+ssl:make-ssl-client-stream (server-stream connection)))
+	(cl+ssl:make-ssl-client-stream (server-stream connection)
+				       :external-format :iso-8859-1))
   (setf (server-xstream connection) nil)
    (when begin-xml-stream
     (begin-xml-stream connection))