Function: mm-inline-image

mm-inline-image is a byte-compiled function defined in mm-view.el.gz.

Signature

(mm-inline-image HANDLE)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mm-view.el.gz
(defun mm-inline-image (handle)
  (let ((b (point-marker))
	(inhibit-read-only t))
    (insert-image
     (let ((image (mm-get-image handle)))
       (if (eq mm-inline-large-images 'resize)
           (gnus-rescale-image
	    image
	    (let ((edges (window-inside-pixel-edges
			  (get-buffer-window (current-buffer)))))
	      (cons (truncate (* mm-inline-large-images-proportion
				 (- (nth 2 edges) (nth 0 edges))))
		    (truncate (* mm-inline-large-images-proportion
				 (- (nth 3 edges) (nth 1 edges)))))))
         image))
     "x")
    (insert "\n")
    (mm-handle-set-undisplayer
     handle
     (lambda ()
       (let ((inhibit-read-only t))
	 (remove-images b b)
	 (delete-region b (+ b 2)))))))