=item save
-$self->save();
+C<$spam_log->save();>
Saves changes to the bug log spam file.
if ($self->{spam} eq '0') {
print {$fh} ' ham';
}
- print {$fh "\n";
+ print {$fh} "\n";
}
close($fh) or croak "Unable to write to '$self->{name}.tmp': $!";
rename($self->{name}.'.tmp',$self->{name});
=item is_spam
- next if ($spam_log->is_spam('12456@exmaple.com'));
+C<next if ($spam_log->is_spam('12456@exmaple.com'));>
Returns 1 if this message id confirms that the message is spam
Add a message id to the spam listing.
-You must call C<$self->save()> if you wish the changes to be written out to disk.
+You must call C<$spam_log->save()> if you wish the changes to be written out to disk.
=cut
Add a message id to the ham listing.
-You must call C<$self->save()> if you wish the changes to be written out to disk.
+You must call C<$spam_log->save()> if you wish the changes to be written out to disk.
=cut
-sub add_spam {
+sub add_ham {
my ($self,$msgid) = @_;
$msgid =~ s/^<|>$//;
$self->{spam}{$msgid} = '0';
}
+=item remove_message
+
+ $spam_log->remove_message('123456@example.com');
+
+Remove a message from the spam/ham listing.
+
+You must call C<$spam_log->save()> if you wish the changes to be written out to disk.
+
+=cut
+
1;