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).

diff --git a/v7/src/edwin/rmailsrt.scm b/v7/src/edwin/rmailsrt.scm
index ce8e2ac2a870290d703a17e38ad3f75a53bf7828..9fb90887d4d015b823c1a77eeb3fe5ac7467be90 100644 (file)
--- 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)