Deliver to $DEFAULT when default delivery is selected

diff --git a/spam/edit_procmail.cgi b/spam/edit_procmail.cgi
index f790cc8..470b948 100755 (executable)
--- a/spam/edit_procmail.cgi
+++ b/spam/edit_procmail.cgi
@@ -17,6 +17,9 @@ $spamrec = &find_file_recipe(\@recipes);
 if (!$spamrec) {
        $mode = 4;
        }
+elsif ($spamrec->{'action'} eq "\$DEFAULT") {
+       $mode = 4;
+       }
 elsif ($spamrec->{'action'} eq "/dev/null") {
        $mode = 0;
        }

diff --git a/spam/save_procmail.cgi b/spam/save_procmail.cgi
index 405b3d0..a9d3826 100755 (executable)
--- a/spam/save_procmail.cgi
+++ b/spam/save_procmail.cgi
@@ -23,6 +23,9 @@ elsif ($in{'to'} == 3) {
        $in{'mhdir'} =~ /^\S+$/ || &error($text{'setup_emhdir'});
        $file = "$in{'mhdir'}/.";
        }
+elsif ($in{'to'} == 4) {
+       $file = "\$DEFAULT";
+       }
 elsif ($in{'to'} == 5) {
        $in{'email'} =~ /^\S+$/ || &error($text{'setup_eemail'});
        $file = $in{'email'};

diff --git a/spam/setup.cgi b/spam/setup.cgi
index 2c72718..e4232ef 100755 (executable)
--- a/spam/setup.cgi
+++ b/spam/setup.cgi
@@ -24,6 +24,9 @@ elsif ($in{'to'} == 3) {
        $in{'mhdir'} =~ /^\S+$/ || &error($text{'setup_emhdir'});
        $file = "$in{'mhdir'}/.";
        }
+elsif ($in{'to'} == 4) {
+       $file = "\$DEFAULT";
+       }
 elsif ($in{'to'} == 5) {
        $in{'email'} =~ /^\S+$/ || &error($text{'setup_eemail'});
        $file = $in{'email'};