emacs-diffs
[Top][All Lists]
Advanced

[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."




reply via email to

[Prev in Thread] Current Thread [Next in Thread]