(pgg-as-lbt start end 'CRLF
(pgg-gpg-process-region start end nil pgg-gpg-program args))
(pgg-process-when-success)))
(luna-define-method pgg-scheme-decrypt-region ((scheme pgg-scheme-gpg)
start end)
(pgg-as-lbt start end 'CRLF
(pgg-gpg-process-region start end nil pgg-gpg-program args))
(pgg-process-when-success)))
(luna-define-method pgg-scheme-decrypt-region ((scheme pgg-scheme-gpg)
start end)
(args '("--batch" "--decrypt")))
(pgg-gpg-process-region start end passphrase pgg-gpg-program args)
(with-current-buffer pgg-errors-buffer
(args '("--batch" "--decrypt")))
(pgg-gpg-process-region start end passphrase pgg-gpg-program args)
(with-current-buffer pgg-errors-buffer
- (format "GnuPG passphrase for %s: " pgg-gpg-user-id)
- (pgg-scheme-lookup-key scheme pgg-gpg-user-id 'sign)))
+ (format "GnuPG passphrase for %s: " user-id)
+ (pgg-scheme-lookup-key scheme user-id 'sign)))
(insert-buffer-substring pgg-errors-buffer)))))
(luna-define-method pgg-scheme-insert-key ((scheme pgg-scheme-gpg))
(insert-buffer-substring pgg-errors-buffer)))))
(luna-define-method pgg-scheme-insert-key ((scheme pgg-scheme-gpg))
- (let* ((pgg-gpg-user-id (or pgg-gpg-user-id pgg-default-user-id))
- (args (list "--batch" "--export" "--armor"
- pgg-gpg-user-id)))
+ (let* ((user-id (or pgg-overriding-user-id pgg-gpg-user-id
+ pgg-default-user-id))
+ (args (list "--batch" "--export" "--armor" user-id)))
(pgg-gpg-process-region (point)(point) nil pgg-gpg-program args)
(insert-buffer-substring pgg-output-buffer)))
(pgg-gpg-process-region (point)(point) nil pgg-gpg-program args)
(insert-buffer-substring pgg-output-buffer)))