From 767956cd8d60524f3a02d2909147f104106bbc4b Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 23 Jan 1999 17:52:13 +0000 Subject: [PATCH] (mime-view-application/pgp): Don't expect called in raw-buffer; use `mime-insert-entity'. --- mime-pgp.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/mime-pgp.el b/mime-pgp.el index c500afa..fd0203a 100644 --- a/mime-pgp.el +++ b/mime-pgp.el @@ -63,17 +63,15 @@ ;;; It is based on draft-kazu-pgp-mime-00.txt (PGP-kazu). (defun mime-view-application/pgp (entity situation) - (let* ((p-win (or (get-buffer-window mime-preview-buffer) + (let* ((p-win (or (get-buffer-window (current-buffer)) (get-largest-window))) (new-name (format "%s-%s" (buffer-name) (mime-entity-number entity))) - (mother mime-preview-buffer) + (mother (current-buffer)) representation-type) (set-buffer (get-buffer-create new-name)) (erase-buffer) - (insert-buffer-substring (mime-entity-buffer entity) - (mime-entity-point-min entity) - (mime-entity-point-max entity)) + (mime-insert-entity entity) (cond ((progn (goto-char (point-min)) (re-search-forward "^-+BEGIN PGP SIGNED MESSAGE-+$" nil t)) -- 1.7.10.4