mws/trunk/mailbox-destruct.diff

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;
1	dpavlin	15	As suggested at thread
2
3			http://thread.gmane.org/gmane.comp.lang.perl.modules.mail-box/1269
4
5			to keep memory usage down.
6
7			--- Mail/Box/Message/Destructed.pm.orig 2004-05-07 00:38:58.000000000 +0200
8			+++ Mail/Box/Message/Destructed.pm 2004-05-07 00:42:59.000000000 +0200
9			@@ -52,7 +52,7 @@
10			return ();
11			}
12
13			- $message->label(deleted => 1);
14			+ #$message->label(deleted => 1);
15			$message->body(undef);
16			$message->head(undef);
17
18			@@ -88,4 +88,15 @@
19
20			sub labels() { wantarray ? ('deleted') : { deleted => 1 } }
21
22			+sub modified(;$)
23			+{ my $self = shift;
24			+
25			+# $self->log(ERROR => 'Do not set the modified flag on a destructed message')
26			+# if <at> _ && $_[0];
27			+
28			+ 0;
29			+}
30			+
31			+sub isModified() { 0 }
32			+
33			1;