Fix detection of spam via X-Spam-Status header

http://www.virtualmin.com/node/17856

diff --git a/sendmail/autoreply.pl b/sendmail/autoreply.pl
index 2e34162..5097b86 100755 (executable)
--- a/sendmail/autoreply.pl
+++ b/sendmail/autoreply.pl
@@ -89,8 +89,8 @@ if ($spam) {
        $isspam = undef;
        open(SPAMOUT, $temp);
        while(<SPAMOUT>) {
-               if (/^X-Spam-Status:\s+(\S+)/i) {
-                       $isspam = lc($1) eq 'yes' ? 1 : 0;
+               if (/^X-Spam-Status:\s+Yes/i) {
+                       $isspam = 1;
                        last;
                        }
                last if (!/\S/);