# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 890027891 0
# Node ID f985cd03f38c7fe85c9037123496f419ee15876a
# Parent  b4e925500a713791668210be27300a7ade193c01
(rmail-quit): Call quit-window before calling
replace-buffer-in-windows to assure that we can switch the rmail
buffer of the selected window.

diff -r b4e925500a71 -r f985cd03f38c lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Mon Mar 16 05:51:07 1998 +0000
+++ b/lisp/mail/rmail.el	Mon Mar 16 05:58:11 1998 +0000
@@ -966,8 +966,8 @@
     (replace-buffer-in-windows rmail-summary-buffer)
     (bury-buffer rmail-summary-buffer))
   (let ((obuf (current-buffer)))
-    (replace-buffer-in-windows obuf)
-    (quit-window)))
+    (quit-window)
+    (replace-buffer-in-windows obuf)))
 
 (defun rmail-bury ()
   "Bury current Rmail buffer and its summary buffer."