Parent Directory | Revision Log
destruct message, and diff for Mail::Box
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; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |