diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-05-03 07:34:07 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-05-03 07:34:07 +0000 |
| commit | 6d4de1a74a9b4c5d47841666e0682ecceccacbc6 (patch) | |
| tree | c58d9fd51a579f3f14adaf7b7029626178be61e1 /lisp/mail | |
| parent | 82860d5cff5b04431f822b5985ed38212bafca27 (diff) | |
| download | emacs-6d4de1a74a9b4c5d47841666e0682ecceccacbc6.tar.gz | |
(mh-quit): Undo 3/3 change (and the subsequent fix).
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/mh-e.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/mail/mh-e.el b/lisp/mail/mh-e.el index 0a22155a870..cfd323cd5ed 100644 --- a/lisp/mail/mh-e.el +++ b/lisp/mail/mh-e.el @@ -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.18 1998/03/08 00:25:49 rms Exp kwzh $") +(defconst mh-e-RCS-id "$Id: mh-e.el,v 1.19 1998/04/15 06:31:29 kwzh Exp rms $") ;;; Code: @@ -428,7 +428,6 @@ previous refile or write command." (message "Destination: %s" (cdr mh-last-destination)))) (mh-next-msg)) - (defun mh-quit () "Quit the current mh-e folder. Start by running mh-before-quit-hook. Restore the previous window @@ -437,10 +436,9 @@ configuration, if one exists. Finish by running mh-quit-hook." (run-hooks 'mh-before-quit-hook) (mh-update-sequences) (mh-invalidate-show-buffer) - (quit-window) - (and mh-show-buffer - (get-buffer mh-show-buffer) - (bury-buffer mh-show-buffer)) + (bury-buffer (current-buffer)) + (if (get-buffer mh-show-buffer) + (bury-buffer mh-show-buffer)) (if mh-previous-window-config (set-window-configuration mh-previous-window-config)) (run-hooks 'mh-quit-hook)) |