From: ueno <ueno>
Date: Tue, 2 Nov 1999 17:43:55 +0000 (+0000)
Subject: (mime-user-interface-product): Modify for EMIKO.
X-Git-Tag: emiko-1_13_7~118
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cd13c28f3d6869038e40b4487eddd13a8efd08fe;p=elisp%2Fsemi.git

(mime-user-interface-product): Modify for EMIKO.
(pgp-function-alist): Replace each method with PGG function.
---

diff --git a/semi-def.el b/semi-def.el
index 62baefd..97cdc64 100644
--- a/semi-def.el
+++ b/semi-def.el
@@ -30,7 +30,7 @@
 
 (require 'custom)
 
-(defconst mime-user-interface-product ["SEMI" (1 13 7) "Awazu"]
+(defconst mime-user-interface-product ["EMIKO" (1 13 7) "Euglena caudata"]
   "Product name, version number and code name of MIME-kernel package.")
 
 (autoload 'mule-caesar-region "mule-caesar"
@@ -171,15 +171,13 @@
 (defvar pgp-function-alist
   '(
     ;; for mime-pgp
-    (verify		mc-verify			"mc-toplev")
-    (decrypt		mc-decrypt			"mc-toplev")
-    (fetch-key		mc-pgp-fetch-key		"mc-pgp")
-    (snarf-keys		mc-snarf-keys			"mc-toplev")
+    (verify		pgg-verify-region		"pgg")
+    (decrypt		pgg-decrypt-region		"pgg")
     ;; for mime-edit
-    (mime-sign		mime-mc-pgp-sign-region		"mime-mc")
-    (traditional-sign	mc-pgp-sign-region		"mc-pgp")
-    (encrypt		mime-mc-pgp-encrypt-region	"mime-mc")
-    (insert-key		mc-insert-public-key		"mc-toplev")
+    (sign		pgg-sign-region			"pgg")
+    (encrypt		pgg-encrypt-region		"pgg")
+    (insert-key		pgg-insert-key			"pgg")
+    (snarf-keys		pgg-snarf-keys-region		"pgg")
     )
   "Alist of service names vs. corresponding functions and its filenames.
 Each element looks like (SERVICE FUNCTION FILE).