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