From 60f1c95af5f2af2f92a9600dcc47fe4c42740cf5 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Tue, 2 Jun 1998 17:30:47 +0000
Subject: [PATCH] (mime-method-for-application/pgp): Use
 `mime-raw-representation-type-alist' instead of
 `mime-text-decoder-alist'; set up to
 `mime-raw-representation-type' instead of
 `mime-text-decoder'.

---
 mime-pgp.el |   44 ++++++--------------------------------------
 1 file changed, 6 insertions(+), 38 deletions(-)

diff --git a/mime-pgp.el b/mime-pgp.el
index c2c3f24..8aa0c40 100644
--- a/mime-pgp.el
+++ b/mime-pgp.el
@@ -61,7 +61,7 @@
 	 (the-buf (current-buffer))
 	 (mother mime-preview-buffer)
 	 (mode major-mode)
-	 text-decoder)
+	 representation-type)
     (set-buffer (get-buffer-create new-name))
     (erase-buffer)
     (insert-buffer-substring the-buf start end)
@@ -83,9 +83,9 @@
 	   (while (re-search-forward "^- -" nil t)
 	     (replace-match "-")
 	     )
-	   (setq text-decoder
-		 (cdr (or (assq mode mime-text-decoder-alist)
-			  (assq t    mime-text-decoder-alist))))
+	   (setq representation-type
+		 (cdr (or (assq mode mime-raw-representation-type-alist)
+			  (assq t    mime-raw-representation-type-alist))))
 	   )
 	  ((progn
 	     (goto-char (point-min))
@@ -96,26 +96,14 @@
 			  (and
 			   (search-forward "\n\n")
 			   (match-end 0)))
-	   (setq text-decoder (function mime-text-decode-buffer))
+	   (setq representation-type (function mime-text-decode-buffer))
 	   ))
     (setq major-mode 'mime-show-message-mode)
-    (setq mime-text-decoder text-decoder)
+    (setq mime-raw-representation-type representation-type)
     (save-window-excursion (mime-view-mode mother))
     (set-window-buffer p-win mime-preview-buffer)
     ))
 
-;; (ctree-set-calist-strictly
-;;  'mime-preview-condition '((type . application)(subtype . pgp)
-;;                            (message-button . visible)))
-
-;; (ctree-set-calist-strictly
-;;  'mime-acting-condition '((type . application)(subtype . pgp)
-;;                           (method . mime-method-for-application/pgp)))
-
-;; (ctree-set-calist-strictly
-;;  'mime-acting-condition '((type . text)(subtype . x-pgp)
-;;                           (method . mime-method-for-application/pgp)))
-
 
 ;;; @ Internal method for multipart/signed
 ;;;
@@ -131,11 +119,6 @@
    (cdr (assq 'mode cal)) ; play-mode
    ))
 
-;; (ctree-set-calist-strictly
-;;  'mime-acting-condition
-;;  '((type . multipart)(subtype . signed)
-;;    (method . mime-method-to-verify-multipart/signed)))
-
 
 ;;; @ Internal method for application/pgp-signature
 ;;;
@@ -235,11 +218,6 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
     (delete-file sig-file)
     ))
 
-;; (ctree-set-calist-strictly
-;;  'mime-acting-condition
-;;  '((type . application)(subtype . pgp-signature)
-;;    (method . mime-method-to-verify-application/pgp-signature)))
-
 
 ;;; @ Internal method for application/pgp-encrypted
 ;;;
@@ -260,11 +238,6 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
     (mime-method-for-application/pgp obeg oend cal)
     ))
 
-;; (ctree-set-calist-strictly
-;;  'mime-acting-condition
-;;  '((type . application)(subtype . pgp-encrypted)
-;;    (method . mime-method-to-decrypt-application/pgp-encrypted)))
-
 
 ;;; @ Internal method for application/pgp-keys
 ;;;
@@ -289,11 +262,6 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
     (kill-buffer (current-buffer))
     ))
 
-;; (ctree-set-calist-strictly
-;;  'mime-acting-condition
-;;  '((type . application)(subtype . pgp-keys)
-;;    (method . mime-method-to-add-application/pgp-keys)))
-
 	 
 ;;; @ end
 ;;;
-- 
1.7.10.4