From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 21 Nov 1993 22:18:15 +0000 (+0000)
Subject: (mail-yank-original): Delete windows on selected frame only.
X-Git-Tag: emacs-19.34~10754
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3dbb573a0c14f16bc9b3f163179bc794c1fb7ff4;p=emacs.git

(mail-yank-original): Delete windows on selected frame only.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index ddb671bf641..e90d46bb949 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -670,7 +670,10 @@ and don't delete any header fields."
   (interactive "P")
   (if mail-reply-buffer
       (let ((start (point)))
-	(delete-windows-on mail-reply-buffer)
+	;; If the original message is in another window in the same frame,
+	;; delete that window to save screen space.
+	;; t means don't alter other frames.
+	(delete-windows-on mail-reply-buffer t)
 	(insert-buffer mail-reply-buffer)
 	(if (consp arg)
 	    nil