From: morioka <morioka>
Date: Thu, 27 Mar 1997 22:12:05 +0000 (+0000)
Subject: (emh-quitting-method): Use `mime-hide-echo-buffer'.
X-Git-Tag: emh-0_21~18
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=39d37d4dc16377c4e6c20870a25e679fb6a9587e;p=elisp%2Femh.git

(emh-quitting-method): Use `mime-hide-echo-buffer'.
---

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)