tm 7.72.

[elisp/tm.git] / tm-play.el

diff --git a/tm-play.el b/tm-play.el
index 67fa392..7d0e768 100644 (file)
--- a/tm-play.el
+++ b/tm-play.el
@@ -8,7 +8,7 @@
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Created: 1995/9/26 (separated from tm-view.el)
 ;;; Version:
-;;;    $Id: tm-play.el,v 7.18 1996/05/11 10:09:00 morioka Exp $
+;;;    $Id: tm-play.el,v 7.20 1996/07/15 14:04:46 morioka Exp $
 ;;; Keywords: mail, news, MIME, multimedia
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -197,8 +197,13 @@
   (let ((the-win (selected-window))
        (win (get-buffer-window mime/output-buffer-name))
        )
-    (if (null win)
-       (progn
+    (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)
+         (select-window (get-buffer-window mime::article/preview-buffer))
          (setq win (split-window-vertically (/ (* (window-height) 3) 4)))
          (set-window-buffer win mime/output-buffer-name)
          ))