Function: pgg-pgp5-lookup-key

pgg-pgp5-lookup-key is a byte-compiled function defined in pgg-pgp5.el.gz.

Signature

(pgg-pgp5-lookup-key STRING &optional TYPE)

Documentation

Search keys associated with STRING.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/pgg-pgp5.el.gz
(defun pgg-pgp5-lookup-key (string &optional _type)
  "Search keys associated with STRING."
  (let ((args (list "+language=en" "-l" string)))
    (with-current-buffer (get-buffer-create pgg-output-buffer)
      (buffer-disable-undo)
      (erase-buffer)
      (apply #'call-process pgg-pgp5-pgpk-program nil t nil args)
      (goto-char (point-min))
      (when (re-search-forward "^sec" nil t)
	(substring
	 (nth 2 (split-string
		 (buffer-substring (match-end 0)(progn (end-of-line)(point)))))
	 2)))))