Repository List / mws / trunk / mailbox-destruct.diff @ HEAD

As suggested at thread

http://thread.gmane.org/gmane.comp.lang.perl.modules.mail-box/1269

to keep memory usage down.

--- Mail/Box/Message/Destructed.pm.orig	2004-05-07 00:38:58.000000000 +0200
+++ Mail/Box/Message/Destructed.pm	2004-05-07 00:42:59.000000000 +0200
@@ -52,7 +52,7 @@
       return ();
    }
 
-   $message->label(deleted => 1);
+   #$message->label(deleted => 1);
    $message->body(undef);
    $message->head(undef);
 
@@ -88,4 +88,15 @@
 
 sub labels() { wantarray ? ('deleted') : { deleted => 1 } }
 
+sub modified(;$)
+{  my $self = shift;
+
+#   $self->log(ERROR => 'Do not set the modified flag on a destructed message')
+#      if  <at> _ && $_[0];
+
+   0;
+}
+
+sub isModified() { 0 }
+
 1;