Function: mailcap-select-preferred-viewer

mailcap-select-preferred-viewer is a byte-compiled function defined in mailcap.el.gz.

Signature

(mailcap-select-preferred-viewer TYPE-INFO)

Documentation

Return an applicable viewer entry from mailcap-user-mime-data.

Source Code

;; Defined in /usr/src/emacs/lisp/net/mailcap.el.gz
(defun mailcap-select-preferred-viewer (type-info)
  "Return an applicable viewer entry from `mailcap-user-mime-data'."
  (let ((info (mapcar (lambda (a) (cons (symbol-name (car a))
                                   (cdr a)))
                      (cdr type-info)))
        viewer)
    (dolist (entry mailcap-user-mime-data)
      (when (and (null viewer)
                 (string-match (concat "^" (cdr (assq 'type entry)) "$")
                               (car type-info))
                 (mailcap-viewer-passes-test entry info))
        (setq viewer entry)))
    viewer))