diff options
| author | fukachan <fukachan> | 2001-11-07 04:05:25 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-11-07 04:05:25 +0000 |
| commit | 81f046b88550bbe35c557b216b4833221d0c72d8 (patch) | |
| tree | 87b57a51ae26386b224b21bdd905cc085eb19c74 /fml/lib/Mail/ThreadTrack.pm | |
| parent | 497120e54b4ba4186e96a31905e98fc70f495ae2 (diff) | |
| download | fml8-81f046b88550bbe35c557b216b4833221d0c72d8.tar.gz fml8-81f046b88550bbe35c557b216b4833221d0c72d8.tar.bz2 fml8-81f046b88550bbe35c557b216b4833221d0c72d8.zip | |
define add_filter() method
Diffstat (limited to 'fml/lib/Mail/ThreadTrack.pm')
| -rwxr-xr-x | fml/lib/Mail/ThreadTrack.pm | 24 |
1 files changed, 23 insertions, 1 deletions
diff --git a/fml/lib/Mail/ThreadTrack.pm b/fml/lib/Mail/ThreadTrack.pm index a98b9c82..001c98ff 100755 --- a/fml/lib/Mail/ThreadTrack.pm +++ b/fml/lib/Mail/ThreadTrack.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: ThreadTrack.pm,v 1.9 2001/11/04 13:43:50 fukachan Exp $ +# $FML: ThreadTrack.pm,v 1.10 2001/11/05 14:34:50 fukachan Exp $ # package Mail::ThreadTrack; @@ -438,6 +438,28 @@ sub _set_status } +=head2 add_filter( { key => value } ) + +add filter rule to ignore in thread database. + + my $thread = new Mail::ThreadTrack; + $thread->set_filter( { 'subject' => 'fml cvs weekly changes' } ); + +=cut + + +sub add_filter +{ + my ($self, $hash) = @_; + + # update filter list + my ($k, $v); + while (($k, $v) = each %$hash) { + $self->{ _filterlist }->{ $k } = $v; + } +} + + =head2 log( $str ) =cut |