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