- pgp-path key args prompt passwd hash-function)
- (cond
- ((eq 'mc-scheme-gpg mc-default-scheme)
- (setq pgp-path mc-gpg-path
- key (mc-gpg-lookup-key (or id mc-gpg-user-id))
- args (delq nil
- (nconc
- (if mc-gpg-comment
- (list "--comment" (format "%s" mc-gpg-comment)))
- (list
- (if boundary
- "--detach-sign"
- (if unclear
- "--sign"
- "--clearsign"))
- "--armor" "--batch" "--textmode" "--verbose"
- "--passphrase-fd" "0" "--local-user" (cdr key))))
- prompt (format "GnuPG passphrase for %s (%s): "
- (car key) (cdr key))
- hash-function 'sha1)
- (if (and boundary
- (string-match "^pgp-" boundary))
- (setq boundary
- (concat "gpg-" (substring boundary (match-end 0))))
- ))
- ((eq 'mc-scheme-pgp50 mc-default-scheme)
- (setq pgp-path mc-pgp50-pgps-path
- key (mc-pgp50-lookup-key (or id mc-pgp50-user-id))
- args (delq nil
- (list
- (if mc-pgp50-comment
- (format "+comment=%s" mc-pgp50-comment))
- (if boundary
- "-fbat"
- "-fat")
- "+verbose=1" "+language=us"
- (format "+clearsig=%s" (if unclear "off" "on"))
- "+batchmode" "-u" (cdr key)))
- prompt (format "PGP passphrase for %s (%s): "
- (car key) (cdr key))
- hash-function 'md5)
- (setenv "PGPPASSFD" "0")
+ (pgp-path mc-pgp-path)
+ )
+ (setq key (mc-pgp-lookup-key (or id mc-pgp-user-id)))
+ (setq passwd
+ (mc-activate-passwd
+ (cdr key)
+ (format "PGP passphrase for %s (%s): " (car key) (cdr key))))
+ (setenv "PGPPASSFD" "0")
+ (setq args
+ (cons
+ (if boundary
+ "-fbast"
+ "-fast")
+ (list "+verbose=1" "+language=en"
+ (format "+clearsig=%s" (if unclear "off" "on"))
+ "+batchmode" "-u" (cdr key))))
+ (if mc-pgp-comment
+ (setq args (cons (format "+comment=%s" mc-pgp-comment) args))