Fix problem with reply disappearing up its own bottom.

[spider.git] / perl / DXMsg.pm

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index cd3bf74b0f757922abcb78545cd274899d31aa41..598dc7ea4cefd04771d0a19dc226e491c5d22fe9 100644 (file)
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -1092,7 +1092,7 @@ sub do_send_stuff
                                $loc->{reject}++;
                        }
 
-                       if (@{$loc->{lines}}) {
+                       if ($loc->{lines} && @{$loc->{lines}}) {
                                push @{$loc->{lines}}, length($line) > 0 ? $line : " ";
                        } else {
                                # temporarily store any R: lines so that we end up with