Variable: mh-mm-inline-media-tests

mh-mm-inline-media-tests is a variable defined in mh-mime.el.gz.

Value

(("image/jpeg" mm-inline-image
  (lambda (handle) (mm-valid-and-fit-image-p 'jpeg handle)))
 ("image/png" mm-inline-image
  (lambda (handle) (mm-valid-and-fit-image-p 'png handle)))
 ("image/gif" mm-inline-image
  (lambda (handle) (mm-valid-and-fit-image-p 'gif handle)))
 ("image/tiff" mm-inline-image
  (lambda (handle) (mm-valid-and-fit-image-p 'tiff handle)))
 ("image/xbm" mm-inline-image
  (lambda (handle) (mm-valid-and-fit-image-p 'xbm handle)))
 ("image/x-xbitmap" mm-inline-image
  (lambda (handle) (mm-valid-and-fit-image-p 'xbm handle)))
 ("image/xpm" mm-inline-image
  (lambda (handle) (mm-valid-and-fit-image-p 'xpm handle)))
 ("image/x-pixmap" mm-inline-image
  (lambda (handle) (mm-valid-and-fit-image-p 'xpm handle)))
 ("image/bmp" mm-inline-image
  (lambda (handle) (mm-valid-and-fit-image-p 'bmp handle)))
 ("image/x-portable-bitmap" mm-inline-image
  (lambda (handle) (mm-valid-and-fit-image-p 'pbm handle)))
 ("text/plain" mm-inline-text identity)
 ("text/enriched" mm-inline-text identity)
 ("text/richtext" mm-inline-text identity)
 ("text/x-patch" mm-display-patch-inline
  (lambda (handle) (locate-library "diff-mode")))
 ("application/emacs-lisp" mm-display-elisp-inline identity)
 ("application/x-emacs-lisp" mm-display-elisp-inline identity)
 ("text/html" mm-inline-text-html
  (lambda (handle) mm-text-html-renderer))
 ("text/x-vcard" mm-inline-text-vcard
  (lambda (handle) (or (featurep 'vcard) (locate-library "vcard"))))
 ("message/delivery-status" mm-inline-text identity)
 ("message/rfc822" mh-mm-inline-message identity)
 ("text/.*" mm-inline-text identity)
 ("audio/wav" mm-inline-audio
  (lambda (handle)
    (and (or (featurep 'nas-sound) (featurep 'native-sound))
	 (device-sound-enabled-p))))
 ("audio/au" mm-inline-audio
  (lambda (handle)
    (and (or (featurep 'nas-sound) (featurep 'native-sound))
	 (device-sound-enabled-p))))
 ("application/pgp-signature" ignore identity)
 ("application/x-pkcs7-signature" ignore identity)
 ("application/pkcs7-signature" ignore identity)
 ("application/x-pkcs7-mime" ignore identity)
 ("application/pkcs7-mime" ignore identity)
 ("multipart/alternative" ignore identity)
 ("multipart/mixed" ignore identity)
 ("multipart/related" ignore identity) ("audio/.*" ignore ignore)
 ("image/.*" ignore ignore) (".*" mm-inline-text mm-readable-p))

Documentation

Alist of media types/tests saying whether types can be displayed inline.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-mime.el.gz
  (part-index-hash (make-hash-table)))  ; Avoid incrementing the part number
                                        ; for nested messages

(defvar mh-mm-inline-media-tests
  `(("image/jpeg"
     mm-inline-image
     (lambda (handle)
       (mm-valid-and-fit-image-p 'jpeg handle)))
    ("image/png"
     mm-inline-image
     (lambda (handle)
       (mm-valid-and-fit-image-p 'png handle)))
    ("image/gif"
     mm-inline-image
     (lambda (handle)
       (mm-valid-and-fit-image-p 'gif handle)))
    ("image/tiff"
     mm-inline-image
     (lambda (handle)
       (mm-valid-and-fit-image-p 'tiff handle)) )
    ("image/xbm"
     mm-inline-image
     (lambda (handle)
       (mm-valid-and-fit-image-p 'xbm handle)))
    ("image/x-xbitmap"
     mm-inline-image
     (lambda (handle)
       (mm-valid-and-fit-image-p 'xbm handle)))
    ("image/xpm"
     mm-inline-image
     (lambda (handle)
       (mm-valid-and-fit-image-p 'xpm handle)))
    ("image/x-pixmap"
     mm-inline-image
     (lambda (handle)
       (mm-valid-and-fit-image-p 'xpm handle)))
    ("image/bmp"
     mm-inline-image
     (lambda (handle)
       (mm-valid-and-fit-image-p 'bmp handle)))
    ("image/x-portable-bitmap"
     mm-inline-image
     (lambda (handle)
       (mm-valid-and-fit-image-p 'pbm handle)))
    ("text/plain" mm-inline-text identity)
    ("text/enriched" mm-inline-text identity)
    ("text/richtext" mm-inline-text identity)
    ("text/x-patch" mm-display-patch-inline
     (lambda (handle)
       (locate-library "diff-mode")))
    ("application/emacs-lisp" mm-display-elisp-inline identity)
    ("application/x-emacs-lisp" mm-display-elisp-inline identity)
    ("text/html"
     mm-inline-text-html
     (lambda (handle)
       mm-text-html-renderer))
    ("text/x-vcard"
     mm-inline-text-vcard
     (lambda (handle)
       (or (featurep 'vcard)
           (locate-library "vcard"))))
    ("message/delivery-status" mm-inline-text identity)
    ("message/rfc822" mh-mm-inline-message identity)
    ;;("message/partial" mm-inline-partial identity)
    ;;("message/external-body" mm-inline-external-body identity)
    ("text/.*" mm-inline-text identity)
    ("audio/wav" mm-inline-audio
     (lambda (handle)
       (and (or (featurep 'nas-sound) (featurep 'native-sound))
            (device-sound-enabled-p))))
    ("audio/au"
     mm-inline-audio
     (lambda (handle)
       (and (or (featurep 'nas-sound) (featurep 'native-sound))
            (device-sound-enabled-p))))
    ("application/pgp-signature" ignore identity)
    ("application/x-pkcs7-signature" ignore identity)
    ("application/pkcs7-signature" ignore identity)
    ("application/x-pkcs7-mime" ignore identity)
    ("application/pkcs7-mime" ignore identity)
    ("multipart/alternative" ignore identity)
    ("multipart/mixed" ignore identity)
    ("multipart/related" ignore identity)
    ;; Disable audio and image
    ("audio/.*" ignore ignore)
    ("image/.*" ignore ignore)
    ;; Default to displaying as text
    (".*" mm-inline-text mm-readable-p))
  "Alist of media types/tests saying whether types can be displayed inline.")