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

while i'm here, allow incorporating mail if .mincfilter doesn't exist.

diff --git a/minc b/minc
index 8a0a776..18b33d5 100755 (executable)
--- a/minc
+++ b/minc
@@ -181,7 +181,6 @@ marked unseen.
 =cut
 
 our @FILTERS;
 =cut
 
 our @FILTERS;

-require "$HOME/.mincfilter";

 
 my $mh;
 my $logfile;
 
 my $mh;
 my $logfile;


@@ -548,6 +547,10 @@ sub filter_mail {
         eval "sub spam_check { return 0; }";
     }
 
         eval "sub spam_check { return 0; }";
     }
 

+    if (-f "$HOME/.mincfilter") {
+        require "$HOME/.mincfilter";
+    }
+

     @baton = spam_start_hook();
 
     foreach $msg (@msglist) {
     @baton = spam_start_hook();
 
     foreach $msg (@msglist) {


@@ -589,6 +592,7 @@ MAIN: {
     my $st;
 
     if ($dumpfilters) {
     my $st;
 
     if ($dumpfilters) {

+        require "$HOME/.mincfilter";

         $Data::Dumper::Indent = 1;
         print(Dumper(\@FILTERS));
         exit;
         $Data::Dumper::Indent = 1;
         print(Dumper(\@FILTERS));
         exit;