rev 1827 - trunk/Email-Store/lib/Email/Store

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

Author: simon
Date: 2005-02-06 21:46:45 +0000 (Sun, 06 Feb 2005)
New Revision: 1827

Modified:
   trunk/Email-Store/lib/Email/Store/Mail.pm
Log:
We weren't storing the version of message with a fixed Message-ID


Modified: trunk/Email-Store/lib/Email/Store/Mail.pm
===================================================================
--- trunk/Email-Store/lib/Email/Store/Mail.pm	2005-02-06 21:45:25 UTC (rev 1826)
+++ trunk/Email-Store/lib/Email/Store/Mail.pm	2005-02-06 21:46:45 UTC (rev 1827)
@@ -27,6 +27,7 @@
     my ($class, $rfc822) = @_;
     my $simple = Email::Simple->new($rfc822);
     my $msgid = $class->fix_msg_id($simple);
+
     my $self;
 
     if ($self = $class->retrieve($msgid)) {
@@ -35,7 +36,7 @@
     }
 
     $self = $class->create ({ message_id => $msgid,
-                              message    => $rfc822,
+                              message    => $simple->as_string,
                               simple     => $simple });
     $self->call_plugins("on_store", $self);
     $self;

• rev 1827 - trunk/Email-Store/lib/Email/Store simon 21:46 on 06 Feb 2005

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