From: morioka <morioka>
Date: Sun, 28 Jun 1998 22:21:21 +0000 (+0000)
Subject: (mime-display-message): Try use window of mother buffer to display
X-Git-Tag: remi-1_8_1~20
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=201836d0f87912782975569441020ea74ba939c0;p=elisp%2Fsemi.git

(mime-display-message): Try use window of mother buffer to display
mime-preview-buffer.
---

diff --git a/mime-view.el b/mime-view.el
index 0fb973d..fc5cf83 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -910,8 +910,11 @@ MEDIA-TYPE must be (TYPE . SUBTYPE), TYPE or t.  t means default."
 	  (let ((r-win (get-buffer-window raw-buffer)))
 	    (if r-win
 		(set-window-buffer r-win preview-buffer)
-	      (switch-to-buffer preview-buffer)
-	      )))
+	      (let ((m-win (and mother (get-buffer-window mother))))
+		(if m-win
+		    (set-window-buffer m-win preview-buffer)
+		  (switch-to-buffer preview-buffer)
+		  )))))
       )))
 
 (defun mime-view-buffer (&optional raw-buffer preview-buffer mother