rev 1864 - trunk/buscador/lib/Buscador

[prev] [thread] [next] [lurker] [Date index for 2005/02/10]

Author: simon
Date: 2005-02-10 14:15:47 +0000 (Thu, 10 Feb 2005)
New Revision: 1864

Modified:
   trunk/buscador/lib/Buscador/UTF8.pm
Log:
Make it case-insensitive


Modified: trunk/buscador/lib/Buscador/UTF8.pm
===================================================================
--- trunk/buscador/lib/Buscador/UTF8.pm	2005-02-10 14:15:35 UTC (rev 1863)
+++ trunk/buscador/lib/Buscador/UTF8.pm	2005-02-10 14:15:47 UTC (rev 1864)
@@ -26,8 +26,6 @@
 
 package Email::Store::Mail;
 use strict;
-use utf8;
-use Text::Unidecode;
 
 sub subject {
     my $mail = shift;
@@ -44,17 +42,15 @@
 
     my $body = $mime->body;
 
-
     my $charset = $mime->{ct}->{attributes}{charset};
-    if ($charset and $charset !~ /utf-?8/) {
+    if ($charset and $charset !~ /utf-?8/i) {
         eval {
             require Encode;
             $body = Encode::decode($charset, $body);
             Encode::_utf8_off($body);
         };
     }
-    unidecode($body);
-    #$body;
+    return $body;
 }
 
 1;

• rev 1864 - trunk/buscador/lib/Buscador simon 14:15 on 10 Feb 2005

Generated at 15:00 on 10 Feb 2005 by mariachi 0.52