From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 3 May 1996 19:55:46 +0000 (+0000)
Subject: Fix bug in marking of "ignored" articles from article buffer.
X-Git-Tag: 20090517-FFI~5553
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e598f1c6ee5ceb50b2bee5e8b1f763e230fd4591;p=mit-scheme.git

Fix bug in marking of "ignored" articles from article buffer.
---

diff --git a/v7/src/edwin/snr.scm b/v7/src/edwin/snr.scm
index 541e211bd..f37c0a79b 100644
--- a/v7/src/edwin/snr.scm
+++ b/v7/src/edwin/snr.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: snr.scm,v 1.4 1996/04/24 02:55:06 cph Exp $
+;;;	$Id: snr.scm,v 1.5 1996/05/03 19:55:46 cph Exp $
 ;;;
 ;;;	Copyright (c) 1995-96 Massachusetts Institute of Technology
 ;;;
@@ -2310,8 +2310,10 @@ Kill the current buffer in either case."
 
 (define (news-article-header-action-command select-next action)
   (let ((buffer (current-buffer)))
-    (let ((group-buffer (buffer-tree:parent buffer #t)))
-      (let loop ((header (news-article-buffer:header buffer)))
+    (let ((group-buffer (buffer-tree:parent buffer #t))
+	  (header (news-article-buffer:header buffer)))
+      (if action (action group-buffer header))
+      (let loop ((header header))
 	(let ((header (select-next group-buffer header)))
 	  (if (not header)
 	      (begin
@@ -2322,7 +2324,6 @@ Kill the current buffer in either case."
 			 (make-news-article-buffer group-buffer header))))
 		(if article-buffer
 		    (begin
-		      (if action (action group-buffer header))
 		      (news-group-buffer:move-to-header group-buffer header)
 		      (select-buffer article-buffer))
 		    (loop header)))))))