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

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonChat.ml
diff -u mldonkey/src/daemon/common/commonChat.ml:1.3 
mldonkey/src/daemon/common/commonChat.ml:1.4
--- mldonkey/src/daemon/common/commonChat.ml:1.3        Sun Mar 20 01:41:29 2005
+++ mldonkey/src/daemon/common/commonChat.ml    Tue Jun 28 23:17:07 2005
@@ -45,16 +45,18 @@
     flush chanout;
     close_out chanout
   with
-  | Unix.Unix_error (e,s1,s2) ->
+  | Unix.Unix_error (e,s1,s2) -> if !CommonOptions.verbose then begin
       let s = (Unix.error_message e)^" : "^s1^" "^s2 in
       lprintf "%s\nchat_app_host=%s chat_app_port=%d\n" s
             !!O.chat_app_host !!O.chat_app_port;
       close_out chanout
-  | e ->
+      end
+  | e -> if !CommonOptions.verbose then begin
       lprintf "%s\nchat_app_host=%s chat_app_port=%d\n"
         (Printexc2.to_string e)
             !!O.chat_app_host !!O.chat_app_port;
       close_out chanout
+      end
 
 
 let send_chat_proto name ad_opt m =