Function: gnus-shr-put-image

gnus-shr-put-image is a byte-compiled function defined in gnus-art.el.gz.

Signature

(gnus-shr-put-image DATA ALT &optional FLAGS)

Documentation

Put image DATA with a string ALT. Enable image to be deleted.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-art.el.gz
(defun gnus-shr-put-image (data alt &optional flags)
  "Put image DATA with a string ALT.  Enable image to be deleted."
  (let ((image (if flags
		   (shr-put-image data (propertize (or alt "*")
						   'gnus-image-category 'shr)
				  flags)
		 ;; Old `shr-put-image' doesn't take the optional `flags'
		 ;; argument.
		 (shr-put-image data (propertize (or alt "*")
						 'gnus-image-category 'shr)))))
    (when image
      (gnus-add-image 'shr image))))