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 dbfa5bd3a4ff12b742ad2855d2a9ba162a246598..dc16aa2244d8ae62a76a3f3617a9db9f53e68c32 100644 (file)
--- 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)