From 5f68ca600d603d8092a32f342dd4863f914f6e02 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Mon, 4 May 1998 16:24:36 +0000
Subject: [PATCH] Use 'mime-add-condition to set up for mime-pgp.

---
 semi-setup.el |   41 ++++++++++++++++++++++++++++++++++++-----
 1 file changed, 36 insertions(+), 5 deletions(-)

diff --git a/semi-setup.el b/semi-setup.el
index b3811c2..f680ce9 100644
--- a/semi-setup.el
+++ b/semi-setup.el
@@ -51,11 +51,42 @@
 
 ;; for PGP
 (if mime-setup-enable-pgp
-    (call-after-loaded 'mime-view
-		       (function
-			(lambda ()
-			  (require 'mime-pgp)
-			  )))
+    (eval-after-load "mime-view"
+      '(progn
+	 (mime-add-condition
+	  'preview '((type . application)(subtype . pgp)
+		     (message-button . visible)))
+	 (mime-add-condition
+	  'action '((type . application)(subtype . pgp)
+		    (method . mime-method-for-application/pgp))
+	  'strict "mime-pgp")
+	 (mime-add-condition
+	  'action '((type . text)(subtype . x-pgp)
+		    (method . mime-method-for-application/pgp)))
+	 
+	 (mime-add-condition
+	  'action '((type . multipart)(subtype . signed)
+		    (method . mime-method-to-verify-multipart/signed))
+	  'strict "mime-pgp")
+	 
+	 (mime-add-condition
+	  'action
+	  '((type . application)(subtype . pgp-signature)
+	    (method . mime-method-to-verify-application/pgp-signature))
+	  'strict "mime-pgp")
+	 
+	 (mime-add-condition
+	  'action
+	  '((type . application)(subtype . pgp-encrypted)
+	    (method . mime-method-to-decrypt-application/pgp-encrypted))
+	  'strict "mime-pgp")
+	 
+	 (mime-add-condition
+	  'action
+	  '((type . application)(subtype . pgp-keys)
+	    (method . mime-method-to-add-application/pgp-keys))
+	  'strict "mime-pgp")
+	 ))
   )
 
 
-- 
1.7.10.4