changeset 5097:a0a5b39e3d22

(mail-yank-original): Delete windows on selected frame only.
author Richard M. Stallman <rms@gnu.org>
date Sun, 21 Nov 1993 22:18:15 +0000
parents 76f878905c65
children a770e7708711
files lisp/mail/sendmail.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Sun Nov 21 22:15:04 1993 +0000
+++ b/lisp/mail/sendmail.el	Sun Nov 21 22:18:15 1993 +0000
@@ -670,7 +670,10 @@
   (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