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

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

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
-- 
2.25.1