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

1 files changed, 4 insertions, 1 deletions

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