X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Ftm.git;a=blobdiff_plain;f=tm-play.el;h=7d0e76877659ada36695893c7da03532db5828ed;hp=67fa3928b05deca342a70651904c2a9cb921ea5c;hb=8ad5dcf75c50e1db649758764f802afef3e3bbd6;hpb=79aebb76e3a8f57deb7559a3d15ab760de33d75b

diff --git a/tm-play.el b/tm-play.el
index 67fa392..7d0e768 100644
--- 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)
 	  ))