From 03f4ede0753afee9da8e3b78779ddeeef44edea1 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 8 Jun 2000 21:07:28 +0000
Subject: [PATCH] Don't allow user to edit resent mail.

---
 v7/src/imail/imail-top.scm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index b5fdda6b4..47a437dc6 100644
--- a/v7/src/imail/imail-top.scm
+++ b/v7/src/imail/imail-top.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-top.scm,v 1.144 2000/06/08 20:48:40 cph Exp $
+;;; $Id: imail-top.scm,v 1.145 2000/06/08 21:07:28 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -1809,9 +1809,7 @@ ADDRESSES is a string consisting of several addresses separated by commas."
 	 (with-buffer-point-preserved mail-buffer
 	   (lambda ()
 	     (insert-string (message-body message) (buffer-end mail-buffer))))
-	 (if (window-has-no-neighbors? (current-window))
-	     (select-buffer mail-buffer)
-	     (select-buffer-other-window mail-buffer))
+	 (with-selected-buffer mail-buffer (ref-command mail-send))
 	 (message-resent message))))))
 
 (define-command imail-reply
-- 
2.25.1