diff -r 5c55c8f7986a -r a8bab3a3ec80 account.pm
--- a/account.pm	Fri Nov 04 06:32:23 2005 +0000
+++ b/account.pm	Mon Nov 07 09:47:30 2005 +0000
@@ -226,7 +226,8 @@
 
 	if (defined $Cf->group) {
 	    my @g = split /,/, $Cf->group;
-	    grep { /^[+-]/ } @g or $e->delete(AT_GROUP);
+	    grep { /^[+-]/ } @g or $e->delete(AT_GROUP)
+		if $e->get_value(AT_GROUP);
 
 	    foreach my $g (@g) {
 		if ($g =~ s/^-//) {
@@ -381,7 +382,7 @@
 
 	print "\tPassword: ", $> == 0 ? $e->get_value("userPassword") : "*", "\n";
 	
-	print  wrap("\t", "\t\t", "Local Adresses: $ml\n") if $ml;
+	print  wrap("\t", "\t\t", "Other Adresses: $ml\n") if $ml;
 	print wrap("\t", "\t\t", "Mail Groups: $mg\n") if $mg;
 
     }