From 39d37d4dc16377c4e6c20870a25e679fb6a9587e Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 27 Mar 1997 22:12:05 +0000 Subject: [PATCH] (emh-quitting-method): Use `mime-hide-echo-buffer'. --- emh.el | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/emh.el b/emh.el index 96a2e04..ed6ebb4 100644 --- a/emh.el +++ b/emh.el @@ -8,7 +8,7 @@ ;; Created: 1993/11/21 ;; Renamed: 1993/11/27 from mh-e-mime.el ;; Renamed: 1997/02/21 from tm-mh-e.el -;; Version: $Revision: 0.18 $ +;; Version: $Revision: 0.19 $ ;; Keywords: MH, MIME, multimedia, encoded-word, multilingual, mail ;; This file is part of emh. @@ -38,7 +38,7 @@ ;;; (defconst emh-RCS-ID - "$Id: emh.el,v 0.18 1997-03-27 20:42:57 morioka Exp $") + "$Id: emh.el,v 0.19 1997-03-27 22:12:05 morioka Exp $") (defconst emh-version (get-version-string emh-RCS-ID)) @@ -255,12 +255,8 @@ It is registered to variable `mime-view-content-header-filter-alist'." (function emh-content-header-filter)) (defun emh-quitting-method () - (let ((win (get-buffer-window mime-echo-buffer-name)) - (buf (current-buffer)) - ) - (if win - (delete-window win) - ) + (let ((buf (current-buffer))) + (mime-hide-echo-buffer) (pop-to-buffer (let ((name (buffer-name buf))) (substring name 5) -- 1.7.10.4