Fix problem with reply disappearing up its own bottom.

diff --git a/Changes b/Changes
index 70f3e93ad6080312d0319442e0a39bf48c5624e9..45c754f3bf5bda910564bfbab5d7ffe94dab5661 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 07Nov01=======================================================================
 1. fix is_pctext so that it actually catches corrupt spots and announces.
 2. fix console.pl so that you can type in '0' again
+3. Fix problem with reply disappearing up its own bottom.
 06Nov01=======================================================================
 1. fix read so that sysop reading doesn't increment the read counter for 
 private mail not addressed to them.

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