From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 27 May 1997 19:35:17 +0000 (+0000)
Subject: Fix bug: news server can return #(0 0 0) as server-info for a news
X-Git-Tag: 20090517-FFI~5168
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=87c959a993e23b9d21f15a273bbd4f3808949ab9;p=mit-scheme.git

Fix bug: news server can return #(0 0 0) as server-info for a news
group, indicating that there are no articles on the server.  News
reader was expecting the last two numbers to be article numbers, but
zero is not a valid article number.
---

diff --git a/v7/src/edwin/snr.scm b/v7/src/edwin/snr.scm
index 1c6bceb40..dbfa5bd3a 100644
--- a/v7/src/edwin/snr.scm
+++ b/v7/src/edwin/snr.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: snr.scm,v 1.33 1997/05/27 07:30:31 cph Exp $
+;;;	$Id: snr.scm,v 1.34 1997/05/27 19:35:17 cph Exp $
 ;;;
 ;;;	Copyright (c) 1995-97 Massachusetts Institute of Technology
 ;;;
@@ -4082,7 +4082,8 @@ With prefix arg, replaces the file with the list information."
 (define (news-group:number-of-articles group)
   (let ((estimate (news-group:estimated-n-articles group)))
     (and estimate
-	 (if (news-group:reader-hook group)
+	 (if (and (news-group:reader-hook group)
+		  (news-group:server-has-articles? group))
 	     (let ((n-seen
 		    (count-ranges
 		     (news-group:guarantee-ranges-deleted group))))