rev 1870 - in trunk/buscador/lib: . Buscador

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

Author: simon
Date: 2005-02-10 15:58:08 +0000 (Thu, 10 Feb 2005)
New Revision: 1870

Modified:
   trunk/buscador/lib/Buscador.pm
   trunk/buscador/lib/Buscador/Decorate.pm
Log:
Fix


Modified: trunk/buscador/lib/Buscador/Decorate.pm
===================================================================
--- trunk/buscador/lib/Buscador/Decorate.pm	2005-02-10 15:56:59 UTC (rev 1869)
+++ trunk/buscador/lib/Buscador/Decorate.pm	2005-02-10 15:58:08 UTC (rev 1870)
@@ -39,10 +39,11 @@
 sub format_body {
     my $mail = shift;
 
-
     # NOTE! this needs a lot of work 
     my $ct = $mail->simple->header('Content-Type') || "";
-    return $mail->simple->body if ($ct =~ m!text/html!i);
+
+    
+    return $mail->body if ($ct =~ m!text/html!i);
     my $html = ($mail->html)[0];
     return $html->scrubbed if $html;
 

Modified: trunk/buscador/lib/Buscador.pm
===================================================================
--- trunk/buscador/lib/Buscador.pm	2005-02-10 15:56:59 UTC (rev 1869)
+++ trunk/buscador/lib/Buscador.pm	2005-02-10 15:58:08 UTC (rev 1870)
@@ -6,7 +6,7 @@
 
 $VERSION = "0.1";
 
-# use Maypole::Cache;
+#use Maypole::Cache;
 Buscador->config->{cache_options}{class} = "Cache::FileCache";
 
 use Buscador::Config;
@@ -33,7 +33,7 @@
     my @stores = sort grep { !/(DBI|Addressing)$/ }
                       grep { !/SUPER$/ } 
                       grep { $_->can("table") } 
-                                                    Buscador->stores;
+                      Buscador->stores;
     
     # not needed any more
     # my @setup =  sort qw/ Email::Store::Mail Email::Store::List  Email::Store::Date

• rev 1870 - in trunk/buscador/lib: . Buscador simon 15:58 on 10 Feb 2005

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