release 1.5

[spider.git] / cmd / reply.pl

diff --git a/cmd/reply.pl b/cmd/reply.pl
index c655b50588464f18b47e5614d06b0860d1d29efe..ce9d6916259055df7a8312e89e27cc20c4a16bd3 100644 (file)
--- a/cmd/reply.pl
+++ b/cmd/reply.pl
@@ -67,7 +67,7 @@ if ($self->state eq "prompt") {
   my $to = $oref->from;
   $loc->{to} = [ $to ];       # to is an array
   $loc->{subject} = $oref->subject;
-  $loc->{subject} = "Re: " . $loc->{subject} if !($loc->{subject} =~ /^Re/io); 
+  $loc->{subject} = "Re: " . $loc->{subject} if !($loc->{subject} =~ /^Re:.\s/io); 
 
   # find me and set the state and the function on my state variable to
   # keep calling me for every line until I relinquish control