white space cosmetics.

fix copyright.

3 files changed, 26 insertions, 26 deletions

diff --git a/fml/lib/Mail/Delivery/Queue.pm b/fml/lib/Mail/Delivery/Queue.pm
index 49e85f80..3474d175 100644
--- a/fml/lib/Mail/Delivery/Queue.pm
+++ b/fml/lib/Mail/Delivery/Queue.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003,2004,2005,2006 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Queue.pm,v 1.54 2005/08/19 12:17:12 fukachan Exp $
+# $FML: Queue.pm,v 1.55 2005/12/18 11:39:37 fukachan Exp $
 #
 
 package Mail::Delivery::Queue;
@@ -121,7 +121,7 @@ sub new
     my $files  = [];
     push(@$files, $qf_new);
     $me->{ _cleanup_files } = $files;
-    
+
 
     return bless $me, $type;
 }
@@ -154,7 +154,7 @@ sub _new_queue_id
     $Counter++;
     my $id = sprintf("%d.%d.%d", time, $$, $Counter);
 
-    eval q{ 
+    eval q{
 	use Time::HiRes qw(usleep gettimeofday);
 	($seconds, $microseconds) = gettimeofday;
     };
@@ -320,7 +320,7 @@ sub _list_ordered_by_policy
 	# create hash { TIME_SLICE => [ qid1,  qid2,  ... ] }
 	$queue_hash = {};
 	for my $q (@$list) {
-	    if ($q =~ /^(\d+)/o) { 
+	    if ($q =~ /^(\d+)/o) {
 		my $t = int( $1 / 87400 );
 		$qlist = $queue_hash->{ $t } || [];
 		push(@$qlist, $q);
@@ -400,7 +400,7 @@ sub update_schedule
     my $id          = $policy_args->{ queue_id } || $self->id();
     my $qf_deferred = $self->deferred_file_path($id);
 
-    # get hints. 
+    # get hints.
     my $hints = $self->_update_schedule_info($id);
     my $sleep = $hints->{ sleep } || 300;
     my $time  = time + $sleep;
@@ -463,7 +463,7 @@ sub sleep_queue
 }
 
 
-# Descriptions: change mode. 
+# Descriptions: change mode.
 #               move active queue to deferred one, vice versa.
 #    Arguments: OBJ($self) STR($id) STR($to_mode)
 # Side Effects: update queue.
@@ -477,7 +477,7 @@ sub _change_queue_mode
     if ($self->lock()) {
 	my $qf_deferred = $self->deferred_file_path($id);
 	my $qf_active   = $self->active_file_path($id);
-	my $qstr_args   = { 
+	my $qstr_args   = {
 	    queue_id    => $id,
 	};
 
@@ -636,7 +636,7 @@ sub last_modified_time
     use File::stat;
     for my $class (@class_list, @local_class_list) {
         my $fp    = sprintf("%s_file_path", $class);
-        my $file  = $self->can($fp) ? $self->$fp($id) : 
+        my $file  = $self->can($fp) ? $self->$fp($id) :
 	    $self->local_file_path($class, $id);
 
 	if (-f $file) {
@@ -980,7 +980,7 @@ sub remove
     my $removed = 0;
     for my $class (@class_list, @local_class_list) {
         my $fp = sprintf("%s_file_path", $class);
-        my $f  = $self->can($fp) ? $self->$fp($id) : 
+        my $f  = $self->can($fp) ? $self->$fp($id) :
 	    $self->local_file_path($class, $id);
 
 	if (-f $f) {
@@ -1039,13 +1039,13 @@ sub is_valid_queue
     my $qf_deferred   = $self->deferred_file_path($id);
     my $qf_sender     = $self->sender_file_path($id);
     my $qf_recipients = $self->recipients_file_path($id);
-    
+
     for my $f ($qf_sender, $qf_recipients) {
 	$ok++ if -f $f && -s $f;
     }
 
     # XXX You need lock() before calling is_valid_*_queue() method.
-    # 
+    #
     # if "-s $qf_active ; rename() in some other process; -s $qf_deferred"
     # operation is done, this check fails.
     # make this check more robust, check again.
@@ -1152,7 +1152,7 @@ sub close
 {
     my ($self, $class) = @_;
     my $channel = $self->{ "_${class}_channel" } || undef;
-    
+
     if (defined $channel) {
 	close($channel);
     }
@@ -1605,7 +1605,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003,2004,2005,2006 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/Mail/Message.pm b/fml/lib/Mail/Message.pm
index 2cd47a62..a287c3f3 100644
--- a/fml/lib/Mail/Message.pm
+++ b/fml/lib/Mail/Message.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003,2004,2005,2006 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Message.pm,v 1.102 2005/09/02 09:12:17 fukachan Exp $
+# $FML: Message.pm,v 1.103 2005/09/11 13:12:45 fukachan Exp $
 #
 
 package Mail::Message;
@@ -719,7 +719,7 @@ sub __build_simple_message
 	my $my_charset = $self->charset();
 	my $charset    = $data->{ charset } || 'unknown';
 	my $type       = $data->{ type }    || 'unknown';
-	my $buf        = $data->{ data }    || ''; 
+	my $buf        = $data->{ data }    || '';
 
 	$my_charset =~ tr/A-Z/a-z/;
 	$charset    =~ tr/A-Z/a-z/;
@@ -2868,7 +2868,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003,2004,2005,2006 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/Mail/Message/DB.pm b/fml/lib/Mail/Message/DB.pm
index e4e2a0d6..84d177e6 100644
--- a/fml/lib/Mail/Message/DB.pm
+++ b/fml/lib/Mail/Message/DB.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2003,2004,2005 Ken'ichi Fukamachi
+#  Copyright (C) 2003,2004,2005,2006 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: DB.pm,v 1.26 2005/08/27 14:47:00 fukachan Exp $
+# $FML: DB.pm,v 1.27 2005/08/31 03:47:47 fukachan Exp $
 #
 
 package Mail::Message::DB;
@@ -21,7 +21,7 @@ use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD
 use Carp;
 use File::Spec;
 
-my $version = q$FML: DB.pm,v 1.26 2005/08/27 14:47:00 fukachan Exp $;
+my $version = q$FML: DB.pm,v 1.27 2005/08/31 03:47:47 fukachan Exp $;
 if ($version =~ /,v\s+([\d\.]+)\s+/) { $version = $1;}
 
 # special value
@@ -165,7 +165,7 @@ the full mail address such as C<elena@fml.org> since fml8 uses
 different $db_base_dir for each domain.
 
 For example, this module creates/updates the following databases (e.g.
-/$db_base_dir/$db_name/$table.db where $table is 'article', 
+/$db_base_dir/$db_name/$table.db where $table is 'article',
 'message_id', 'sender', et.al.).
 
    /var/spool/ml/@udb@/thread/elena/articles.db
@@ -445,7 +445,7 @@ sub _analyze_thread
     }
 
     # III. if $idp (link to the previous message) found,
-    #      update prev_key (itself to preious) and 
+    #      update prev_key (itself to preious) and
     #      next_key (previous to itself) database.
     if (defined($idp) && $idp && $idp =~ /^\d+$/o) {
 	if ($idp != $current_key) {
@@ -987,7 +987,7 @@ sub _get_time_from_header
 sub open
 {
     my ($self, $args) = @_;
-    $self->_db_open($args);    
+    $self->_db_open($args);
 }
 
 
@@ -998,7 +998,7 @@ sub open
 sub close
 {
     my ($self, $args) = @_;
-    $self->_db_open($args);    
+    $self->_db_open($args);
 }
 
 
@@ -1494,7 +1494,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2003,2004,2005 Ken'ichi Fukamachi
+Copyright (C) 2003,2004,2005,2006 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.