--- trunk/Estraier.pm	2006/01/26 15:29:20	92
+++ trunk/Estraier.pm	2006/01/28 16:43:45	93
@@ -320,7 +320,8 @@
 	my $draft;
 
 	foreach my $attr_name (sort keys %{ $self->{attrs} }) {
-		$draft .= $attr_name . '=' . $self->{attrs}->{$attr_name} . "\n";
+		next unless(my $v = $self->{attrs}->{$attr_name});
+		$draft .= $attr_name . '=' . $v . "\n";
 	}
 
 	if ($self->{kwords}) {