Function: mml2015-epg-key-image-to-string

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

Signature

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

Documentation

Return a string with the image of a key, if any.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mml2015.el.gz
(defun mml2015-epg-key-image-to-string (key-id)
  "Return a string with the image of a key, if any."
  (let ((key-image (mml2015-epg-key-image key-id)))
    (if (not key-image)
	""
      (condition-case nil
	  (let ((result (copy-sequence "  ")))
	    (put-text-property
	     1 2 'display
	     (gnus-rescale-image key-image
				 (cons mml2015-maximum-key-image-dimension
				       mml2015-maximum-key-image-dimension))
	     result)
	    result)
	(error "")))))