--- trunk/Estraier.pm	2006/01/06 01:36:09	45
+++ trunk/Estraier.pm	2006/01/06 01:51:28	47
@@ -818,7 +818,7 @@
 sub put_doc {
 	my $self = shift;
 	my $doc = shift || return;
-	return unless ($self->{url});
+	return unless ($self->{url} && $doc->isa('Search::Estraier::Document'));
 	$self->shuttle_url( $self->{url} . '/put_doc',
 		'text/x-estraier-draft',
 		$doc->dump_draft,
@@ -885,7 +885,7 @@
 sub edit_doc {
 	my $self = shift;
 	my $doc = shift || return;
-	return unless ($self->{url});
+	return unless ($self->{url} && $doc->isa('Search::Estraier::Document'));
 	$self->shuttle_url( $self->{url} . '/edit_doc',
 		'text/x-estraier-draft',
 		$doc->dump_draft,