Mercurial > emacs
changeset 10784:fdc9df3761d8
(rmail-summary-mail, rmail-summary-continue)
(rmail-summary-reply, rmail-summary-retry-failure)
(rmail-summary-forward, rmail-summary-resend): Switch to rmail
buffer's window first, so mail buffer replaces summary.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 19 Feb 1995 19:11:03 +0000 |
| parents | bb2d929daaa3 |
| children | f3a45c2e57c2 |
| files | lisp/mail/rmailsum.el |
| diffstat | 1 files changed, 25 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el Sun Feb 19 19:08:38 1995 +0000 +++ b/lisp/mail/rmailsum.el Sun Feb 19 19:11:03 1995 +0000 @@ -1184,7 +1184,11 @@ While composing the message, use \\[mail-yank-original] to yank the original message into it." (interactive) - (rmail-start-mail nil nil nil nil nil rmail-buffer) + (let ((window (get-buffer-window rmail-buffer))) + (if window + (select-window window) + (set-buffer rmail-buffer))) + (rmail-start-mail nil nil nil nil nil (current-buffer)) (use-local-map (copy-keymap (current-local-map))) (define-key (current-local-map) "\C-c\C-c" 'rmail-summary-send-and-exit)) @@ -1192,6 +1196,10 @@ (defun rmail-summary-continue () "Continue composing outgoing message previously being composed." (interactive) + (let ((window (get-buffer-window rmail-buffer))) + (if window + (select-window window) + (set-buffer rmail-buffer))) (rmail-start-mail t)) (defun rmail-summary-reply (just-sender) @@ -1200,7 +1208,10 @@ prefix argument means ignore them. While composing the reply, use \\[mail-yank-original] to yank the original message into it." (interactive "P") - (set-buffer rmail-buffer) + (let ((window (get-buffer-window rmail-buffer))) + (if window + (select-window window) + (set-buffer rmail-buffer))) (rmail-reply just-sender) (use-local-map (copy-keymap (current-local-map))) (define-key (current-local-map) @@ -1211,7 +1222,10 @@ For a message rejected by the mail system, extract the interesting headers and the body of the original message; otherwise copy the current message." (interactive) - (set-buffer rmail-buffer) + (let ((window (get-buffer-window rmail-buffer))) + (if window + (select-window window) + (set-buffer rmail-buffer))) (rmail-retry-failure) (use-local-map (copy-keymap (current-local-map))) (define-key (current-local-map) @@ -1228,7 +1242,10 @@ see the documentation of `rmail-resend'." (interactive "P") (save-excursion - (set-buffer rmail-buffer) + (let ((window (get-buffer-window rmail-buffer))) + (if window + (select-window window) + (set-buffer rmail-buffer))) (rmail-forward resend) (use-local-map (copy-keymap (current-local-map))) (define-key (current-local-map) @@ -1238,7 +1255,10 @@ "Resend current message using 'rmail-resend'." (interactive) (save-excursion - (set-buffer rmail-buffer) + (let ((window (get-buffer-window rmail-buffer))) + (if window + (select-window window) + (set-buffer rmail-buffer))) (call-interactively 'rmail-resend))) ;; Summary output commands.