vacation.pl: do not send a vacation response if the mail has been previously classes as spam - assumes /^x-spam-flag:\s+yes$/i matches in the message

git-svn-id: https://svn.code.sf.net/p/postfixadmin/code/trunk@203 a1433add-5e2c-0410-b055-b7f2511e0802

VIRTUAL_VACATION/vacation.pl

@@ -325,6 +325,7 @@ while (<STDIN>) {
    elsif (/^cc:\s+(.*)\n$/i) { $cc = $1; $lastheader = \$cc; }  
    elsif (/^subject:\s+(.*)\n$/i) { $subject = $1; $lastheader = \$subject; }  
    elsif (/^message-id:\s+(.*)\n$/i) { $messageid = $1; $lastheader = \$messageid; }  
+   elsif (/^x-spam-flag:\s+yes$/i) { exit (0); }
    elsif (/^precedence:\s+(bulk|list|junk)/i) { exit (0); }  
    elsif (/^x-loop:\s+postfix\ admin\ virtual\ vacation/i) { exit (0); }  
    else {$lastheader = "" ; }