From 36bd2cf34476999d513a1ca60f6ee6c5204c3132 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Tue, 2 Oct 2001 16:15:28 +0000
Subject: [PATCH] adjustments ...

---
 cmd/stat/msg.pl | 4 ++--
 perl/DXMsg.pm   | 1 +
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/cmd/stat/msg.pl b/cmd/stat/msg.pl
index dfacd062..715c8667 100644
--- a/cmd/stat/msg.pl
+++ b/cmd/stat/msg.pl
@@ -13,9 +13,9 @@ return (1, $self->msg('e5')) if $self->priv < 1;
 if (@list == 0) {
 	my $ref;
 	push @out, "Work Queue Keys";
-	push @out, map { " $_" } sort DXMsg::get_all_fwq();
+	push @out, map { " $_" } sort (DXMsg::get_all_fwq());
 	push @out, "Busy Queue Data";
-	foreach my $key (sort DXMsg::get_all_busy()) {
+	foreach my $key (sort (DXMsg::get_all_busy())) {
 		$ref = DXMsg::get_busy($key);
 		if ($ref) {
 			my $msgno = $ref->msgno;
diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index f66f98d7..e66c1336 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -1187,6 +1187,7 @@ sub import_msgs
 		my @out = import_one($main::me, \@msg, $splitit);
 		Log('msg', @out);
 	}
+	queue_msg(0);
 }
 
 # import one message as a list in bbs (as extended) mode
-- 
2.43.0