X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Funcatchup.pl;fp=cmd%2Funcatchup.pl;h=4046107141c2e6a6e225eb9be7f0fbb341972d7e;hb=e5581689d790a1afd6ba0d83dc3bc36fc0e0f885;hp=4f7808d728f322f957e732af3ef24d1ba39f2643;hpb=15a742ea0f1983282fdff272a362555afbdb99ad;p=spider.git

diff --git a/cmd/uncatchup.pl b/cmd/uncatchup.pl
index 4f7808d7..40461071 100644
--- a/cmd/uncatchup.pl
+++ b/cmd/uncatchup.pl
@@ -28,13 +28,19 @@ foreach my $msgno (@f) {
 	if ($msgno =~ /^al/oi) {
 		@ref = DXMsg::get_all();
 		last;
+	} elsif (my ($f, $t) = $msgno =~ /(\d+)-(\d+)/) {
+		while ($f < $t) {
+			$ref = DXMsg::get($f++);
+			push @ref, $ref if $ref;
+		}
+	} else {
+		$ref = DXMsg::get($msgno);
+		unless ($ref) {
+			push @out, $self->msg('m13', $msgno);
+			next;
+		}
+		push @ref, $ref;
 	}
-	$ref = DXMsg::get($msgno);
-	unless ($ref) {
-		push @out, $self->msg('m13', $msgno);
-		next;
-	}
-	push @ref, $ref;
 }
 
 foreach $ref (@ref) {