SF.net SVN: postfixadmin:[1046] trunk/VIRTUAL_VACATION/vacation.pl

[<chr...@us...>]

Revision: 1046
          http://postfixadmin.svn.sourceforge.net/postfixadmin/?rev=1046&view=rev
Author:   christian_boltz
Date:     2011-04-19 21:49:43 +0000 (Tue, 19 Apr 2011)

Log Message:
-----------
vacation.pl:
- skip mails with a List-Unsubscribe header - that's another indication
  for a mailinglist

Modified Paths:
--------------
    trunk/VIRTUAL_VACATION/vacation.pl

Modified: trunk/VIRTUAL_VACATION/vacation.pl
===================================================================
--- trunk/VIRTUAL_VACATION/vacation.pl	2011-04-19 20:36:58 UTC (rev 1045)
+++ trunk/VIRTUAL_VACATION/vacation.pl	2011-04-19 21:49:43 UTC (rev 1046)
@@ -561,7 +561,7 @@
     elsif (/^x\-loop:\s+postfix\ admin\ virtual\ vacation/i) { $logger->debug('x-loop: postfix admin virtual vacation found; exiting'); exit (0); }
     elsif (/^Auto\-Submitted:\s*no/i) { next; }
     elsif (/^Auto\-Submitted:/i) { $logger->debug('Auto-Submitted: something found; exiting'); exit (0); }
-    elsif (/^List\-(Id|Post):/i) { $logger->debug("List-$1: found; exiting"); exit (0); }
+    elsif (/^List\-(Id|Post|Unsubscribe):/i) { $logger->debug("List-$1: found; exiting"); exit (0); }
     elsif (/^(x\-(barracuda\-)?spam\-status):\s+(yes)/i) { $logger->debug("$1: $3 found; exiting"); exit (0); }
     elsif (/^(x\-dspam\-result):\s+(spam|bl[ao]cklisted)/i) { $logger->debug("$1: $2 found; exiting"); exit (0); }
     elsif (/^(x\-(anti|avas\-)?virus\-status):\s+(infected)/i) { $logger->debug("$1: $3 found; exiting"); exit (0); }


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.