[Mldonkey-commits] Changes to mldonkey/src/utils/net/http_client.ml

[mldonkey-commits]

Index: mldonkey/src/utils/net/http_client.ml
diff -u mldonkey/src/utils/net/http_client.ml:1.22 
mldonkey/src/utils/net/http_client.ml:1.23
--- mldonkey/src/utils/net/http_client.ml:1.22  Sat Jul 23 14:19:48 2005
+++ mldonkey/src/utils/net/http_client.ml       Tue Aug  9 10:52:02 2005
@@ -390,7 +390,7 @@
       try
         (f filename : unit);
         Sys.remove filename
-      with  e ->  lprintf_nl ()
+      with e ->  lprintf_nl ()
             "Exception %s in loading downloaded file %s"
             (Printexc2.to_string e) filename;
           Sys.remove filename;
@@ -402,6 +402,7 @@
   
   get_page r
     (fun maxlen headers ->
+     if !verbose then
       lprintf_nl () "headers...";
       (try f headers with _ -> ());
       fun sock nread ->