;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Created: 1995/9/26 (separated from tm-view.el)
;; Renamed: 1997/2/21 from tm-play.el
-;; Version: $Id: mime-play.el,v 0.29 1997-03-18 15:17:48 morioka Exp $
+;; Version: $Id: mime-play.el,v 0.30 1997-03-27 20:40:03 morioka Exp $
;; Keywords: MIME, multimedia, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
(setq cal (put-alist 'file file cal))
(setq args (nconc
(list (car method)
- mime/output-buffer-name (car method)
+ mime-echo-buffer-name (car method)
)
(mime-article/make-method-args cal
(cdr (cdr method)))
format))
(defun mime-article/show-output-buffer (&rest forms)
- (get-buffer-create mime/output-buffer-name)
+ (get-buffer-create mime-echo-buffer-name)
(let ((the-win (selected-window))
- (win (get-buffer-window mime/output-buffer-name))
+ (win (get-buffer-window mime-echo-buffer-name))
)
(or win
(if (and mime/output-buffer-window-is-shared-with-bbdb
(boundp 'bbdb-buffer-name)
(setq win (get-buffer-window bbdb-buffer-name))
)
- (set-window-buffer win mime/output-buffer-name)
+ (set-window-buffer win mime-echo-buffer-name)
(select-window (get-buffer-window mime-view-buffer))
(setq win (split-window-vertically (/ (* (window-height) 3) 4)))
- (set-window-buffer win mime/output-buffer-name)
+ (set-window-buffer win mime-echo-buffer-name)
))
(select-window win)
(goto-char (point-max))