[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/pgg-pgp.el
From: |
Simon Josefsson |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/pgg-pgp.el |
Date: |
Sat, 08 Oct 2005 04:45:32 -0400 |
Index: emacs/lisp/gnus/pgg-pgp.el
diff -c emacs/lisp/gnus/pgg-pgp.el:1.5 emacs/lisp/gnus/pgg-pgp.el:1.6
*** emacs/lisp/gnus/pgg-pgp.el:1.5 Sat Aug 6 19:51:42 2005
--- emacs/lisp/gnus/pgg-pgp.el Sat Oct 8 08:45:31 2005
***************
*** 149,162 ****
(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))
(passphrase
(pgg-read-passphrase
! (format "PGP passphrase for %s: " pgg-pgp-user-id)
! (pgg-pgp-lookup-key pgg-pgp-user-id 'encrypt)))
(args
'("+verbose=1" "+batchmode" "+language=us" "-f")))
(pgg-pgp-process-region start end passphrase pgg-pgp-program args)
! (pgg-process-when-success nil)))
(defun pgg-pgp-sign-region (start end &optional clearsign)
"Make detached signature from text between START and END."
--- 149,164 ----
(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) key))
(args
'("+verbose=1" "+batchmode" "+language=us" "-f")))
(pgg-pgp-process-region start end passphrase pgg-pgp-program args)
! (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."
- [Emacs-diffs] Changes to emacs/lisp/gnus/pgg-pgp.el,
Simon Josefsson <=