Function: pgg-pgp5-verify-region

pgg-pgp5-verify-region is a byte-compiled function defined in pgg-pgp5.el.gz.

Signature

(pgg-pgp5-verify-region START END &optional SIGNATURE)

Documentation

Verify region between START and END as the detached signature SIGNATURE.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/pgg-pgp5.el.gz
(defun pgg-pgp5-verify-region (start end &optional signature)
  "Verify region between START and END as the detached signature SIGNATURE."
  (let ((orig-file (pgg-make-temp-file "pgg"))
	(args '("+verbose=1" "+batchmode=1" "+language=us")))
    (with-file-modes 448
      (defvar jam-zcat-filename-list)   ;Not sure where this comes from.
      (let ((coding-system-for-write 'binary)
	    jka-compr-compression-info-list jam-zcat-filename-list)
	(write-region start end orig-file)))
    (when (stringp signature)
      (copy-file signature (setq signature (concat orig-file ".asc")))
      (setq args (append args (list signature))))
    (pgg-pgp5-process-region (point)(point) nil pgg-pgp5-pgpv-program args)
    (delete-file orig-file)
    (if signature (delete-file signature))
    (with-current-buffer pgg-errors-buffer
      (goto-char (point-min))
      (if (re-search-forward "^Good signature" nil t)
	  (progn
	    (set-buffer pgg-output-buffer)
	    (insert-buffer-substring pgg-errors-buffer)
	    t)
	nil))))