Handle files in $maildir/spam (from new mdeliver processor).

diff --git a/minc b/minc
index eba819f..fbeba15 100755 (executable)
--- a/minc
+++ b/minc
@@ -743,6 +743,34 @@ sub update_dot_folders {
     build_dot_folders($folders, $fh);
 }
 
     build_dot_folders($folders, $fh);
 }
 

+# XXX Could use some unification with getfiles...
+sub maildir_spam {
+    my $dir = "$MAILDIR/spam";
+
+    if (not chdir($dir)) {
+        print(STDERR "skipping maildir spam: chdir($dir): $!\n");
+        return;
+    }
+
+    if (not opendir(DIR, '.')) {
+        print(STDERR "skipping maildir spam: opendir($dir): $!\n");
+        return;
+    }
+
+    $! = 0;
+    my @spams = readdir(DIR);
+    if ($! != 0) {
+        print(STDERR "skipping maildir spam: readdir($dir): $!\n");
+    }
+
+    closedir(DIR);
+
+    for my $msg (@spams) {
+        ($msg eq '.' or $msg eq '..') and next;
+        store_message($msg, 'SPAM');
+    }
+}
+

 \f
 MAIN: {
     my $st;
 \f
 MAIN: {
     my $st;


@@ -769,6 +797,8 @@ MAIN: {
 
     $run and update_dot_folders(\%folders);
 
 
     $run and update_dot_folders(\%folders);
 

+    maildir_spam();
+

     @SPAM and (exec('scan', '+SPAM', @SPAM) or die);
 }
 
     @SPAM and (exec('scan', '+SPAM', @SPAM) or die);
 }