From 001c725bda59380bc04b1943ac4982052fadee69 Mon Sep 17 00:00:00 2001 From: Chris Hanson 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