[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyServers.ml

[mldonkey-commits]

Index: mldonkey/src/networks/donkey/donkeyServers.ml
diff -u mldonkey/src/networks/donkey/donkeyServers.ml:1.33 
mldonkey/src/networks/donkey/donkeyServers.ml:1.34
--- mldonkey/src/networks/donkey/donkeyServers.ml:1.33  Thu Jun 23 11:17:25 2005
+++ mldonkey/src/networks/donkey/donkeyServers.ml       Thu Jul 14 14:05:25 2005
@@ -450,7 +450,9 @@
       ()
       
 let connect_server s =
-  if !!enable_servers && can_open_connection connection_manager then
+  if !!enable_servers && can_open_connection connection_manager
+    && (not !!connect_only_preferred_server || s.server_preferred)
+  then
     match s.server_sock with
     | NoConnection ->
         incr nservers;