From e6348d85b84127e3bbede52b563af0787df13382 Mon Sep 17 00:00:00 2001 From: ueno Date: Sat, 6 Nov 1999 11:52:38 +0000 Subject: [PATCH] * pgg-gpg.el (sign-region): Use `pgg-as-lbt'. (pgg-gpg-process-region): Use `pgg-convert-lbt-region'. (encrypt-region): Don't ask passphrase. --- pgg-gpg.el | 16 ++-------------- 1 file changed, 2 insertions(+), 14 deletions(-) diff --git a/pgg-gpg.el b/pgg-gpg.el index 0f5a140..dc0bc61 100644 --- a/pgg-gpg.el +++ b/pgg-gpg.el @@ -150,11 +150,6 @@ (luna-define-method encrypt-region ((scheme pgg-scheme-gpg) start end recipients) (let* ((pgg-gpg-user-id pgg-default-user-id) - (passphrase - (pgg-read-passphrase - (format "GnuPG passphrase for %s: " pgg-gpg-user-id) - (luna-send scheme 'lookup-key-string - scheme pgg-gpg-user-id 'encrypt))) (args `("--batch" "--armor" "--always-trust" "--encrypt" ,@(if recipients @@ -164,17 +159,10 @@ (concat "\"" rcpt "\""))) recipients)))))) (pgg-as-lbt start end 'CRLF - (pgg-gpg-process-region start end passphrase - pgg-gpg-program args) + (pgg-gpg-process-region start end pgg-gpg-program args) ) (pgg-process-when-success - (pgg-convert-lbt-region (point-min)(point-max) 'LF) - (let ((packet - (cdr (assq 1 (pgg-parse-armor-region - (point-min)(point-max)))))) - (pgg-add-passphrase-cache - (cdr (assq 'key-identifier packet)) - passphrase))) + (pgg-convert-lbt-region (point-min)(point-max) 'LF)) )) (luna-define-method decrypt-region ((scheme pgg-scheme-gpg) -- 1.7.10.4