Function: mh-small-image-p

mh-small-image-p is a byte-compiled function defined in mh-mime.el.gz.

Signature

(mh-small-image-p HANDLE)

Documentation

Decide whether HANDLE is a "small" image that can be displayed inline.

This is only useful if a Content-Disposition header is not present.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-mime.el.gz
(defun mh-small-image-p (handle)
  "Decide whether HANDLE is a \"small\" image that can be displayed inline.
This is only useful if a Content-Disposition header is not present."
  (let ((media-test (caddr (assoc (car (mm-handle-type handle))
                                  mh-mm-inline-media-tests)))
        (mm-inline-large-images t))
    (and media-test
         (equal (mm-handle-media-supertype handle) "image")
         (funcall media-test handle) ; Since mm-inline-large-images is T,
                                        ; this only tells us if the image is
                                        ; something that emacs can display
         (let ((image (mm-get-image handle)))
           (let ((size (and (fboundp 'image-size) (image-size image))))
             (and size
                  (< (cdr size) (or mh-max-inline-image-height
                                    (1- (window-height))))
                  (< (car size) (or mh-max-inline-image-width
                                    (window-width)))))))))