Репозитории ALT
Группа :: Сети/Почта
Пакет: 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