From e598f1c6ee5ceb50b2bee5e8b1f763e230fd4591 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 3 May 1996 19:55:46 +0000 Subject: [PATCH] Fix bug in marking of "ignored" articles from article buffer. --- v7/src/edwin/snr.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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))))))) -- 2.25.1