;;;
(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)