From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 22 Mar 1994 17:08:20 +0000 (+0000)
Subject: Fix bug in M-x rmail-search: when search locates the regexp in a
X-Git-Tag: 20090517-FFI~7220
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=80a613a405192d6927a05bf2590c0abd1f63c1c4;p=mit-scheme.git

Fix bug in M-x rmail-search: when search locates the regexp in a
message that has not yet been selected, the mark yielded by the search
must be made permanent before the message is selected, because
selecting the message changes its attributes, and consequently alters
the amount of text preceding the mark.
---

diff --git a/v7/src/edwin/rmail.scm b/v7/src/edwin/rmail.scm
index 9b76e68fa..31a6a0573 100644
--- a/v7/src/edwin/rmail.scm
+++ b/v7/src/edwin/rmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: rmail.scm,v 1.31 1994/02/21 21:47:46 cph Exp $
+;;;	$Id: rmail.scm,v 1.32 1994/03/22 17:08:20 cph Exp $
 ;;;
 ;;;	Copyright (c) 1991-1993 Massachusetts Institute of Technology
 ;;;
@@ -666,9 +666,10 @@ and reverse search is specified by a negative numeric arg."
 			       (loop memo)))))))))
 	(lambda (memo mark)
 	  (if memo
-	      (begin
+	      (let ((mark (mark-left-inserting-copy mark)))
 		(select-message buffer memo)
 		(set-current-point! mark)
+		(mark-temporary! mark)
 		(message msg "done"))
 	      (editor-failure "Search failed: " regexp)))))))