svn commit: r171165 - /spamassassin/trunk/lib/Mail/SpamAssassin/ArchiveIterator.pm

[qu...@apache.org]

Author: quinlan
Date: Fri May 20 15:54:46 2005
New Revision: 171165

URL: http://svn.apache.org/viewcvs?rev=171165&view=rev
Log:
tired of being surprised by this

Modified:
    spamassassin/trunk/lib/Mail/SpamAssassin/ArchiveIterator.pm

Modified: spamassassin/trunk/lib/Mail/SpamAssassin/ArchiveIterator.pm
URL: http://svn.apache.org/viewcvs/spamassassin/trunk/lib/Mail/SpamAssassin/ArchiveIterator.pm?rev=171165&r1=171164&r2=171165&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/ArchiveIterator.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/ArchiveIterator.pm Fri May 20 15:54:46 2005
@@ -26,6 +26,7 @@
 use IO::Socket;
 use Mail::SpamAssassin::Util;
 use Mail::SpamAssassin::Constants qw(:sa);
+use Mail::SpamAssassin::Logger;
 
 use constant BIG_BYTES => 256*1024;	# 256k is a big email
 use constant BIG_LINES => BIG_BYTES/65;	# 65 bytes/line is a good approximation
@@ -451,6 +452,7 @@
   mail_open($where) or return;
   # skip too-big mails
   if (! $self->{opt_all} && -s INPUT > BIG_BYTES) {
+    info("archive-iterator: skipping large message\n");
     close INPUT;
     return;
   }
@@ -491,6 +493,7 @@
 
     # skip too-big mails
     if (! $self->{opt_all} && @msg > BIG_LINES) {
+      info("archive-iterator: skipping large message\n");
       close INPUT;
       return;
     }
@@ -525,6 +528,7 @@
 	
     # skip mails that are too big
     if (! $self->{opt_all} && @msg > BIG_LINES) {
+      info("archive-iterator: skipping large message\n");
       close INPUT;
       return;
     }