freebsd-ports/mail/spamoracle/files/patch-wordsplit.mlp

--- spamoracle-1.2-orig/wordsplit.mlp 2002-08-26 13:35:26 +0400
+++ wordsplit.mlp  2002-10-25 21:04:30 +0400
@@ -35,10 +35,10 @@
 aaaaaaeceeeeiiii\
 <20>nooooo<6F>ouuuuypy"
 
-let normalize s =
-  for i = 0 to String.length s - 1 do
-    s.[i] <- tbl.[Char.code s.[i]]
-  done
+let normalize s = s
+(*  for i = 0 to String.length s - 1 do
+     s.[i] <- tbl.[Char.code s.[i]]
+    done *)
 
 }
 
@@ -62,6 +62,10 @@
    '\164' (* Euro *)
    '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' 
 #endif
+#ifdef RUSSIAN
+  '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>'
+  '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>' '<27>'
+#endif
 ]  
 
 let uppercase_letter =