From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 24 May 2000 23:21:53 +0000 (+0000)
Subject: Reply buffer must refer to the message buffer, not the current buffer.
X-Git-Tag: 20090517-FFI~3685
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=001c725bda59380bc04b1943ac4982052fadee69;p=mit-scheme.git

Reply buffer must refer to the message buffer, not the current buffer.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 3019845e1..e1acc54ca 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.106 2000/05/24 21:43:21 cph Exp $
+;;; $Id: imail-top.scm,v 1.107 2000/05/24 23:21:53 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -1269,10 +1269,9 @@ While composing the reply, use \\[mail-yank-original] to yank the
  original message into it."
   "P"
   (lambda (just-sender?)
-    (let ((buffer (selected-buffer))
-	  (message (selected-message)))
+    (let ((message (selected-message)))
       (make-mail-buffer (imail-reply-headers message (not just-sender?))
-			buffer
+			(chase-imail-buffer (selected-buffer))
 			(lambda (mail-buffer)
 			  (message-answered message)
 			  (select-buffer-other-window mail-buffer))))))