Function: mh-file-mime-type-substitute

mh-file-mime-type-substitute is a byte-compiled function defined in mh-mime.el.gz.

Signature

(mh-file-mime-type-substitute CONTENT-TYPE FILENAME)

Documentation

Return possibly changed CONTENT-TYPE on the FILENAME.

Substitutions are made from the mh-file-mime-type-substitutions variable.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-mime.el.gz
(defun mh-file-mime-type-substitute (content-type filename)
  "Return possibly changed CONTENT-TYPE on the FILENAME.
Substitutions are made from the `mh-file-mime-type-substitutions'
variable."
  (let ((subst mh-file-mime-type-substitutions)
        (type) (match) (answer content-type)
        (case-fold-search t))
    (while subst
      (setq type (car (car subst))
            match (elt (car subst) 1))
      (if (and (string-equal content-type type)
               (string-match match filename))
          (setq answer (elt (car subst) 2)
                subst nil)
        (setq subst (cdr subst))))
    answer))