X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FEmail%2FArchive%2FStorage%2FDBI.pm;fp=lib%2FEmail%2FArchive%2FStorage%2FDBI.pm;h=9f6baa41986e4903c620cd5a6f2accd7046fd8c7;hb=5e15a8a0901098f0838aba47e12c6e0562941c04;hp=793eeedcf1ded51ce84c23ee2afc212d970a1168;hpb=59570365831d2a1069c76d9025b09fd15baaff23;p=p5sagit%2FEmail-Archive.git

diff --git a/lib/Email/Archive/Storage/DBI.pm b/lib/Email/Archive/Storage/DBI.pm
index 793eeed..9f6baa4 100644
--- a/lib/Email/Archive/Storage/DBI.pm
+++ b/lib/Email/Archive/Storage/DBI.pm
@@ -4,7 +4,7 @@ use Carp;
 use DBI;
 use File::ShareDir 'module_file';
 use File::Slurp 'read_file';
-use Email::Simple::Creator;
+use Email::MIME;
 use Email::Abstract;
 use SQL::Abstract;
 use autodie;
@@ -62,7 +62,7 @@ sub search {
   my $sth = $self->prepare($sql);
   $sth->execute(@bind);
   my ($message) = $sth->fetchrow_hashref;
-  return Email::Simple->create(
+  return Email::MIME->create(
     header => [
       From    => $message->{from_addr},
       To      => $message->{to_addr},