From 279fcc9e37d543434ddba333dbc9fdb2d01a0821 Mon Sep 17 00:00:00 2001
From: "Brian A. LaMacchia" <edu/mit/csail/zurich/bal>
Date: Tue, 26 Nov 1991 21:18:56 +0000
Subject: [PATCH] Arthur ran into a problem where kill-string seemed to be
 hanging. Since kill-string wasn't necessary, it was changed to delete-string
 (the kill ring would never be used).

---
 v7/src/edwin/rmailsrt.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/rmailsrt.scm b/v7/src/edwin/rmailsrt.scm
index ce8e2ac2a..9fb90887d 100644
--- a/v7/src/edwin/rmailsrt.scm
+++ b/v7/src/edwin/rmailsrt.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsrt.scm,v 1.5 1991/11/04 19:40:43 bal Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsrt.scm,v 1.6 1991/11/26 21:18:56 bal Exp $
 ;;;
 ;;;	Copyright (c) 1991 Massachusetts Institute of Technology
 ;;;
@@ -154,7 +154,7 @@ If prefix argument REVERSE is non-nil, sort them in reverse order."
 	       (cmpfunc (car x) (car y))))
       (message "Reordering buffer...")
       (set-buffer-writeable! (current-buffer))
-      (kill-string
+      (delete-string
        (msg-memo/start (msg-memo/first (current-msg-memo)))
        (msg-memo/end (msg-memo/last (current-msg-memo))))
       (let loop ((n 0)
-- 
2.25.1