(require 'custom)
-(defconst mime-user-interface-product ["EMIKO" (1 13 7) "Euglena caudata"]
+(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"
)
-;;; @ PGP
-;;;
-
-(defvar pgp-function-alist
- '(
- ;; for mime-pgp
- (verify pgg-verify-region "pgg")
- (decrypt pgg-decrypt-region "pgg")
- ;; for mime-edit
- (sign pgg-sign-region "pgg")
- (encrypt pgg-encrypt-region "pgg")
- (insert-key pgg-insert-key "pgg")
- (snarf-keys pgg-snarf-keys-region "pgg")
- )
- "Alist of service names vs. corresponding functions and its filenames.
-Each element looks like (SERVICE FUNCTION FILE).
-
-SERVICE is a symbol of PGP 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.")
-
-(defmacro pgp-function (method)
- "Return function to do service METHOD."
- `(cadr (assq ,method (symbol-value 'pgp-function-alist))))
-
-(mapcar (function
- (lambda (method)
- (autoload (cadr method)(nth 2 method))
- ))
- pgp-function-alist)
-
-
;;; @ Other Utility
;;;