Function: pgg-pgp-encrypt-region

pgg-pgp-encrypt-region is a byte-compiled function defined in pgg-pgp.el.gz.

Signature

(pgg-pgp-encrypt-region START END RECIPIENTS &optional SIGN PASSPHRASE)

Documentation

Encrypt the current region between START and END.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/pgg-pgp.el.gz
(defun pgg-pgp-encrypt-region (start end recipients &optional sign passphrase)
  "Encrypt the current region between START and END."
  (let* ((pgg-pgp-user-id (or pgg-pgp-user-id pgg-default-user-id))
	 (_passphrase (or passphrase
			 (when sign
			   (pgg-read-passphrase
			    (format "PGP passphrase for %s: "
				    pgg-pgp-user-id)
			    pgg-pgp-user-id))))
	 (args
	  (concat
	   "+encrypttoself=off +verbose=1 +batchmode +language=us -fate "
           (if (or recipients pgg-encrypt-for-me)
               (mapconcat #'shell-quote-argument
                          (append recipients
                                  (if pgg-encrypt-for-me
                                      (list pgg-pgp-user-id)))
                          " "))
           (if sign (concat " -s -u " (shell-quote-argument pgg-pgp-user-id))))))
    (pgg-pgp-process-region start end nil pgg-pgp-program args)
    (pgg-process-when-success nil)))