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 6f249068acef7ffa68a7027e1bb4e69a625d433e..8454df3735fb54c1bab277d20ef1548b01b19ca2 100644 (file)
--- 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)))