From 3bd3e29f5f2928290146b06ee5e365a2174d9bc1 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 2 Jul 1999 12:19:43 +0000 Subject: [PATCH] (mime-view-application/pgp): Specify preview buffer explicitly; set the value of `mime-raw-buffer' and `mime-mother-buffer' in preview buffer. --- mime-pgp.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) 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) )) -- 1.7.10.4