/[emacs]/emacs/lisp/gnus/pgg-pgp.el
ViewVC logotype

Diff of /emacs/lisp/gnus/pgg-pgp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by ttn, Sat Aug 6 19:51:42 2005 UTC revision 1.6 by jas, Sat Oct 8 08:45:31 2005 UTC
# Line 149  Bourne shell or its equivalent \(not tcs Line 149  Bourne shell or its equivalent \(not tcs
149  (defun pgg-pgp-decrypt-region (start end)  (defun pgg-pgp-decrypt-region (start end)
150    "Decrypt the current region between START and END."    "Decrypt the current region between START and END."
151    (let* ((pgg-pgp-user-id (or pgg-pgp-user-id pgg-default-user-id))    (let* ((pgg-pgp-user-id (or pgg-pgp-user-id pgg-default-user-id))
152             (key (pgg-pgp-lookup-key pgg-pgp-user-id 'encrypt))
153           (passphrase           (passphrase
154            (pgg-read-passphrase            (pgg-read-passphrase
155             (format "PGP passphrase for %s: " pgg-pgp-user-id)             (format "PGP passphrase for %s: " pgg-pgp-user-id) key))
            (pgg-pgp-lookup-key pgg-pgp-user-id 'encrypt)))  
156           (args           (args
157            '("+verbose=1" "+batchmode" "+language=us" "-f")))            '("+verbose=1" "+batchmode" "+language=us" "-f")))
158      (pgg-pgp-process-region start end passphrase pgg-pgp-program args)      (pgg-pgp-process-region start end passphrase pgg-pgp-program args)
159      (pgg-process-when-success nil)))      (pgg-process-when-success
160          (if pgg-cache-passphrase
161              (pgg-add-passphrase-cache key passphrase)))))
162    
163  (defun pgg-pgp-sign-region (start end &optional clearsign)  (defun pgg-pgp-sign-region (start end &optional clearsign)
164    "Make detached signature from text between START and END."    "Make detached signature from text between START and END."

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26