From: yamaoka <yamaoka>
Date: Fri, 2 Jul 1999 12:19:43 +0000 (+0000)
Subject: (mime-view-application/pgp): Specify preview buffer explicitly;
X-Git-Tag: semi-pgpgpg_18~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3bd3e29f5f2928290146b06ee5e365a2174d9bc1;p=elisp%2Fsemi.git

(mime-view-application/pgp): Specify preview buffer explicitly;
set the value of `mime-raw-buffer' and `mime-mother-buffer' in preview buffer.
---

diff --git a/mime-pgp.el b/mime-pgp.el
index dcbe2d8..b953c12 100644
--- a/mime-pgp.el
+++ b/mime-pgp.el
@@ -79,6 +79,7 @@
 	 (new-name
 	  (format "%s-%s" (buffer-name) (mime-entity-number entity)))
 	 (mother (current-buffer))
+	 (preview-buffer (concat "*Preview-" (buffer-name) "*"))
 	 representation-type)
     (set-buffer (get-buffer-create new-name))
     (erase-buffer)
@@ -117,9 +118,12 @@
 	   (setq representation-type 'binary)
 	   ))
     (setq major-mode 'mime-show-message-mode)
-    (save-window-excursion (mime-view-buffer nil nil mother
+    (save-window-excursion (mime-view-buffer nil preview-buffer mother
 					     nil representation-type))
-    (set-window-buffer p-win mime-preview-buffer)
+    (with-current-buffer preview-buffer
+      (setq mime-raw-buffer (get-buffer new-name)
+	    mime-mother-buffer mother))
+    (set-window-buffer p-win preview-buffer)
     ))