Function: mml2015-epg-key-image

mml2015-epg-key-image is a byte-compiled function defined in mml2015.el.gz.

Signature

(mml2015-epg-key-image KEY-ID)

Documentation

Return the image of a key, if any.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mml2015.el.gz
(defun mml2015-epg-key-image (key-id)
  "Return the image of a key, if any."
  (with-temp-buffer
    (set-buffer-multibyte nil)
    (let* ((coding-system-for-write 'binary)
           (coding-system-for-read 'binary)
           (data (shell-command-to-string
                  (format "%s --list-options no-show-photos --attribute-fd 3 --list-keys %s 3>&1 >%s 2>&1"
                          (shell-quote-argument epg-gpg-program)
			  key-id null-device))))
      (when (> (length data) 0)
        (insert (substring data 16))
	(condition-case nil
	    (gnus-create-image (buffer-string) nil t)
	  (error))))))