Mercurial > hg > xemacs-beta

comparison lisp/w3/mm.el @ 179:9ad43877534d r20-3b16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b16
author cvs
date Mon, 13 Aug 2007 09:52:19 +0200
parents 5a88923fcbfe
children
comparison
equal deleted inserted replaced
178:e703507b8a00 179:9ad43877534d
1031 extns (cdr extns))))))) 1031 extns (cdr extns)))))))
1032 1032
1033 (defun mm-extension-to-mime (extn) 1033 (defun mm-extension-to-mime (extn)
1034 "Return the MIME content type of the file extensions EXTN" 1034 "Return the MIME content type of the file extensions EXTN"
1035 (if (and (stringp extn) 1035 (if (and (stringp extn)
1036 (not (= (string-to-char extn) ?.))) 1036 (not (eq (string-to-char extn) ?.)))
1037 (setq extn (concat "." extn))) 1037 (setq extn (concat "." extn)))
1038 (cdr (assoc (downcase extn) mm-mime-extensions))) 1038 (cdr (assoc (downcase extn) mm-mime-extensions)))
1039 1039
1040 1040
1041 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 1041 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;