From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 22 Nov 1996 21:49:59 +0000 (+0000)
Subject: Don't remove messages from the "seen" list when erasing their
X-Git-Tag: 20090517-FFI~5323
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=62f8dabf028462d12bf48eab98a931786914368d;p=mit-scheme.git

Don't remove messages from the "seen" list when erasing their
"ignored" bit.  The appropriate action will be taken elsewhere.
---

diff --git a/v7/src/edwin/snr.scm b/v7/src/edwin/snr.scm
index 6f249068a..8454df373 100644
--- a/v7/src/edwin/snr.scm
+++ b/v7/src/edwin/snr.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: snr.scm,v 1.18 1996/11/21 19:59:32 cph Exp $
+;;;	$Id: snr.scm,v 1.19 1996/11/22 21:49:59 cph Exp $
 ;;;
 ;;;	Copyright (c) 1995-96 Massachusetts Institute of Technology
 ;;;
@@ -3916,8 +3916,7 @@ With prefix arg, replaces the file with the list information."
 			 (hash-table/remove! table subject)
 			 (news-group:ignored-subjects-modified! group)))))))
 	  (process-group group)
-	  (news-group:process-cross-posts group header process-group))))
-  (news-group:article-unseen! group header buffer))
+	  (news-group:process-cross-posts group header process-group)))))
 
 (define (news-group:process-cross-posts group header process-group)
   (for-each (let ((connection (news-group:connection group)))