Fix deleting temporary files.

[debbugs.git] / scripts / spamscan-sa

diff --git a/scripts/spamscan-sa b/scripts/spamscan-sa
index 3ee76826793958d5d50f693797d48b152806cbe1..a964850450848a6cb7d58332ce76ca1851de1cf1 100755 (executable)
--- a/scripts/spamscan-sa
+++ b/scripts/spamscan-sa
@@ -148,6 +148,7 @@ $spam->compile_now(1); # use all user preferences
                        or die "print assassinated: $!";
                }
                close OUT or die "Close assassinated: $!";
+               unlink "incoming/R$id" or warn "unlink incoming/R$id: $!";
            }
            $out =~ tr/\n/\r/;
            print "$nseen\n$out\n";