From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 14 Jun 1997 07:34:04 +0000 (+0000)
Subject: Fix bug that could cause SEGV when downloading article bodies.
X-Git-Tag: 20090517-FFI~5140
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7fdaaf062f2135d687a7d39f18e6d66b43c3bd5b;p=mit-scheme.git

Fix bug that could cause SEGV when downloading article bodies.
---

diff --git a/v7/src/edwin/snr.scm b/v7/src/edwin/snr.scm
index dbfa5bd3a..dc16aa224 100644
--- a/v7/src/edwin/snr.scm
+++ b/v7/src/edwin/snr.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: snr.scm,v 1.34 1997/05/27 19:35:17 cph Exp $
+;;;	$Id: snr.scm,v 1.35 1997/06/14 07:34:04 cph Exp $
 ;;;
 ;;;	Copyright (c) 1995-97 Massachusetts Institute of Technology
 ;;;
@@ -1953,12 +1953,14 @@ Subsequent reading of the message bodies can be done offline."
 	   (n 1 (fix:+ n 1)))
 	  ((null? headers))
 	(let ((header (car headers)))
-	  (message
-	   (string-append "Reading article "
-			  (number->string n)
-			  " of "
-			  (number->string n-articles)))
-	  (news-header:read-marked-body header buffer)))
+	  (if (news-header? header)
+	      (begin
+		(message
+		 (string-append "Reading article "
+				(number->string n)
+				" of "
+				(number->string n-articles)))
+		(news-header:read-marked-body header buffer)))))
       (cond ((news-group-buffer? buffer)
 	     (news-group:close-database (news-group-buffer:group buffer)))
 	    ((news-server-buffer? buffer)