From 001c725bda59380bc04b1943ac4982052fadee69 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 24 May 2000 23:21:53 +0000
Subject: [PATCH] Reply buffer must refer to the message buffer, not the
current buffer.
---
v7/src/imail/imail-top.scm | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
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))))))
--
2.25.1