From 7609dfaa7645a8ec1822e763dd47adb252306a3b Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 7 Dec 1996 07:25:31 +0000
Subject: [PATCH] Fix thinko in recent change.

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

diff --git a/v7/src/edwin/snr.scm b/v7/src/edwin/snr.scm
index 75f1c2c49..f5bccc174 100644
--- a/v7/src/edwin/snr.scm
+++ b/v7/src/edwin/snr.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: snr.scm,v 1.20 1996/11/30 22:17:17 cph Exp $
+;;;	$Id: snr.scm,v 1.21 1996/12/07 07:25:31 cph Exp $
 ;;;
 ;;;	Copyright (c) 1995-96 Massachusetts Institute of Technology
 ;;;
@@ -461,12 +461,13 @@ Only one News reader may be open per server; if a previous News reader
 	(lambda ()
 	  (if (news-group? group)
 	      (values (news-group:subscribed? group)
+		      (news-group:articles-marked? group)
 		      (news-group:number-of-articles group)
 		      (news-group:name group))
-	      (values #f #f group)))
-      (lambda (subscribed? n-articles name)
+	      (values #f #f #f group)))
+      (lambda (subscribed? marked? n-articles name)
 	(insert-char (if subscribed? #\space #\U) mark)
-	(insert-char (if (news-group:articles-marked? group) #\M #\space) mark)
+	(insert-char (if marked? #\M #\space) mark)
 	(insert-char #\space mark)
 	(insert-string-pad-left (if n-articles (number->string n-articles) "")
 				5 #\space mark)
-- 
2.25.1