From 26f22adac284f8a5ccca7108fc00e433d868c1b4 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 30 Mar 1997 06:26:45 +0000
Subject: [PATCH] Eliminate error that would occur when updating news groups
 while any groups list other than the subscribed-groups list was being shown
 in a buffer.

---
 v7/src/edwin/snr.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/v7/src/edwin/snr.scm b/v7/src/edwin/snr.scm
index cba1333ed..7e9a90cca 100644
--- a/v7/src/edwin/snr.scm
+++ b/v7/src/edwin/snr.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: snr.scm,v 1.28 1997/03/04 06:43:40 cph Exp $
+;;;	$Id: snr.scm,v 1.29 1997/03/30 06:26:45 cph Exp $
 ;;;
 ;;;	Copyright (c) 1995-97 Massachusetts Institute of Technology
 ;;;
@@ -992,9 +992,9 @@ This shows News groups that have been created since the last time that
 	      (not (news-server-buffer:listed-group? buffer group)))))))))
 
 (define (ang-buffer:update-group buffer group)
-  (ang-buffer:replace-group-line buffer
-				 group
-				 (ang-buffer:group-mark buffer group #t)))
+  (let ((mark (ang-buffer:group-mark buffer group #f)))
+    (if mark
+	(ang-buffer:replace-group-line buffer group mark))))
 
 (define (ang-buffer:insert-group-line buffer name)
   (let ((group (name->news-group buffer name)))
-- 
2.25.1