Mercurial > emacs
diff lisp/mail/mh-e.el @ 21546:674be6359675
(mh-quit): mh-show-buffer can be nil.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Wed, 15 Apr 1998 06:31:29 +0000 |
parents | 60552d83a97f |
children | 714591991067 |
line wrap: on
line diff
--- a/lisp/mail/mh-e.el Wed Apr 15 06:30:16 1998 +0000 +++ b/lisp/mail/mh-e.el Wed Apr 15 06:31:29 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.17 1997/09/04 20:25:56 rms Exp rms $") +(defconst mh-e-RCS-id "$Id: mh-e.el,v 1.18 1998/03/08 00:25:49 rms Exp kwzh $") ;;; Code: @@ -438,8 +438,9 @@ (mh-update-sequences) (mh-invalidate-show-buffer) (quit-window) - (if (get-buffer mh-show-buffer) - (bury-buffer mh-show-buffer)) + (and mh-show-buffer + (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))