-(defvar pgp-function-alist
- '((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")
- ))
-
-(defsubst pgp-function (method)
- (car (cdr (assq method pgp-function-alist)))
- )
-
-(mapcar (function
- (lambda (method)
- (autoload (second method)(third method))
- ))
- pgp-function-alist)
-