[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.41 
mldonkey/src/daemon/common/guiEncoding.ml:1.42
--- mldonkey/src/daemon/common/guiEncoding.ml:1.41      Sat Nov 12 22:53:51 2005
+++ mldonkey/src/daemon/common/guiEncoding.ml   Mon Nov 28 14:32:28 2005
@@ -569,8 +569,15 @@
   | Ip.AddrName s ->
       buf_int8 buf 1;
       buf_string buf s);
-  if proto > 33 then
-    buf_bool buf (Ip_set.ip_blocked (Ip.ip_of_addr addr))
+  if proto > 33 then begin
+    let is_blocked = 
+      try 
+        Ip_set.ip_blocked (Ip.ip_of_addr addr)
+      with _ ->
+        false
+    in
+    buf_bool buf is_blocked 
+  end
   
 let buf_server proto buf s =
   buf_int buf s.server_num;