From: ueno <ueno>
Date: Tue, 2 Nov 1999 17:48:43 +0000 (+0000)
Subject: Set up for `mime-display-application/pgp-signature',
X-Git-Tag: emiko-1_13_7~113
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1621eabe43895e5865e5b612fd58eca18ac1eaf3;p=elisp%2Fsemi.git

Set up for `mime-display-application/pgp-signature',
`mime-display-application/pgp-encrypted',
`mime-display-application/pgp-keys'.
(mime-setup-enable-pgp): Default to t.
---

diff --git a/semi-setup.el b/semi-setup.el
index 9928d1e..eb95dd1 100644
--- a/semi-setup.el
+++ b/semi-setup.el
@@ -83,8 +83,7 @@ it is used as hook to set."
 
 
 ;; for PGP
-(defvar mime-setup-enable-pgp
-  (module-installed-p 'mailcrypt)
+(defvar mime-setup-enable-pgp t
   "*If it is non-nil, semi-setup sets uf to use mime-pgp.")
 
 (if mime-setup-enable-pgp
@@ -106,6 +105,33 @@ it is used as hook to set."
 		    (method . mime-verify-multipart/signed))
 	  'strict "mime-pgp")
 	 
+	 (autoload 'mime-display-application/pgp-signature "mime-pgp")
+
+	 (ctree-set-calist-strictly
+	  'mime-preview-condition 
+	  '((type . application)(subtype . pgp-signature)
+	    (body . visible)
+	    (body-presentation-method 
+	     . mime-display-application/pgp-signature)))
+
+	 (autoload 'mime-display-application/pgp-encrypted "mime-pgp")
+
+	 (ctree-set-calist-strictly
+	  'mime-preview-condition 
+	  '((type . application)(subtype . pgp-encrypted)
+	    (body . visible)
+	    (body-presentation-method 
+	     . mime-display-application/pgp-encrypted)))
+
+	 (autoload 'mime-display-application/pgp-keys "mime-pgp")
+
+	 (ctree-set-calist-strictly
+	  'mime-preview-condition 
+	  '((type . application)(subtype . pgp-keys)
+	    (body . visible)
+	    (body-presentation-method 
+	     . mime-display-application/pgp-keys)))
+
 	 (mime-add-condition
 	  'action
 	  '((type . application)(subtype . pgp-signature)