[Mldonkey-commits] Changes to mldonkey/src/networks/openFT/openFTProtocol.ml

[mldonkey-commits]

Index: mldonkey/src/networks/openFT/openFTProtocol.ml
diff -u mldonkey/src/networks/openFT/openFTProtocol.ml:1.1 
mldonkey/src/networks/openFT/openFTProtocol.ml:1.2
--- mldonkey/src/networks/openFT/openFTProtocol.ml:1.1  Tue Apr 22 22:33:39 2003
+++ mldonkey/src/networks/openFT/openFTProtocol.ml      Tue Sep  6 11:24:59 2005
@@ -655,7 +655,7 @@
 let buf = Buffer.create 1000
       
 let server_msg_to_string t = 
-  Buffer.clear buf;
+  Buffer.reset buf;
   buf_int16 buf 0;
   write buf t;
   let s = Buffer.contents buf in
@@ -715,7 +715,7 @@
 let buf = Buffer.create 1000
       
 let server_msg_to_string pkt = 
-  Buffer.clear buf;
+  Buffer.reset buf;
   buf_md4 buf pkt.pkt_uid;
   buf_int8 buf (match pkt.pkt_type with
       PING -> 0