#!/usr/athena/bin/perl

@spam_header = (
	'X-Spam-Flag: YES',
	);

@spam_body = (
	);

$home = $ENV{HOME};
$inbox = "$home/Mail/inbox";
opendir (I, $inbox) or die "can't open inbox: $!";
@msgs = grep { /^\d+$/ } readdir (I);
closedir I;
my $killed = 0;

foreach my $m (@msgs) {
  open (M, "$inbox/$m") or die "can't open message $m: $!";
  my $header = 1;
  my $spam = 0;
  while (<M>) {
    $header = 0 if /^$/;
    foreach my $p ($header ? @spam_header : @spam_body) {
      my $fp = '^'. $p .'$';
      $spam = 1 if /$fp/;
    }
  }
  close M;

  if ($spam) {
    print "Killing spam...\n" unless $killed++;
    system ("scan $m ; rmm $m");
  }
}