rev 1937 - trunk/Email-Store-Summary

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

Author: simon
Date: 2005-02-22 08:01:52 +0000 (Tue, 22 Feb 2005)
New Revision: 1937

Modified:
   trunk/Email-Store-Summary/Summary.pm
Log:
Various fixes to get UTF8 mails working


Modified: trunk/Email-Store-Summary/Summary.pm
===================================================================
--- trunk/Email-Store-Summary/Summary.pm	2005-02-22 08:01:15 UTC (rev 1936)
+++ trunk/Email-Store-Summary/Summary.pm	2005-02-22 08:01:52 UTC (rev 1937)
@@ -2,7 +2,7 @@
 use 5.006;
 use strict;
 use warnings;
-our $VERSION = '1.2';
+our $VERSION = '1.3';
 use base 'Email::Store::DBI';
 use Email::MIME;
 Email::Store::Summary->table("summary");
@@ -19,14 +19,7 @@
     $subject =~ s/^(\s*(re|aw):\s*)+//i; 
 
     # There's a bit of hackery here.
-    my $body = $mail->simple->body;
-    my $charset = $mime->{ct}->{attributes}{charset};
-    if ($charset and $charset !~ /utf-?8/) {
-        eval {
-            require Encode;
-            $body = Encode::decode($charset, $body);
-        };  
-    }   
+    my $body = $mail->utf8_body;
 
     Email::Store::Summary->create({
         mail => $mail->id,

• rev 1937 - trunk/Email-Store-Summary simon 08:01 on 22 Feb 2005

Generated at 09:00 on 22 Feb 2005 by mariachi 0.52