(mime-mc-pgp50-process-region, mime-mc-gpg-process-region): Bind

[elisp/semi.git] / semi-def.el

diff --git a/semi-def.el b/semi-def.el
index d5e28a7..51ff326 100644 (file)
--- a/semi-def.el
+++ b/semi-def.el
@@ -168,18 +168,30 @@
 ;;; @ PGP
 ;;;
 
+(defcustom pgp-version 'pgp
+  "Version of PGP or GnuPG command to be used for encryption or sign.
+The value should be a symbol.  Allowed versions are:
+
+  gpg   - GnuPG.
+  pgp50 - PGP version 5.0i.
+  pgp   - PGP version 2.6."
+  :group 'mime
+  :type '(radio (choice-item :tag "GnuPG" gpg)
+               (choice-item :tag "PGP 5.0i" pgp50)
+               (choice-item :tag "PGP 2.6" pgp)))
+
 (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            mime-mc-verify                  "mime-mc")
+    (decrypt           mime-mc-decrypt                 "mime-mc")
+    (fetch-key         mime-mc-fetch-key               "mime-mc")
+    (snarf-keys                mime-mc-snarf-keys              "mime-mc")
     ;; 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")
+    (mime-sign         mime-mc-sign-region             "mime-mc")
+    (traditional-sign  mime-mc-traditional-sign-region "mime-mc")
+    (encrypt           mime-mc-encrypt-region          "mime-mc")
+    (insert-key                mime-mc-insert-public-key       "mime-mc")
     )
   "Alist of service names vs. corresponding functions and its filenames.
 Each element looks like (SERVICE FUNCTION FILE).