Mercurial > hg > xemacs-beta

comparison lisp/w3/mm.el @ 122:d2f30a177268 r20-1b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b14
author cvs
date Mon, 13 Aug 2007 09:26:03 +0200
parents 7d55a9ba150c
children 34a5b81f86ba
comparison
equal deleted inserted replaced
121:419db647c998 122:d2f30a177268
428 (setq path (mapconcat 'expand-file-name '("~/mail.cap" "~/etc/mail.cap") 428 (setq path (mapconcat 'expand-file-name '("~/mail.cap" "~/etc/mail.cap")
429 ";"))) 429 ";")))
430 (t (setq path (concat "/etc/mailcap:/usr/etc/mailcap:" 430 (t (setq path (concat "/etc/mailcap:/usr/etc/mailcap:"
431 "/usr/local/etc/mailcap:" 431 "/usr/local/etc/mailcap:"
432 (expand-file-name "~/.mailcap"))))) 432 (expand-file-name "~/.mailcap")))))
433 (let ((fnames (mm-string-to-tokens path 433 (let ((fnames (reverse
434 (if (memq system-type 434 (mm-string-to-tokens path
435 '(ms-dos ms-windows windows-nt)) 435 (if (memq system-type
436 ?; 436 '(ms-dos ms-windows windows-nt))
437 ?:))) fname) 437 ? ;
438 ?:))))
439 fname)
438 (while fnames 440 (while fnames
439 (setq fname (car fnames)) 441 (setq fname (car fnames))
440 (if (and (file-exists-p fname) (file-readable-p fname)) 442 (if (and (file-exists-p fname) (file-readable-p fname))
441 (mm-parse-mailcap (car fnames))) 443 (mm-parse-mailcap (car fnames)))
442 (setq fnames (cdr fnames))))) 444 (setq fnames (cdr fnames)))))
973 '("~/mime.typ" "~/etc/mime.typ") ";"))) 975 '("~/mime.typ" "~/etc/mime.typ") ";")))
974 (t (setq path (concat (expand-file-name "~/.mime-types") ":" 976 (t (setq path (concat (expand-file-name "~/.mime-types") ":"
975 "/etc/mime-types:/usr/etc/mime-types:" 977 "/etc/mime-types:/usr/etc/mime-types:"
976 "/usr/local/etc/mime-types:" 978 "/usr/local/etc/mime-types:"
977 "/usr/local/www/conf/mime-types")))) 979 "/usr/local/www/conf/mime-types"))))
978 (let ((fnames (mm-string-to-tokens path 980 (let ((fnames (reverse
979 (if (memq system-type 981 (mm-string-to-tokens path
980 '(ms-dos ms-windows windows-nt)) 982 (if (memq system-type
981 ?; 983 '(ms-dos ms-windows windows-nt))
982 ?:))) fname) 984 ? ;
985 ?:))))
986 fname)
983 (while fnames 987 (while fnames
984 (setq fname (car fnames)) 988 (setq fname (car fnames))
985 (if (and (file-exists-p fname) (file-readable-p fname)) 989 (if (and (file-exists-p fname) (file-readable-p fname))
986 (mm-parse-mimetype-file (car fnames))) 990 (mm-parse-mimetype-file (car fnames)))
987 (setq fnames (cdr fnames))))) 991 (setq fnames (cdr fnames)))))