diff options
author | Richard M. Stallman <[email protected]> | 1993-11-21 22:18:15 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1993-11-21 22:18:15 +0000 |
commit | 3dbb573a0c14f16bc9b3f163179bc794c1fb7ff4 (patch) | |
tree | 3f76ecac03e24e97eff769ff67bfdf787a350b07 /lisp/mail | |
parent | d895abb0ba66684e90d564a705598ee01df3f4d3 (diff) |
(mail-yank-original): Delete windows on selected frame only.
Diffstat (limited to 'lisp/mail')
-rw-r--r-- | lisp/mail/sendmail.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index ddb671bf64..e90d46bb94 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 |