From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 7 Dec 1996 07:32:57 +0000 (+0000)
Subject: Fix thinko in recent change.
X-Git-Tag: 20090517-FFI~5309
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=45986336f3384c1dd7d046539cf4064d4ca8155b;p=mit-scheme.git

Fix thinko in recent change.
---

diff --git a/v7/src/edwin/snr.scm b/v7/src/edwin/snr.scm
index f5bccc174..8ef0c6a19 100644
--- a/v7/src/edwin/snr.scm
+++ b/v7/src/edwin/snr.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: snr.scm,v 1.21 1996/12/07 07:25:31 cph Exp $
+;;;	$Id: snr.scm,v 1.22 1996/12/07 07:32:57 cph Exp $
 ;;;
 ;;;	Copyright (c) 1995-96 Massachusetts Institute of Technology
 ;;;
@@ -1061,10 +1061,11 @@ This shows News groups that have been created since the last time that
 	       (make-news-group-1 connection name #f #f '() '()))))))
 
 (define (ang-buffer:mark-group-name mark)
-  (and (re-match-forward "^[ U] [ 0-9][ 0-9][ 0-9][ 0-9][ 0-9] \\([^ ]+\\)$"
-			 (line-start mark 0)
-			 (line-end mark 0)
-			 #f)
+  (and (re-match-forward
+	"^[ U][ M] [ 0-9][ 0-9][ 0-9][ 0-9][ 0-9] \\([^ ]+\\)$"
+	(line-start mark 0)
+	(line-end mark 0)
+	#f)
        (extract-string (re-match-start 1) (re-match-end 1))))
 
 ;;;; News-Group Buffer