From: Brian A. LaMacchia <edu/mit/csail/zurich/bal>
Date: Mon, 10 Feb 1992 15:02:57 +0000 (+0000)
Subject: Set region to include only message being viewed.
X-Git-Tag: 20090517-FFI~9817
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=446fe122d148f0dbc4bb3c7c8ccde8ec9a7f460e;p=mit-scheme.git

Set region to include only message being viewed.
---

diff --git a/v7/src/edwin/rmail.scm b/v7/src/edwin/rmail.scm
index b8be7b834..091b280fb 100644
--- a/v7/src/edwin/rmail.scm
+++ b/v7/src/edwin/rmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmail.scm,v 1.14 1992/02/04 04:03:57 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmail.scm,v 1.15 1992/02/10 15:02:57 bal Exp $
 ;;;
 ;;;	Copyright (c) 1991-92 Massachusetts Institute of Technology
 ;;;
@@ -704,7 +704,8 @@ and reverse search is specified by a negative numeric arg."
       (update-mode-line! buffer)
       (let ((start (re-search-forward babyl-eooh-regexp start end false)))
 	(narrow-to-region start (mark-1+ end))
-	(set-buffer-point! buffer start)))))
+	(set-buffer-point! buffer start))
+	(set-buffer-mark! buffer (mark-1+ end)))))
 
 (define (update-mode-line! buffer)
   (define-variable-local-value! buffer (ref-variable-object mode-line-process)