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