Mercurial > emacs
comparison lisp/mail/sendmail.el @ 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 | 435032be7b12 |
| children | 4db0922992a3 |
comparison
equal
deleted
inserted
replaced
| 5096:76f878905c65 | 5097:a0a5b39e3d22 |
|---|---|
| 668 Just \\[universal-argument] as argument means don't indent, insert no prefix, | 668 Just \\[universal-argument] as argument means don't indent, insert no prefix, |
| 669 and don't delete any header fields." | 669 and don't delete any header fields." |
| 670 (interactive "P") | 670 (interactive "P") |
| 671 (if mail-reply-buffer | 671 (if mail-reply-buffer |
| 672 (let ((start (point))) | 672 (let ((start (point))) |
| 673 (delete-windows-on mail-reply-buffer) | 673 ;; If the original message is in another window in the same frame, |
| 674 ;; delete that window to save screen space. | |
| 675 ;; t means don't alter other frames. | |
| 676 (delete-windows-on mail-reply-buffer t) | |
| 674 (insert-buffer mail-reply-buffer) | 677 (insert-buffer mail-reply-buffer) |
| 675 (if (consp arg) | 678 (if (consp arg) |
| 676 nil | 679 nil |
| 677 (goto-char start) | 680 (goto-char start) |
| 678 (let ((mail-indentation-spaces (if arg (prefix-numeric-value arg) | 681 (let ((mail-indentation-spaces (if arg (prefix-numeric-value arg) |