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