From: ueno <ueno>
Date: Sat, 6 Nov 1999 11:52:38 +0000 (+0000)
Subject: * pgg-gpg.el (sign-region): Use `pgg-as-lbt'.
X-Git-Tag: emiko-1_13_7~40
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e6348d85b84127e3bbede52b563af0787df13382;p=elisp%2Fsemi.git

* pgg-gpg.el (sign-region): Use `pgg-as-lbt'.
(pgg-gpg-process-region): Use `pgg-convert-lbt-region'.
(encrypt-region): Don't ask passphrase.
---

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)