More evil optimization. Don't load .mincfilter until it's needed, and

[minc] / minc

diff --git a/minc b/minc
index 8a0a776..18b33d5 100755 (executable)
--- a/minc
+++ b/minc
@@ -181,7 +181,6 @@ marked unseen.
 =cut
 
 our @FILTERS;
-require "$HOME/.mincfilter";
 
 my $mh;
 my $logfile;
@@ -548,6 +547,10 @@ sub filter_mail {
         eval "sub spam_check { return 0; }";
     }
 
+    if (-f "$HOME/.mincfilter") {
+        require "$HOME/.mincfilter";
+    }
+
     @baton = spam_start_hook();
 
     foreach $msg (@msglist) {
@@ -589,6 +592,7 @@ MAIN: {
     my $st;
 
     if ($dumpfilters) {
+        require "$HOME/.mincfilter";
         $Data::Dumper::Indent = 1;
         print(Dumper(\@FILTERS));
         exit;