From: ueno <ueno>
Date: Wed, 3 Nov 1999 06:53:14 +0000 (+0000)
Subject: (pgg-scheme): Remove all slots.
X-Git-Tag: emiko-1_13_7~99
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4c1fd6f525e4da0b55c514abf9deda637c68da8f;p=elisp%2Fsemi.git

(pgg-scheme): Remove all slots.
(pgg-decrypt-codition): Rename tag `cipher-algorithm' to
`symmetric-key-algorithm'.
(lookup-key): Add documentation to the new generic function.
---

diff --git a/pgg.el b/pgg.el
index dbd6bf1..cc9dde3 100644
--- a/pgg.el
+++ b/pgg.el
@@ -68,7 +68,7 @@
 
 (ctree-set-calist-strictly
  'pgg-decrypt-codition
- '((cipher-algorithm IDEA)(public-key-algorithm RSA)
+ '((public-key-algorithm RSA)(symmetric-key-algorithm IDEA)
    (scheme . pgp)))
 
 (ctree-set-calist-strictly
@@ -80,8 +80,8 @@
 
 (ctree-set-calist-strictly
  'pgg-decrypt-codition
- '((cipher-algorithm 3DES CAST5 IDEA)
-   (public-key-algorithm RSA ELG DSA)
+ '((public-key-algorithm RSA ELG DSA)
+   (symmetric-key-algorithm 3DES CAST5 IDEA)
    (scheme . pgp5)))
 
 (ctree-set-calist-strictly
@@ -94,25 +94,21 @@
 (ctree-set-calist-strictly
  'pgg-decrypt-codition
  '((public-key-algorithm ELG-E DSA ELG)
-   (cipher-algorithm 3DES CAST5 BLOWFISH TWOFISH)
+   (symmetric-key-algorithm 3DES CAST5 BLOWFISH TWOFISH)
    (scheme . gpg)))
 
 ;;; @ definition of the implementation scheme
 ;;;
 
 (eval-and-compile
-  (luna-define-class pgg-scheme ()
-		     (message-beginning-line
-		      message-end-line
-		      signed-beginning-line
-		      signed-end-line
-		      key-beginning-line
-		      key-end-line
-		      ))
+  (luna-define-class pgg-scheme ())
 
   (luna-define-internal-accessors 'pgg-scheme)
   )
 
+(luna-define-generic lookup-key (scheme string)
+  "Search keys associated with STRING")
+
 (luna-define-generic encrypt-region (scheme start end recipients)
   "Encrypt the current region between START and END.")
 
@@ -133,28 +129,6 @@ as the detached signature SIGNATURE.")
   "Add all public keys in region between START 
 and END to the keyring.")
 
-(defvar pgg-scheme-message-delimiters
-  '(:message-beginning-line 
-    "^-----BEGIN PGP MESSAGE-----\r?$"
-    :message-end-line 
-    "^-----END PGP MESSAGE-----\r?$"
-    :signed-beginning-line 
-    "^-----BEGIN PGP SIGNED MESSAGE-----\r?$"
-    :signed-end-line
-    "^-----END PGP SIGNATURE-----\r?$"
-    :key-beginning-line 
-    "^-----BEGIN PGP PUBLIC KEY BLOCK-----\r?$"
-    :key-end-line 
-    "^-----END PGP PUBLIC KEY BLOCK-----\r?$")
-  "Message delimiters")
-
-(luna-define-method initialize-instance :before ((scheme pgg-scheme) 
-						 &rest init-args)
-  (let ((luna-current-method-arguments 
-	 (cons scheme (or init-args  
-			  pgg-scheme-message-delimiters))))
-    (luna-call-next-method)))
-
 ;;; @ interface functions
 ;;;