# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 793221063 0
# Node ID fdc9df3761d863c1940fbf030bf90a05038f76c9
# Parent  bb2d929daaa380f74ceddb819f1f466d211c874c
(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.

diff -r bb2d929daaa3 -r fdc9df3761d8 lisp/mail/rmailsum.el
--- 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.