From ab898f2f5c60437a7c7f4c22b2296fe0b80d1286 Mon Sep 17 00:00:00 2001
From: Oswald Buddenhagen <ossi@users.sf.net>
Date: Mon, 26 Dec 2005 16:00:04 +0000
Subject: [PATCH] when dumping mailboxes, sort by uid 1st.

---
 src/run-tests.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/run-tests.pl b/src/run-tests.pl
index 2c434e4..fbdb337 100755
--- a/src/run-tests.pl
+++ b/src/run-tests.pl
@@ -323,7 +323,7 @@ sub showbox($$)
 	my ($mu, %ms) = readbox($bn);
 	print " [ $mu,\n   ";
 	my $frst = 1;
-	for my $num (sort {$a <=> $b} keys %ms) {
+	for my $num (sort {my ($ca, $cb) = ($ms{$a}[0], $ms{$b}[0]); ($ca?$ca:$a+1000) <=> ($cb?$cb:$b+1000)} keys %ms) {
 		if ($frst) {
 			$frst = 0;
 		} else {