[Mldonkey-commits] mldonkey distrib/ChangeLog src/daemon/common/co...

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Changes by:     spiralvoice <spiralvoice>       07/03/04 21:30:00

Modified files:
        distrib        : ChangeLog 
        src/daemon/common: commonOptions.ml 

Log message:
        patch #5768

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/distrib/ChangeLog?cvsroot=mldonkey&r1=1.1193&r2=1.1194
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/daemon/common/commonOptions.ml?cvsroot=mldonkey&r1=1.200&r2=1.201

Patches:
Index: distrib/ChangeLog
===================================================================
RCS file: /sources/mldonkey/mldonkey/distrib/ChangeLog,v
retrieving revision 1.1193
retrieving revision 1.1194
diff -u -b -r1.1193 -r1.1194
--- distrib/ChangeLog   4 Mar 2007 21:28:53 -0000       1.1193
+++ distrib/ChangeLog   4 Mar 2007 21:30:00 -0000       1.1194
@@ -15,6 +15,7 @@
 =========
 
 2007/03/04
+5768: New default for option messages_filter (thx to atordo)
 5766: Windows/Unicode: Fix broken get_info function for non-ascii filenames
 5782: Improve CommonNetwork.network_display_stats function
 

Index: src/daemon/common/commonOptions.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/daemon/common/commonOptions.ml,v
retrieving revision 1.200
retrieving revision 1.201
diff -u -b -r1.200 -r1.201
--- src/daemon/common/commonOptions.ml  19 Feb 2007 21:20:38 -0000      1.200
+++ src/daemon/common/commonOptions.ml  4 Mar 2007 21:30:00 -0000       1.201
@@ -1346,7 +1346,7 @@
 
 let messages_filter = define_option current_section ["messages_filter"]
   "Regexp of messages to filter out, example: string1|string2|string3"
-    string_option "Your client is connecting too fast"
+    string_option "DI-Emule|ZamBoR|Ketamine|eMule FX|AUTOMATED MESSAGE"
 
 let comments_filter = define_option current_section ["comments_filter"]
   "Regexp of comments to filter out, example: string1|string2|string3"
@@ -1584,7 +1584,7 @@
 let options_version = define_expert_option current_section ["options_version"]
   ~internal: true
   "(internal option)"
-    int_option 15
+    int_option 16
 
 let max_comments_per_file = define_expert_option current_section 
["max_comments_per_file"]
   "Maximum number of comments per file"
@@ -2164,4 +2164,9 @@
       loop_delay =:= 5;
       update 15
 
+  | 15 ->
+      if !!messages_filter = "Your client is connecting too fast" then
+        messages_filter =:= "DI-Emule|ZamBoR|Ketamine|eMule FX|AUTOMATED 
MESSAGE";
+      update 16
+
   | _ -> ()