Commits

Anonymous committed 4950a34

2002-10-20 Steve Youngs <youngs@xemacs.org>

* pgg-parse.el (pgg-parse-public-key-algorithm-alist): XEmacs
doesn't have the 'alist custom type, use cons cells instead.
(pgg-parse-symmetric-key-algorithm-alist): Ditto.
(pgg-parse-hash-algorithm-alist): Ditto.
(pgg-parse-compression-algorithm-alist): Ditto.
(pgg-parse-signature-type-alist): Ditto.

* pgg-gpg.el (pgg-gpg-extra-args): Fix custom mismatch.

* pgg-pgp5.el (pgg-pgp5-extra-args): Ditto.

* pgg-pgp.el (pgg-pgp-extra-args): Ditto.

  • Participants
  • Parent commits 9a24725

Comments (0)

Files changed (5)

+2002-10-20  Steve Youngs  <youngs@xemacs.org>
+
+	* pgg-parse.el (pgg-parse-public-key-algorithm-alist): XEmacs
+	doesn't have the 'alist custom type, use cons cells instead.
+	(pgg-parse-symmetric-key-algorithm-alist): Ditto.
+	(pgg-parse-hash-algorithm-alist): Ditto.
+	(pgg-parse-compression-algorithm-alist): Ditto.
+	(pgg-parse-signature-type-alist): Ditto.
+
+	* pgg-gpg.el (pgg-gpg-extra-args): Fix custom mismatch.
+
+	* pgg-pgp5.el (pgg-pgp5-extra-args): Ditto.
+
+	* pgg-pgp.el (pgg-pgp-extra-args): Ditto.
+
 2002-10-15  Ville Skyttä  <scop@xemacs.org>
 
 	* Makefile (srckit): Remove.
 (defcustom pgg-gpg-extra-args nil
   "Extra arguments for every GnuPG invocation."
   :group 'pgg-gpg
-  :type 'string)
+  :type '(choice
+	  (const :tag "None" nil)
+	  (string :tag "Arguments")))
 
 (defvar pgg-gpg-user-id nil
   "GnuPG ID of your default identity.")
   '((1 . RSA) (2 . RSA-E) (3 . RSA-S) (16 . ELG-E) (17 . DSA) (20 . ELG))
   "Alist of the assigned number to the public key algorithm."
   :group 'pgg-parse
-  :type 'alist)
+  :type '(repeat 
+	  (cons (sexp :tag "Number") (sexp :tag "Type"))))
 
 (defcustom pgg-parse-symmetric-key-algorithm-alist
   '((1 . IDEA) (2 . 3DES) (4 . CAST5) (5 . SAFER-SK128))
   "Alist of the assigned number to the simmetric key algorithm."
   :group 'pgg-parse
-  :type 'alist)
+  :type '(repeat 
+	  (cons (sexp :tag "Number") (sexp :tag "Type"))))
 
 (defcustom pgg-parse-hash-algorithm-alist
   '((1 . MD5) (2 . SHA1) (3 . RIPEMD160) (5 . MD2))
   "Alist of the assigned number to the cryptographic hash algorithm."
   :group 'pgg-parse
-  :type 'alist)
+  :type '(repeat 
+	  (cons (sexp :tag "Number") (sexp :tag "Type"))))
 
 (defcustom pgg-parse-compression-algorithm-alist
   '((0 . nil); Uncompressed
     (2 . ZLIB))
   "Alist of the assigned number to the compression algorithm."
   :group 'pgg-parse
-  :type 'alist)
+  :type '(repeat 
+	  (cons (sexp :tag "Number") (sexp :tag "Type"))))
 
 (defcustom pgg-parse-signature-type-alist
   '((0 . "Signature of a binary document")
     (64 . "Timestamp signature."))
   "Alist of the assigned number to the signature type."
   :group 'pgg-parse
-  :type 'alist)
+  :type '(repeat 
+	  (cons (sexp :tag "Number") (sexp :tag "Type"))))
 
 (defcustom pgg-ignore-packet-checksum t; XXX
   "If non-nil checksum of each ascii armored packet will be ignored."
 (defcustom pgg-pgp-extra-args nil
   "Extra arguments for every PGP invocation."
   :group 'pgg-pgp
-  :type 'string)
+  :type '(choice 
+	  (const :tag "None" nil)
+	  (string :tag "Arguments")))
 
 (defvar pgg-pgp-user-id nil
   "PGP ID of your default identity.")
 (defcustom pgg-pgp5-extra-args nil
   "Extra arguments for every PGP 5.* invocation."
   :group 'pgg-pgp5
-  :type 'string)
+  :type '(choice
+	  (const :tag "None" nil)
+	  (string :tag "Arguments")))
 
 (defvar pgg-pgp5-user-id nil
   "PGP 5.* ID of your default identity.")