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	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;