diff options
| -rw-r--r-- | lisp/mail/mh-e.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/mh-e.el b/lisp/mail/mh-e.el index 7400b78f9fd..c6fa468f4f1 100644 --- a/lisp/mail/mh-e.el +++ b/lisp/mail/mh-e.el | |||
| @@ -60,7 +60,7 @@ | |||
| 60 | ;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985. | 60 | ;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985. |
| 61 | ;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu | 61 | ;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu |
| 62 | ;; Modified by Stephen Gildea 1988. gildea@lcs.mit.edu | 62 | ;; Modified by Stephen Gildea 1988. gildea@lcs.mit.edu |
| 63 | (defconst mh-e-RCS-id "$Id: mh-e.el,v 1.16 1997/07/23 21:39:50 rms Exp rms $") | 63 | (defconst mh-e-RCS-id "$Id: mh-e.el,v 1.17 1997/09/04 20:25:56 rms Exp rms $") |
| 64 | 64 | ||
| 65 | ;;; Code: | 65 | ;;; Code: |
| 66 | 66 | ||
| @@ -437,7 +437,7 @@ configuration, if one exists. Finish by running mh-quit-hook." | |||
| 437 | (run-hooks 'mh-before-quit-hook) | 437 | (run-hooks 'mh-before-quit-hook) |
| 438 | (mh-update-sequences) | 438 | (mh-update-sequences) |
| 439 | (mh-invalidate-show-buffer) | 439 | (mh-invalidate-show-buffer) |
| 440 | (bury-buffer (current-buffer)) | 440 | (quit-window) |
| 441 | (if (get-buffer mh-show-buffer) | 441 | (if (get-buffer mh-show-buffer) |
| 442 | (bury-buffer mh-show-buffer)) | 442 | (bury-buffer mh-show-buffer)) |
| 443 | (if mh-previous-window-config | 443 | (if mh-previous-window-config |