enable newml/rmml updates procmailrc templates

2 files changed, 8 insertions, 4 deletions

diff --git a/fml/lib/FML/Command/Admin/newml.pm b/fml/lib/FML/Command/Admin/newml.pm
index d4febe5c..71af4fe8 100644
--- a/fml/lib/FML/Command/Admin/newml.pm
+++ b/fml/lib/FML/Command/Admin/newml.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: newml.pm,v 1.45 2002/06/25 12:35:31 fukachan Exp $
+# $FML: newml.pm,v 1.46 2002/06/27 08:24:08 fukachan Exp $
 #
 
 package FML::Command::Admin::newml;
@@ -191,6 +191,10 @@ sub _install_template_files
     # 2.2 setup ~fml/.qmail-* (qmail style)
     my $qmail = new FML::MTAControl { mta_type => 'qmail' };
     $qmail->setup($curproc, $params);
+
+    # 2.3
+    my $procmail = new FML::MTAControl { mta_type => 'procmail' };
+    $procmail->setup($curproc, $params);
 }
 
 
@@ -216,7 +220,7 @@ sub _update_aliases
     }
     else {
 	eval q{
-	    for my $mta (qw(postfix qmail)) {
+	    for my $mta (qw(postfix qmail procmail)) {
 		my $optargs = { mta_type => $mta };
 
 		use FML::MTAControl;
diff --git a/fml/lib/FML/Command/Admin/rmml.pm b/fml/lib/FML/Command/Admin/rmml.pm
index 16171ebe..8fe84b35 100644
--- a/fml/lib/FML/Command/Admin/rmml.pm
+++ b/fml/lib/FML/Command/Admin/rmml.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: rmml.pm,v 1.5 2002/06/25 12:36:51 fukachan Exp $
+# $FML: rmml.pm,v 1.6 2002/06/27 08:24:08 fukachan Exp $
 #
 
 package FML::Command::Admin::rmml;
@@ -146,7 +146,7 @@ sub _remove_aliases
     eval q{
 	use FML::MTAControl;
 
-	for my $mta (qw(postfix qmail)) {
+	for my $mta (qw(postfix qmail procmail)) {
 	    my $optargs = { mta_type => $mta };
 	    my $obj = new FML::MTAControl;
 	    $obj->remove_alias($curproc, $params, $optargs);