white space cosmetics

7 files changed, 27 insertions, 27 deletions

diff --git a/fml/lib/FML/Command/Admin/addmember.pm b/fml/lib/FML/Command/Admin/addmember.pm
index f3d2d43c..1dc983b4 100644
--- a/fml/lib/FML/Command/Admin/addmember.pm
+++ b/fml/lib/FML/Command/Admin/addmember.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: addmember.pm,v 1.1 2004/05/01 05:02:04 fukachan Exp $
+# $FML: addmember.pm,v 1.2 2004/06/26 11:47:55 fukachan Exp $
 #
 
 package FML::Command::Admin::addmember;
@@ -113,8 +113,8 @@ sub process
     };
     if ($cred->has_address_in_map($member_map, $config, $address)) {
 	my $r = "already member";
-	$curproc->reply_message_nl('error.already_member', 
-				   $r, 
+	$curproc->reply_message_nl('error.already_member',
+				   $r,
 				   $msg_args);
 	$curproc->logerror($r);
 	croak($r);
diff --git a/fml/lib/FML/Command/Admin/addrecipient.pm b/fml/lib/FML/Command/Admin/addrecipient.pm
index 142777a6..37ffa9eb 100644
--- a/fml/lib/FML/Command/Admin/addrecipient.pm
+++ b/fml/lib/FML/Command/Admin/addrecipient.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: addrecipient.pm,v 1.1 2004/05/01 05:02:04 fukachan Exp $
+# $FML: addrecipient.pm,v 1.2 2004/06/26 11:47:56 fukachan Exp $
 #
 
 package FML::Command::Admin::addrecipient;
@@ -113,8 +113,8 @@ sub process
     };
     if ($cred->has_address_in_map($recipient_map, $config, $address)) {
 	my $r = "already recipient";
-	$curproc->reply_message_nl('error.already_recipient', 
-				   $r, 
+	$curproc->reply_message_nl('error.already_recipient',
+				   $r,
 				   $msg_args);
 	$curproc->logerror($r);
 	croak($r);
diff --git a/fml/lib/FML/Command/Admin/digest.pm b/fml/lib/FML/Command/Admin/digest.pm
index 676fc708..10902f2c 100644
--- a/fml/lib/FML/Command/Admin/digest.pm
+++ b/fml/lib/FML/Command/Admin/digest.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: digest.pm,v 1.20 2004/04/30 13:38:05 fukachan Exp $
+# $FML: digest.pm,v 1.21 2004/06/30 03:05:13 fukachan Exp $
 #
 
 package FML::Command::Admin::digest;
@@ -175,7 +175,7 @@ sub _digest_on
     };
 
     my $msg_args = {
-	_arg_address => $address,	
+	_arg_address => $address,
     };
 
     # 1. remove address from $recipient_map (normal delivery recipients).
@@ -193,8 +193,8 @@ sub _digest_on
     # 2. add address into $digest_recipient_map
     if ($cred->has_address_in_map($digest_recipient_map, $config, $address)) {
 	my $r = "already digest recipient";
-	$curproc->reply_message_nl('error.already_digest_recipient', 
-				   $r, 
+	$curproc->reply_message_nl('error.already_digest_recipient',
+				   $r,
 				   $msg_args);
 	$curproc->logerror($r);
 	croak($r);
@@ -233,7 +233,7 @@ sub _digest_off
     };
 
     my $msg_args = {
-	_arg_address => $address,	
+	_arg_address => $address,
     };
 
     # 1. remove address from digest_recipient_map.
@@ -243,8 +243,8 @@ sub _digest_off
     }
     else {
 	my $r = "no such digest recipient";
-	$curproc->reply_message_nl('error.no_such_digest_recipient', 
-				   $r, 
+	$curproc->reply_message_nl('error.no_such_digest_recipient',
+				   $r,
 				   $msg_args);
 	$curproc->logerror($r);
 	croak($r);
@@ -253,8 +253,8 @@ sub _digest_off
     # 2. add address into normal recipient map.
     if ($cred->has_address_in_map($recipient_map, $config, $address)) {
 	my $r = "already recipient";
-	$curproc->reply_message_nl('error.already_recipient', 
-				   $r, 
+	$curproc->reply_message_nl('error.already_recipient',
+				   $r,
 				   $msg_args);
 	$curproc->logerror($r);
 	croak($r);
diff --git a/fml/lib/FML/Command/Admin/dir.pm b/fml/lib/FML/Command/Admin/dir.pm
index 6e5cc334..d9ac2361 100644
--- a/fml/lib/FML/Command/Admin/dir.pm
+++ b/fml/lib/FML/Command/Admin/dir.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: dir.pm,v 1.17 2004/06/24 11:31:25 fukachan Exp $
+# $FML: dir.pm,v 1.18 2004/06/26 11:47:56 fukachan Exp $
 #
 
 package FML::Command::Admin::dir;
@@ -89,8 +89,8 @@ sub process
     if (@argv) {
 	my $buf = join(" ", @argv);
 	my $rm_args = { _arg_argv => $buf };
-	$curproc->reply_message_nl("error.ignore", 
-				   "\"buf\" ignored.", 
+	$curproc->reply_message_nl("error.ignore",
+				   "\"buf\" ignored.",
 				   $rm_args);
     }
 
diff --git a/fml/lib/FML/Command/Admin/error.pm b/fml/lib/FML/Command/Admin/error.pm
index 769ce0ed..d077f283 100644
--- a/fml/lib/FML/Command/Admin/error.pm
+++ b/fml/lib/FML/Command/Admin/error.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: error.pm,v 1.13 2004/05/22 06:19:51 fukachan Exp $
+# $FML: error.pm,v 1.14 2004/06/26 11:47:56 fukachan Exp $
 #
 
 package FML::Command::Admin::error;
@@ -82,7 +82,7 @@ sub _fmlerror
 {
     my ($self, $curproc) = @_;
     my $config      = $curproc->config();
-    my $select_list = 
+    my $select_list =
 	$config->get_as_array_ref('error_mail_analyzer_function_select_list');
 
     use FML::Error;
@@ -92,7 +92,7 @@ sub _fmlerror
     my $option = $curproc->cui_command_specific_options() || {};
     if (defined $option->{ algorithm } && $option->{ algorithm }) {
 	my $fp = $option->{ algorithm };
-	if ($config->has_attribute('error_mail_analyzer_function_select_list', 
+	if ($config->has_attribute('error_mail_analyzer_function_select_list',
 				   $fp)) {
 	    $self->_run_analyzer($curproc, $error, $fp);
 	}
diff --git a/fml/lib/FML/Command/Admin/off.pm b/fml/lib/FML/Command/Admin/off.pm
index a6894fd5..f04ecf19 100644
--- a/fml/lib/FML/Command/Admin/off.pm
+++ b/fml/lib/FML/Command/Admin/off.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: off.pm,v 1.19 2004/04/30 13:38:05 fukachan Exp $
+# $FML: off.pm,v 1.20 2004/06/29 10:02:42 fukachan Exp $
 #
 
 package FML::Command::Admin::off;
@@ -116,7 +116,7 @@ sub process
 	unless ($cred->has_address_in_map($member_map, $config, $address)) {
 	    my $r = "no such member";
 	    $curproc->reply_message_nl('error.no_such_member',
-				       $r, 
+				       $r,
 				       $msg_args);
 	    $curproc->logerror($r);
 	    croak($r);
diff --git a/fml/lib/FML/Command/Admin/on.pm b/fml/lib/FML/Command/Admin/on.pm
index 9ad65ae9..1df3121f 100644
--- a/fml/lib/FML/Command/Admin/on.pm
+++ b/fml/lib/FML/Command/Admin/on.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: on.pm,v 1.19 2004/04/30 13:38:05 fukachan Exp $
+# $FML: on.pm,v 1.20 2004/06/30 03:05:13 fukachan Exp $
 #
 
 package FML::Command::Admin::on;
@@ -117,7 +117,7 @@ sub process
 	unless ($cred->has_address_in_map($member_map, $config, $address)) {
 	    my $r = "no such member";
 	    $curproc->reply_message_nl('error.no_such_member',
-				       $r, 
+				       $r,
 				       $msg_args);
 	    $curproc->logerror($r);
 	    croak($r);
@@ -125,8 +125,8 @@ sub process
 
 	if ($cred->has_address_in_map($recipient_map, $config, $address)) {
 	    my $r = "already recipient";
-	    $curproc->reply_message_nl('error.already_recipient', 
-				       $r, 
+	    $curproc->reply_message_nl('error.already_recipient',
+				       $r,
 				       $msg_args);
 	    $curproc->logerror($r);
 	    croak($r);