From c6ff45adc15f87a7acbddd393e4b6b13705e5974 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 15 May 1996 06:10:56 +0000 Subject: [PATCH] Fix thinko: point was not being moved appropriately when marking headers backwards. --- v7/src/edwin/snr.scm | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/v7/src/edwin/snr.scm b/v7/src/edwin/snr.scm index b7c0bdaa6..1aa4b5796 100644 --- a/v7/src/edwin/snr.scm +++ b/v7/src/edwin/snr.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: snr.scm,v 1.11 1996/05/15 05:51:26 cph Exp $ +;;; $Id: snr.scm,v 1.12 1996/05/15 06:10:56 cph Exp $ ;;; ;;; Copyright (c) 1995-96 Massachusetts Institute of Technology ;;; @@ -1838,9 +1838,10 @@ With prefix argument, unmarks the previous several articles." buffer header news-header:real?))) (lambda (buffer header next n) (procedure buffer header) - (if next - (news-group-buffer:move-to-header buffer - (if (> n 0) next header)))))))) + (news-group-buffer:move-to-header buffer + (if (and next (> n 0)) + next + header))))))) (define (mark/unmark-news-header-line buffer header name) (let ((thread (news-header:thread header))) @@ -1908,9 +1909,10 @@ This unmarks the article indicated by point and any other articles in news-group-buffer:previous-thread (lambda (buffer thread next n) (procedure buffer thread) - (if next - (news-group-buffer:move-to-thread buffer - (if (> n 0) next thread)))))))) + (news-group-buffer:move-to-thread buffer + (if (and next (> n 0)) + next + thread))))))) (define (news-group-buffer:move-to-thread buffer thread) (news-group-buffer:move-to-header -- 2.25.1