Mercurial > emacs

diff lisp/gnus/pgg-pgp.el @ 65923:30343c286601

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* pgg-pgp.el (pgg-pgp-decrypt-region): Use passphrase cache.
author Simon Josefsson <jas@extundo.com>
date Sat, 08 Oct 2005 08:45:31 +0000
parents fafd692d1e40
children
line wrap: on
line diff
--- a/lisp/gnus/pgg-pgp.el	Sat Oct 08 08:44:21 2005 +0000
+++ b/lisp/gnus/pgg-pgp.el	Sat Oct 08 08:45:31 2005 +0000
@@ -149,14 +149,16 @@
 (defun pgg-pgp-decrypt-region (start end)
   "Decrypt the current region between START and END."
   (let* ((pgg-pgp-user-id (or pgg-pgp-user-id pgg-default-user-id))
+	 (key (pgg-pgp-lookup-key pgg-pgp-user-id 'encrypt))
 	 (passphrase
 	  (pgg-read-passphrase
-	   (format "PGP passphrase for %s: " pgg-pgp-user-id)
-	   (pgg-pgp-lookup-key pgg-pgp-user-id 'encrypt)))
+	   (format "PGP passphrase for %s: " pgg-pgp-user-id) key))
 	 (args
 	  '("+verbose=1" "+batchmode" "+language=us" "-f")))
     (pgg-pgp-process-region start end passphrase pgg-pgp-program args)
-    (pgg-process-when-success nil)))
+    (pgg-process-when-success
+      (if pgg-cache-passphrase
+	  (pgg-add-passphrase-cache key passphrase)))))
 
 (defun pgg-pgp-sign-region (start end &optional clearsign)
   "Make detached signature from text between START and END."