Репозиторий Sisyphus
Последнее обновление: 1 октября 2023 | Пакетов: 18631 | Посещений: 37047654
en ru br
Репозитории ALT
S:1.6-alt1
5.1: 1.4-alt1
4.1: 1.2-alt2
4.0: 1.2-alt2
3.0: 1.2-alt2
www.altlinux.org/Changes

Группа :: Сети/Почта
Пакет: SpamOracle

 Главная   Изменения   Спек   Патчи   Sources   Загрузить   Gear   Bugs and FR  Repocop 

Патч: lowercase_ascii.patch
Скачать


diff --git spamoracle/htmlscan.mll spamoracle/htmlscan.mll
index ebc3d71..a268cbf 100644
--- spamoracle/htmlscan.mll
+++ spamoracle/htmlscan.mll
@@ -93,7 +93,7 @@ module Output = struct
     if !Config.html_add_tags then add_extra ob t
 
   let tag_attr ob t n s =
-    let n = String.lowercase n in
+    let n = String.lowercase_ascii n in
     if Str.string_match !Config.html_tag_attr (t ^ "/" ^ n) 0 then
       if n = "href" || n = "src"
       then add_extra ob (decode_url s)
@@ -117,12 +117,12 @@ rule main = parse
       { comment lexbuf; main lexbuf }
   | "<" name
       { let s = Lexing.lexeme lexbuf in
-        tag := String.lowercase(String.sub s 1 (String.length s - 1));
+        tag := String.lowercase_ascii(String.sub s 1 (String.length s - 1));
         tagbody lexbuf;
         main lexbuf }
   | "</" name
       { let s = Lexing.lexeme lexbuf in
-        tag := String.lowercase(String.sub s 2 (String.length s - 2));
+        tag := String.lowercase_ascii(String.sub s 2 (String.length s - 2));
         tagbody lexbuf;
         main lexbuf }
   | "<"                         (* tolerance *)
diff --git spamoracle/mail.ml spamoracle/mail.ml
index 92d46e7..c190991 100644
--- spamoracle/mail.ml
+++ spamoracle/mail.ml
@@ -119,7 +119,7 @@ let parse_header s =
     [] -> List.rev accu
   | line :: rem ->
       if Str.string_match re_field line 0 then begin
-        let field_name = String.lowercase (Str.matched_group 1 line)
+        let field_name = String.lowercase_ascii (Str.matched_group 1 line)
         and field_val  = Str.matched_group 2 line in
         parse_field ((field_name, decode_header field_val) :: accu) rem
       end else
 
дизайн и разработка: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
текущий майнтейнер: Michael Shigorin