update.

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

diff --git a/semi-def.el b/semi-def.el
index c0ab44d..d291349 100644 (file)
--- a/semi-def.el
+++ b/semi-def.el
@@ -1,8 +1,8 @@
-;;; semi-def.el --- definition module for SEMI
+;;; semi-def.el --- definition module for SEMI -*- coding: iso-8859-4; -*-
 
 ;; Copyright (C) 1995,1996,1997,1998,1999 Free Software Foundation, Inc.
 
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Author: MORIOKA Tomohiko <tomo@m17n.org>
 ;; Keywords: definition, MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (Sample of Emacs MIME Implementation).
@@ -30,7 +30,7 @@
 
 (require 'custom)
 
-(defconst mime-user-interface-product ["SEMI" (1 13 4) "Terai"]
+(defconst mime-user-interface-product ["EMIKO" (1 13 12) "Euglena sociabilis"]
   "Product name, version number and code name of MIME-kernel package.")
 
 (autoload 'mule-caesar-region "mule-caesar"
@@ -165,70 +165,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"
-                       mc-pgp50-fetch-key              "mc-pgp5"
-                       mc-gpg-fetch-key                "mc-gpg")
-    (snarf-keys                mc-snarf-keys                   "mc-toplev")
-    ;; for mime-edit
-    (mime-sign         mime-mc-pgp-sign-region         "mime-mc")
-    (traditional-sign  mc-pgp-sign-region              "mc-pgp"
-                       mc-pgp50-sign-region            "mc-pgp5"
-                       mc-gpg-sign-region              "mc-gpg")
-    (encrypt           mime-mc-pgp-encrypt-region      "mime-mc")
-    (insert-key                mc-insert-public-key            "mc-toplev")
-    )
-  "Alist of service names vs. corresponding functions and its filenames.
-Each element looks like:
-
-\(SERVICE FUNCTION FILE [PGP5_FUNCTION PGP5_FILE [GPG_FUNCTION GPG_FILE]]).
-
-SERVICE is a symbol of PGP2, PGP5 or GnuPG processing.  It allows `verify',
-`decrypt', `fetch-key', `snarf-keys', `mime-sign', `traditional-sign',
-`encrypt' or `insert-key'.
-
-FUNCTION is a symbol of function to do specified SERVICE.
-
-FILE is string of filename which has definition of corresponding
-FUNCTION.
-
-PGP5_FUNCTION, PGP5_FILE, GPG_FUNCTION and GPG_FILE are similar to
-FUNCTION and FILE, but they will be used for PGP 5.0i or GnuPG.")
-
-(defmacro pgp-function (method)
-  "Return function to do service METHOD."
-  `(let ((elem (assq ,method (symbol-value 'pgp-function-alist))))
-     (require 'mailcrypt)
-     (cond ((eq 'mc-scheme-gpg (symbol-value 'mc-default-scheme))
-           (if (> (length elem) 3)
-               (nth 5 elem)
-             (nth 1 elem))
-           )
-          ((eq 'mc-scheme-pgp50 (symbol-value 'mc-default-scheme))
-           (if (> (length elem) 3)
-               (nth 3 elem)
-             (nth 1 elem))
-           )
-          (t
-           (nth 1 elem)
-           ))))
-
-(mapcar (function
-        (lambda (elem)
-          (setq elem (cdr elem))
-          (while elem
-            (autoload (car elem) (nth 1 elem))
-            (setq elem (nthcdr 2 elem)))))
-       pgp-function-alist)
-
-
 ;;; @ Other Utility
 ;;;