rev 1812 - trunk/Email-Store/lib/Email/Store

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

Author: richardc
Date: 2005-02-04 04:35:44 +0000 (Fri, 04 Feb 2005)
New Revision: 1812

Modified:
   trunk/Email-Store/lib/Email/Store/Mail.pm
Log:
give up on this quest, as people probably do want things munged,  I'll just write email::store::pristine instead


Modified: trunk/Email-Store/lib/Email/Store/Mail.pm
===================================================================
--- trunk/Email-Store/lib/Email/Store/Mail.pm	2005-02-04 04:26:32 UTC (rev 1811)
+++ trunk/Email-Store/lib/Email/Store/Mail.pm	2005-02-04 04:35:44 UTC (rev 1812)
@@ -14,19 +14,6 @@
 use Email::Simple;
 use Email::MessageID;
 
-sub message {
-    my $self = shift;
-    if (@_) {
-        # we want to stamp out direct modification of the pristine message
-        # for now, allow it and complain
-
-        my $who = caller;
-        warn "(re)setting the message is frowned upon - please fix $who\n";
-        $self->set('message', @_);
-    }
-    return $self->get('message');
-}
-
 sub _simple { Email::Simple->new(shift); } # RFC2822 -> Email::Simple
 
 sub simple {

• rev 1812 - trunk/Email-Store/lib/Email/Store richardc 04:35 on 04 Feb 2005

Generated at 05:00 on 04 Feb 2005 by mariachi 0.52