PGG

[Simon Josefsson]

Simon Josefsson <jas at extundo.com> writes:

> Yes, I will mostly try to separate PGG from most of APEL/FLIM.
...
> Yes, I think it would be nice to have PGG standalone competely, I
> won't add any dependencies on any part of Gnus.

This was trivial, fortunately.  With the following patch, PGG
(specifically: alist.el calist.el luna.el pgg-def.el pgg-gpg.el
pgg-parse.el pgg-pgp5.el pgg.el) loads in Emacs and XEmacs.  I'll move
these to gnus/lisp/ soon.  Is it OK to make a XEmacs package "PGG" out
of them?

Index: alist.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/pgg/alist.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- alist.el	2002/09/24 15:15:31	1.1
+++ alist.el	2002/09/28 14:47:41	1.2
@@ -95,7 +95,6 @@ See also `assoc'."
 ;;; @ end
 ;;;
 
-(require 'product)
-(product-provide (provide 'alist) (require 'apel-ver))
+(provide 'alist)
 
 ;;; alist.el ends here
Index: calist.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/pgg/calist.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- calist.el	2002/09/24 15:15:31	1.1
+++ calist.el	2002/09/28 14:47:41	1.2
@@ -325,7 +325,6 @@ even if other rules are matched for ALIS
 ;;; @ end
 ;;;
 
-(require 'product)
-(product-provide (provide 'calist) (require 'apel-ver))
+(provide 'calist)
 
 ;;; calist.el ends here
Index: pgg-parse.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/pgg/pgg-parse.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- pgg-parse.el	2002/09/24 15:15:31	1.1
+++ pgg-parse.el	2002/09/28 14:47:41	1.2
@@ -37,11 +37,7 @@
 
 (eval-when-compile (require 'cl))
 
-(eval-when-compile (require 'static))
-
-(require 'pccl)
 (require 'custom)
-(require 'mel)
 
 (defgroup pgg-parse ()
   "OpenPGP packet parsing"
@@ -153,8 +149,9 @@
 
 (defmacro pgg-set-alist (alist key value)
   `(setq ,alist (nconc ,alist (list (cons ,key ,value)))))
+
+(when (fboundp 'define-ccl-program)
 
-(unless-broken ccl-usable
   (define-ccl-program pgg-parse-crc24
     '(1
       ((loop
@@ -464,7 +461,7 @@
 	 (checksum (buffer-substring (point) (+ 4 (point)))))
     (delete-region marker (point-max))
     (mime-decode-region (point-min) marker "base64")
-    (static-when (fboundp 'pgg-parse-crc24-string )
+    (when (fboundp 'pgg-parse-crc24-string )
       (or pgg-ignore-packet-checksum
 	  (string-equal
 	   (funcall (mel-find-function 'mime-encode-string "base64")