From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 15 May 1996 06:10:56 +0000 (+0000)
Subject: Fix thinko: point was not being moved appropriately when marking
X-Git-Tag: 20090517-FFI~5511
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c6ff45adc15f87a7acbddd393e4b6b13705e5974;p=mit-scheme.git

Fix thinko: point was not being moved appropriately when marking
headers backwards.
---

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