# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 889316749 0
# Node ID 60552d83a97fba32fff616686eb7ab0f365c1b78
# Parent  79e564f91938609309abc02cca1bb84f67abab69
(mh-quit): Use quit-window.

diff -r 79e564f91938 -r 60552d83a97f lisp/mail/mh-e.el
--- a/lisp/mail/mh-e.el	Sun Mar 08 00:24:12 1998 +0000
+++ b/lisp/mail/mh-e.el	Sun Mar 08 00:25:49 1998 +0000
@@ -60,7 +60,7 @@
 ;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985.
 ;; Rewritten for GNU Emacs, James Larus 1985.  larus@ginger.berkeley.edu
 ;; Modified by Stephen Gildea 1988.  gildea@lcs.mit.edu
-(defconst mh-e-RCS-id "$Id: mh-e.el,v 1.16 1997/07/23 21:39:50 rms Exp rms $")
+(defconst mh-e-RCS-id "$Id: mh-e.el,v 1.17 1997/09/04 20:25:56 rms Exp rms $")
 
 ;;; Code:
 
@@ -437,7 +437,7 @@
   (run-hooks 'mh-before-quit-hook) 
   (mh-update-sequences)
   (mh-invalidate-show-buffer)
-  (bury-buffer (current-buffer))
+  (quit-window)
   (if (get-buffer mh-show-buffer)
       (bury-buffer mh-show-buffer))
   (if mh-previous-window-config