--- trunk/Estraier.pm	2006/01/04 15:28:39	9
+++ trunk/Estraier.pm	2006/01/04 19:28:30	12
@@ -181,8 +181,21 @@
 
 sub texts {
 	my $self = shift;
-	confess "attr_names return array, not scalar" if (! wantarray);
-	return $self->{dtexts};
+	confess "texts return array, not scalar" if (! wantarray);
+	return @{ $self->{dtexts} };
+}
+
+=head2 cat_texts
+
+Return whole text as single scalar.
+
+ my $text = $doc->cat_texts;
+
+=cut
+
+sub cat_texts {
+	my $self = shift;
+	return join(' ',@{ $self->{dtexts} });
 }
 
 =head2 dump_draft
@@ -210,6 +223,8 @@
 		delete($self->{$data});
 	}
 
+	$self->{id} = -1;
+
 	return 1;
 }