From 201836d0f87912782975569441020ea74ba939c0 Mon Sep 17 00:00:00 2001 From: morioka Date: Sun, 28 Jun 1998 22:21:21 +0000 Subject: [PATCH] (mime-display-message): Try use window of mother buffer to display mime-preview-buffer. --- mime-view.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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 -- 1.7.10.4