[Mldonkey-commits] Changes to mldonkey/src/daemon/common/guiEncoding.ml

[mldonkey-commits]

Index: mldonkey/src/daemon/common/guiEncoding.ml
diff -u mldonkey/src/daemon/common/guiEncoding.ml:1.39 
mldonkey/src/daemon/common/guiEncoding.ml:1.40
--- mldonkey/src/daemon/common/guiEncoding.ml:1.39      Sun Aug 21 12:27:18 2005
+++ mldonkey/src/daemon/common/guiEncoding.ml   Sun Sep 18 19:00:51 2005
@@ -227,6 +227,12 @@
 let buf_bool buf b =
   buf_int8 buf (if b then 1 else 0)
       
+let buf_bool_option buf b =
+  buf_int8 buf
+  (match b with
+  | None -> 2
+  | Some b -> if b then 1 else 0)
+      
 let buf_result proto buf r =
   buf_int buf r.result_num;
   buf_int buf 0;
@@ -606,6 +612,9 @@
       end;
       if proto >= 33 then begin
         buf_string buf c.client_release
+      end;
+      if proto >= 35 then begin
+        buf_bool_option buf c.client_sui_verified
       end;
     end