(defvar pgg-pgp-user-id nil
"PGP ID of your default identity.")
-(defvar pgg-pgp-messages-coding-system pgg-messages-coding-system
- "Coding system used when reading from a PGP external process.")
-
(defvar pgg-scheme-pgp-instance nil)
;;;###autoload
(unwind-protect
(progn
(setq process
- (apply #'binary-to-text-funcall
- pgg-pgp-messages-coding-system
+ (apply #'binary-funcall
#'start-process-shell-command "*PGP*" output-buffer
program args))
(set-process-sentinel process #'ignore)