rev 1956 - trunk/buscador/lib/Buscador

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

From: simon
Subject: rev 1956 - trunk/buscador/lib/Buscador
Date: 11:00 on 25 Feb 2005
Author: simon
Date: 2005-02-25 11:00:04 +0000 (Fri, 25 Feb 2005)
New Revision: 1956

Removed:
   trunk/buscador/lib/Buscador/UTF8.pm
Log:
This has been moved to Email::Store::Mail


Deleted: trunk/buscador/lib/Buscador/UTF8.pm
===================================================================
--- trunk/buscador/lib/Buscador/UTF8.pm	2005-02-25 10:59:39 UTC (rev 1955)
+++ trunk/buscador/lib/Buscador/UTF8.pm	2005-02-25 11:00:04 UTC (rev 1956)
@@ -1,48 +0,0 @@
-package Buscador::UTF8;
-
-
-package Email::Store::Mail;
-use strict;
-
-sub body {
-    my $mail = shift;
-    my $mime = Email::MIME->new($mail->message);
-       
-    my $body = $mime->body;
-    my $charset = $mime->{ct}->{attributes}{charset};
-    if ($charset and $charset !~ /utf-?8/i) {
-        eval {
-            require Encode;
-            $body = Encode::decode($charset, $body);
-            Encode::_utf8_off($body);
-        };
-    }
-    $body;
-}
-
-1;
-
-=head1 NAME
-
-Buscador::UTF8 - Buscador plugin to encode the body of a message to UTF8
-
-=head1 DESCRIPTION
-
-This plugin provides a C<body> method to B<Email::Store::Mail>
-that returns a UTF-8 encoded body text.
-
-=head1 AUTHOR
-
-Simon Cozens, <simon@xxxx.xxx>
-
-with work from
-
-Simon Wistow, <simon@xxxxxxxxxx.xxx>
-
-=head1 COPYRIGHT
-
-Copyright 2004, Simon Cozens
-
-=cut
-
-

Generated at 12:00 on 25 Feb 2005 by mariachi 0.52