--- deliantra/Deliantra-Client/DC/Protocol.pm 2007/09/01 07:22:21 1.169 +++ deliantra/Deliantra-Client/DC/Protocol.pm 2007/09/01 08:01:08 1.170 @@ -1034,13 +1034,17 @@ # no longer neecssary with TRT servers #$text =~ s/(?<=\S)\n(?=\w)/ /g; - ::message ({ - fg => $fg, - markup => $_, - type => $type, - extra => [@extra], - color_flags => $color - }) for split /\n/, $text; + for (split /\n/, $text) { + ::message ({ + fg => $fg, + markup => $_, + type => $type, + extra => [@extra], + color_flags => $color + }); + + $color &= ~NDI_CLEAR; # only clear once for multiline messages + } $self->{statusbox}->add ($text, group => $text,