Drop mails marked as spam in the subject.
Patch by mark.
diffs (17 lines):
diff -r 91742a7ca440 -r 4660678283bb bin/worker/incoming-email
--- a/bin/worker/incoming-email Sat Jan 30 10:14:49 2010 +0000
+++ b/bin/worker/incoming-email Tue Feb 02 06:56:18 2010 +0000
@@ -114,11 +114,13 @@ sub work {
my $subject = $head->get('Subject');
chomp $subject;
+ $subject = LJ::trim( $subject );
# simple/effective spam/bounce/virus checks:
return dequeue("Bounce") if $head->get("Return-Path") =~ /^\s*<>\s*$/;
return dequeue("Spam") if subject_is_bogus($subject);
return dequeue("Virus found") if virus_check($entity);
+ return dequeue("Spam") if $subject && $subject =~ /^\[SPAM:
\d+\.?\d*\]/;
# see if a hook is registered to handle this message
if (LJ::Hooks::are_hooks("incoming_email_handler")) {
_______________________________________________
dw-changelog mailing list
[email protected]
http://lists.dwscoalition.org/mailman/listinfo/dw-changelog
