;;;
 
 (defconst emh-RCS-ID
-  "$Id: emh.el,v 1.4 1998-03-13 13:12:44 morioka Exp $")
+  "$Id: emh.el,v 1.5 1998-03-13 16:19:40 morioka Exp $")
 
 (defconst emh-version (get-version-string emh-RCS-ID))
 
     (if buf
        (let ((the-buf (current-buffer)))
          (switch-to-buffer buf)
-         (if (and mime-view-buffer
-                  (setq buf (get-buffer mime-view-buffer))
+         (if (and mime-preview-buffer
+                  (setq buf (get-buffer mime-preview-buffer))
                   )
              (progn
                (switch-to-buffer the-buf)