--- trunk/Nos.pm	2005/07/08 11:46:35	66
+++ trunk/Nos.pm	2005/07/08 17:00:20	67
@@ -16,7 +16,7 @@
 our @EXPORT = qw( 
 );
 
-our $VERSION = '0.5';
+our $VERSION = '0.6';
 
 use Class::DBI::Loader;
 use Email::Valid;
@@ -122,13 +122,15 @@
 
 =head2 new_list
 
-Create new list. Required arguments are name of C<list> and
-C<email> address.
+Create new list. Required arguments are name of C<list>, C<email> address
+and path to C<aliases> file.
 
  $nos->new_list(
  	list => 'My list',
 	from => 'Outgoing from comment',
 	email => 'my-list@example.com',
+	aliases => '/etc/mail/mylist',
+	archive => '/path/to/mbox/archive',
  );
 
 Returns ID of newly created list.
@@ -721,6 +723,7 @@
 		warn "aliases file $aliases doesn't exist, creating empty\n";
 		open(my $fh, '>', $aliases) || croak "can't create $aliases: $!";
 		close($fh);
+		chmod 0777, $aliases || warn "can't change permission to 0777";
 	}
 
 	my $a = new Mail::Alias($aliases) || croak "can't open aliases file $aliases: $!";
@@ -900,7 +903,9 @@
 sub NewList {
 	my $self = shift;
 
-	my $aliases = $self->{'aliases'} || croak "Nos::SOAP need 'aliases' argument to new constructor";
+	croak "self is not Nos::SOAP object" unless (ref($self) eq 'Nos::SOAP');
+
+	my $aliases = $self->{'aliases'} || croak "need 'aliases' argument to new constructor";
 
 	if ($_[0] !~ m/^HASH/) {
 		return $nos->new_list(