[prev] [thread] [next] [lurker] [Date index for 2005/02/25]
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