;ELC ;;; Compiled by amu@quiche-lorraine.mit.edu on Thu Jan 6 19:17:54 2000 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.3/lisp/mailcap.el ;;; in Emacs version 20.4.1 ;;; with bytecomp version 2.56 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`mailcap.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require mail-parse mm-util] 2) #@45 A syntax table for parsing sgml attributes. (defvar mailcap-parse-args-syntax-table (byte-code "\302!\303\304\305 #\210\303\306\305 #\210\303\307\310 #\210\303\311\312 #\210 )\207" [emacs-lisp-mode-syntax-table table copy-syntax-table modify-syntax-entry 39 "\"" 96 123 "(" 125 ")"] 4) (#$ . 713)) #@970 The mailcap structure is an assoc list of assoc lists. 1st assoc list is keyed on the major content-type 2nd assoc list is keyed on the minor content-type (which can be a regexp) Which looks like: ----------------- (("application" ("postscript" . )) ("text" ("plain" . ))) Where is another assoc list of the various information related to the mailcap RFC. This is keyed on the lowercase attribute name (viewer, test, etc). This looks like: ((viewer . viewerinfo) (test . testinfo) (xxxx . "string")) Where viewerinfo specifies how the content-type is viewed. Can be a string, in which case it is run through a shell, with appropriate parameters, or a symbol, in which case the symbol is funcall'd, with the buffer as an argument. testinfo is a list of strings, or nil. If nil, it means the viewer specified is always valid. If it is a list of strings, these are used to determine whether a viewer passes the 'test' or not. (defvar mailcap-mime-data '(("application" ("x-x509-ca-cert" (viewer . ssl-view-site-cert) (test fboundp 'ssl-view-site-cert) (type . "application/x-x509-ca-cert")) ("x-x509-user-cert" (viewer . ssl-view-user-cert) (test fboundp 'ssl-view-user-cert) (type . "application/x-x509-user-cert")) ("octet-stream" (viewer . mailcap-save-binary-file) (non-viewer . t) (type . "application/octet-stream")) ("dvi" (viewer . "open %s") (type . "application/dvi") (test eq (mm-device-type) 'ns)) ("dvi" (viewer . "xdvi %s") (test eq (mm-device-type) 'x) ("needsx11") (type . "application/dvi")) ("dvi" (viewer . "dvitty %s") (test not (getenv "DISPLAY")) (type . "application/dvi")) ("emacs-lisp" (viewer . mailcap-maybe-eval) (type . "application/emacs-lisp")) ("x-tar" (viewer . mailcap-save-binary-file) (non-viewer . t) (type . "application/x-tar")) ("x-latex" (viewer . tex-mode) (test fboundp 'tex-mode) (type . "application/x-latex")) ("x-tex" (viewer . tex-mode) (test fboundp 'tex-mode) (type . "application/x-tex")) ("latex" (viewer . tex-mode) (test fboundp 'tex-mode) (type . "application/latex")) ("tex" (viewer . tex-mode) (test fboundp 'tex-mode) (type . "application/tex")) ("texinfo" (viewer . texinfo-mode) (test fboundp 'texinfo-mode) (type . "application/tex")) ("zip" (viewer . mailcap-save-binary-file) (non-viewer . t) (type . "application/zip") ("copiousoutput")) ("pdf" (viewer . "acroread %s") (type . "application/pdf")) ("postscript" (viewer . "open %s") (type . "application/postscript") (test eq (mm-device-type) 'ns)) ("postscript" (viewer . "ghostview -dSAFER %s") (type . "application/postscript") (test eq (mm-device-type) 'x) ("needsx11")) ("postscript" (viewer . "ps2ascii %s") (type . "application/postscript") (test not (getenv "DISPLAY")) ("copiousoutput"))) ("audio" ("x-mpeg" (viewer . "maplay %s") (type . "audio/x-mpeg")) (".*" (viewer . "showaudio") (type . "audio/*"))) ("message" ("rfc-*822" (viewer . mm-view-message) (test and (featurep 'gnus) (gnus-alive-p)) (type . "message/rfc822")) ("rfc-*822" (viewer . vm-mode) (test fboundp 'vm-mode) (type . "message/rfc822")) ("rfc-*822" (viewer . w3-mode) (test fboundp 'w3-mode) (type . "message/rfc822")) ("rfc-*822" (viewer . view-mode) (test fboundp 'view-mode) (type . "message/rfc822")) ("rfc-*822" (viewer . fundamental-mode) (type . "message/rfc822"))) ("image" ("x-xwd" (viewer . "xwud -in %s") (type . "image/x-xwd") ("compose" . "xwd -frame > %s") (test eq (mm-device-type) 'x) ("needsx11")) ("x11-dump" (viewer . "xwud -in %s") (type . "image/x-xwd") ("compose" . "xwd -frame > %s") (test eq (mm-device-type) 'x) ("needsx11")) ("windowdump" (viewer . "xwud -in %s") (type . "image/x-xwd") ("compose" . "xwd -frame > %s") (test eq (mm-device-type) 'x) ("needsx11")) (".*" (viewer . "aopen %s") (type . "image/*") (test eq (mm-device-type) 'ns)) (".*" (viewer . "display %s") (type . "image/*") (test eq (mm-device-type) 'x) ("needsx11")) (".*" (viewer . "ee %s") (type . "image/*") (test eq (mm-device-type) 'x) ("needsx11"))) ("text" ("plain" (viewer . w3-mode) (test fboundp 'w3-mode) (type . "text/plain")) ("plain" (viewer . view-mode) (test fboundp 'view-mode) (type . "text/plain")) ("plain" (viewer . fundamental-mode) (type . "text/plain")) ("enriched" (viewer . enriched-decode-region) (test fboundp 'enriched-decode) (type . "text/enriched")) ("html" (viewer . mm-w3-prepare-buffer) (test fboundp 'w3-prepare-buffer) (type . "text/html"))) ("video" ("mpeg" (viewer . "mpeg_play %s") (type . "video/mpeg") (test eq (mm-device-type) 'x) ("needsx11"))) ("x-world" ("x-vrml" (viewer . "webspace -remote %s -URL %u") (type . "x-world/x-vrml") ("description" "VRML document"))) ("archive" ("tar" (viewer . tar-mode) (type . "archive/tar") (test fboundp 'tar-mode)))) (#$ . 1020)) #@47 *Where downloaded files should go by default. (defvar mailcap-download-directory nil (#$ . -5770)) #@28 *Where temporary files go. (defvar mailcap-temporary-directory (byte-code "\301\302!\203 \302 \207\303\300!\203\207\304\207" [temporary-file-directory fboundp temp-directory boundp "/tmp/"] 2) (#$ . -5875)) #@60 Generate a unique filename in mailcap-temporary-directory. (defalias 'mailcap-generate-unique-filename #[(&optional fmt) "\204/\305\306\307 \"\310\311\305\312 #\313\314\n\f\"!\203) T \315 !P\202\314\n\f\"+\207\316\315\307 !P\310\311\305 \315 !P\"\313\314\n\f\"!\203[ T\305 \315 !P\"\202C\314\n\f\"+\207" [fmt x fname base mailcap-temporary-directory format "mailcap-tmp.%d" user-real-uid "" 0 "%s%d" file-exists-p expand-file-name int-to-string "mm"] 5 (#$ . 6092)]) (defalias 'mailcap-save-binary-file #[nil "eb\210\303\216\304\305\206\f\306\"\307\310ed\n#+\207" [mailcap-download-directory require-final-newline file ((byte-code "\300p!\207" [kill-buffer] 2)) read-file-name "Filename to save as: " "~/" nil write-region] 4]) #@45 Maybe evaluate a buffer of emacs lisp code. (defalias 'mailcap-maybe-eval #[nil "\300\301!\203\n\302p!\207\303 \207" [yes-or-no-p "This is emacs-lisp code, evaluate it? " eval-buffer emacs-lisp-mode] 2 (#$ . 6852)]) (defalias 'mailcap-replace-regexp #[(regexp to-string) "eb\210\302\303\304#\205\305 \304\303#\210\202\207" [regexp to-string re-search-forward nil t replace-match] 4]) (byte-code "\302\300!\204\303\300 B\303\207" [mailcap-parsed-p current-load-list boundp nil] 2) #@115 Parse out all the mailcaps specified in a unix-style path string PATH. If FORCE, re-parse even if already parsed. (defalias 'mailcap-parse-mailcaps #[(&optional path force) "\203 \205j\n\204.\306\307!\203\306\307!\202. \310>\203(\311\312\313\314#\202.\311\312\315\316#\317\320\n \321>\203;\314\202<\316\"!\322\211\203f @\323\f!\203_\324\f!\203_\325\f!\203_\326 @!\210 A\211\204E*\327\211\207" [mailcap-parsed-p force path system-type fname fnames getenv "MAILCAPS" (ms-dos ms-windows windows-nt) mapconcat expand-file-name ("~/mail.cap" "~/etc/mail.cap" "~/.mailcap") ";" ("~/.mailcap" "/etc/mailcap:/usr/etc/mailcap" "/usr/local/etc/mailcap") ":" reverse split-string (ms-dos ms-windows windows-nt) nil file-exists-p file-readable-p file-regular-p mailcap-parse-mailcap t] 6 (#$ . 7349) (list nil t)]) (defalias 'mailcap-parse-mailcap #[(fname) "\306\211\211\211\211\307\310\311!!\312\216r q\210\313-!\210\314.!\210\315\316\317\"\210\315\320\321\"\210\315\322\323\"\210\315\324\325!\326P\317\"\210db\210\327\306x\210`d|\210eb\210m?\205\"\327\306w\210`\306\330\306w\210\331\n`\"\210\n`{\327\306w\210\317\306f\332=\203\236\306u\210\327\306w\210`\333\306w\210\331\n`\"\210\nf\206\205\334\335=\203\216\336\202\235`\nU\203\230\336\202\235\324\n`{!\327\306w\210\317\306f\337=\203\360\306u\210\327\306w\210`\340\306w\210\341 \342=\203\315\343\344!\210\306u\210\340\306w\210\202\270\nf\206\323\334\345=\203\354\nT`}\210eb\210\346p!db\210~\210\202\360\n`{`\306\210 \317\232\204F\301 B\347\f\350 \336\230\203 \351\202\f QBD\352\n`\"\244\353!\210\354\f #\210\202F.\207" [info viewer save-pos minor major #1=#:temp-buffer nil get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents set-syntax-table mailcap-replace-regexp "#.*" "" "\n+" "\n" "\\\\[ \n]+" " " regexp-quote "\\" "[ ]*\n" " \n" "^/; \n" downcase-region 47 "^; \n" 0 42 ".*" 59 "^;\n" char-before 92 backward-delete-char 1 39 read type "/" "*" mailcap-parse-mailcap-extras mailcap-mailcap-entry-passes-test mailcap-add-mailcap-entry fname mailcap-parse-args-syntax-table] 6]) (defalias 'mailcap-parse-mailcap-extras #[(st nd) "\306\211\211\211\211\211\214}\210eb\210\307\306w\210m\204\215\306`\310\306w\210\311\n`\"\210\n`{\312\306w\210`f\313=\204?\314\202\200\315\306w\210`\211f\316>\203W T\306\317\320\217\210\202|\204|\321\306w\210`Sf\322=\203v\323`S`\322\324$\210\325\306w\210\202W\314\211\203[ `{ \fB B\326\306w\210\202 .\207" [done val-pos name-pos results value name nil " \n ;" "^ \n =;" downcase-region " \n" 61 t " \n=" (34 39) (byte-code "\300\301!\210\302\301!\207" [forward-sexp 1 backward-char] 2) ((error (byte-code "db\207" [] 1))) "^;" 92 subst-char-in-region 32 ";" " \";\n " st nd] 7]) (defalias 'mailcap-mailcap-entry-passes-test #[(info) "\303\301\236 \205\304 A\305\"\306\307\"\204%\306\310\"\204%\306\311\"\2030\312\313!\2040\303\202\202\n@\314\232\203Z\nA@\315\232\203Z\316\n8\317\232\204O\316\n8\320\232\203Z\312\313!\205V\321\202\202\n@\314\232\203\202\nA@\322\232\203\202\316\n8\317\232\204y\316\n8\320\232\203\202\312\313!?\205\201\321 \205\216 <\205\216 \n\241*\207" [info test status nil split-string " " assoc "needsterm" "needsterminal" "needsx11" getenv "DISPLAY" "test" "-n" 2 "$DISPLAY" "\"$DISPLAY\"" t "-z"] 3]) (defalias 'mailcap-possible-viewers #[(major minor) "\304\211\n\2033\n@@ \232\203\n@A B\202, \203,\305\n@@ \"\203,\n@AB\nA\211\204 \237\237\244*\207" [wildcard exact major minor nil string-match] 4]) (defalias 'mailcap-unescape-mime-test #[(test type-info) "\306\211\211 9\203 \202 <\203 @9\203 \202 ;\2048 <\203\374 @;\203\374\307\310 \311#\211\203\374\312\313\314!!\315\216r\fq\210 c\210eb\210m\204\366\316\306w\210`\317\306x\210`Z\320U\204i\321\322!\210\323\306w\210\202J`\324\306w\210`f\211\203J \325U\203\220\n\322u\210`|\210\326 \236A\206\213\327c\210\202J \330U\203\243\n\322u\210`|\210\327c\210\202J \331U\203\266\n\322u\210`|\210\327c\210\202J \332U\203\311\n\322u\210`|\210\327c\210\202J \333U\203J\322u\210\334\306w\210\335\n\336\\`\"\210\n\336\\`{\n`T|\210\337 \"A\206\361\327c\210\202J\340 +\202\341\342 \"+\207" [subst save-chr save-pos test #1=#:temp-buffer type-info nil mapconcat identity " " get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) "^%" "\\\\" 0 delete-char 1 "%." "%" 116 type "\"\"" 77 110 70 123 "^}" downcase-region 2 assoc buffer-string error "Bad value to mailcap-unescape-mime-test. %s"] 5]) (byte-code "\302\300!\204\303\300 B\303\207" [mailcap-viewer-test-cache current-load-list boundp nil] 2) (defalias 'mailcap-viewer-passes-test #[(viewer-info type-info) "\302\236\211A\211\306\304\"A\307\310!\311\311\311\311\306\n\"\211\2031A@\202\245 \2049\312\202\230\n\204A\311\202\230\n\312=\203K\312\202\230\n9\203]\313\n!\203]\n!\202\230\n9\203m\314\n!\203m\nJ\202\230\n<\203~\n@9\203~\315\n!\202\230\316\n\"\311\211\211\n\257\317\320\n\"\211\321U DB. \207" [viewer-info test-info test otest viewer default-directory assoc expand-file-name "~/" nil t fboundp boundp eval mailcap-unescape-mime-test apply call-process 0 status parsed-test cache result mailcap-viewer-test-cache type-info shell-file-name shell-command-switch] 7]) (defalias 'mailcap-add-mailcap-entry #[(major minor info) "\306 \"\211\204 \fBCB B\211\202K\306 \n\"\211\203%\307\f\236\2030\n \fB\nAB\241\202J\307\f\236\204B\307 \236\204B \f\241\202J\n \fB\nAB\241))\207" [major mailcap-mime-data old-major minor info cur-minor assoc test] 4]) #@75 Add VIEWER as a handler for TYPE. If TEST is not given, it defaults to t. (defalias 'mailcap-add #[(type viewer &optional test) "\304\305\"\211@\203 A@\204\306\307\"\210\310 @ A@\302\nB\303 \203' \202(\311B\300BE#)\207" [type tl viewer test split-string "/" error "%s is not a valid MIME type" mailcap-add-mailcap-entry t] 8 (#$ . 13146)]) (defalias 'mailcap-viewer-lessp #[(x y) "\306\307\310\236\243\206\n\311\"\306\307\310 \236\243\206\311\"\312\236\243\206\311;?\312 \236\243\206(\311;?\211\203:\f\204:\313\202S \204F\f\203F\314\202S\n\204R \203R\314\202S\313,\207" [x y y-lisp x-lisp y-wild x-wild string-match "[*?]" type "" viewer nil t] 6]) #@553 Get the MIME viewer command for STRING, return nil if none found. Expects a complete content-type header line as its argument. Second argument REQUEST specifies what information to return. If it is nil or the empty string, the viewer (second field of the mailcap entry) will be returned. If it is a string, then the mailcap field corresponding to that string will be returned (print, description, whatever). If a number, then all the information for this specific viewer is returned. If `all', then all possible viewers for this type is returned. (defalias 'mailcap-mime-info #[(string &optional request) "\306\211\211\211\211\211\211\211\211\211\211\212\307\206#\310!\311@\312\"\211A@@\313\"A\211\203w\314\"\211\203w\315\316A\" \203n\317 @\"\203g @\nB A\211\204Y\320\n\237\321\"\211@\301 \236A;\203\206\n\203\206\n@ \204\236\322\232\204\236\203\236\323\322\"\202\f\203\252\324\232\203\265\325\301 \236A\"\202\f;\203\326\304=\204\311\301=\205\f\325\313 \"\243\"\202\f\326=\203\341\n\202\f\327 !\301 \236\304 \236\211 \203\375 \325 A\"\241\210\f\203\n\f\325\fA\"\241\210* .\f\207" [ctl viewer passed viewers test minor-info nil mail-header-parse-content-type "text/plain" split-string "/" assoc mailcap-possible-viewers mapcar #[(a) "\301@!AB\207" [a symbol-name] 2] mailcap-viewer-passes-test sort mailcap-viewer-lessp "default" mailcap-mime-info "" mailcap-unescape-mime-test all copy-sequence major-info save-pos info minor major string mailcap-mime-data request view] 12 (#$ . 13833)]) #@72 An assoc list of file extensions and corresponding MIME content-types. (defvar mailcap-mime-extensions '(("" . "text/plain") (".abs" . "audio/x-mpeg") (".aif" . "audio/aiff") (".aifc" . "audio/aiff") (".aiff" . "audio/aiff") (".ano" . "application/x-annotator") (".au" . "audio/ulaw") (".avi" . "video/x-msvideo") (".bcpio" . "application/x-bcpio") (".bin" . "application/octet-stream") (".cdf" . "application/x-netcdr") (".cpio" . "application/x-cpio") (".csh" . "application/x-csh") (".dvi" . "application/x-dvi") (".el" . "application/emacs-lisp") (".eps" . "application/postscript") (".etx" . "text/x-setext") (".exe" . "application/octet-stream") (".fax" . "image/x-fax") (".gif" . "image/gif") (".hdf" . "application/x-hdf") (".hqx" . "application/mac-binhex40") (".htm" . "text/html") (".html" . "text/html") (".icon" . "image/x-icon") (".ief" . "image/ief") (".jpg" . "image/jpeg") (".macp" . "image/x-macpaint") (".man" . "application/x-troff-man") (".me" . "application/x-troff-me") (".mif" . "application/mif") (".mov" . "video/quicktime") (".movie" . "video/x-sgi-movie") (".mp2" . "audio/x-mpeg") (".mp3" . "audio/x-mpeg") (".mp2a" . "audio/x-mpeg2") (".mpa" . "audio/x-mpeg") (".mpa2" . "audio/x-mpeg2") (".mpe" . "video/mpeg") (".mpeg" . "video/mpeg") (".mpega" . "audio/x-mpeg") (".mpegv" . "video/mpeg") (".mpg" . "video/mpeg") (".mpv" . "video/mpeg") (".ms" . "application/x-troff-ms") (".nc" . "application/x-netcdf") (".nc" . "application/x-netcdf") (".oda" . "application/oda") (".patch" . "text/x-patch") (".pbm" . "image/x-portable-bitmap") (".pdf" . "application/pdf") (".pgm" . "image/portable-graymap") (".pict" . "image/pict") (".png" . "image/png") (".pnm" . "image/x-portable-anymap") (".ppm" . "image/portable-pixmap") (".ps" . "application/postscript") (".qt" . "video/quicktime") (".ras" . "image/x-raster") (".rgb" . "image/x-rgb") (".rtf" . "application/rtf") (".rtx" . "text/richtext") (".sh" . "application/x-sh") (".sit" . "application/x-stuffit") (".snd" . "audio/basic") (".src" . "application/x-wais-source") (".tar" . "archive/tar") (".tcl" . "application/x-tcl") (".tcl" . "application/x-tcl") (".tex" . "application/x-tex") (".texi" . "application/texinfo") (".tga" . "image/x-targa") (".tif" . "image/tiff") (".tiff" . "image/tiff") (".tr" . "application/x-troff") (".troff" . "application/x-troff") (".tsv" . "text/tab-separated-values") (".txt" . "text/plain") (".vbs" . "video/mpeg") (".vox" . "audio/basic") (".vrml" . "x-world/x-vrml") (".wav" . "audio/x-wav") (".wrl" . "x-world/x-vrml") (".xbm" . "image/xbm") (".xpm" . "image/xpm") (".xwd" . "image/windowdump") (".zip" . "application/zip") (".ai" . "application/postscript") (".jpe" . "image/jpeg") (".jpeg" . "image/jpeg")) (#$ . 15440)) (defalias 'mailcap-parse-mimetypes #[(&optional path) "\204&\304\305!\203\304\305!\202& \306>\203 \307\310\311\312#\202&\307\310\313\314#\315\316 \317>\2033\312\2024\314\"!\320\211\205Y @\321\n!\203Q\322\n!\203Q\323 @!\210 A\211\204=\320*\207" [path system-type fname fnames getenv "MIMETYPES" (ms-dos ms-windows windows-nt) mapconcat expand-file-name ("~/mime.typ" "~/etc/mime.typ") ";" ("~/.mime-types" "/etc/mime-types:/usr/etc/mime-types" "/usr/local/etc/mime-types" "/usr/local/www/conf/mime-types") ":" reverse split-string (ms-dos ms-windows windows-nt) nil file-exists-p file-readable-p mailcap-parse-mimetype-file] 6]) (defalias 'mailcap-parse-mimetype-file #[(fname) "\306\211\211\307\310\311!!\312\216r q\210\313\f!\210\314\315\316\"\210\314\317\320\"\210\314\321\316\"\210db\210\322\306x\210`d|\210eb\210m?\205\204\322\306w\210`\323\306w\210\324`\"\210`{l\204b\325\306w\210`\326\306w\210`{ B\202K \2033\327 @!\330U\203t @\202x\331 @P\nB B A\211\202c.\207" [save-pos extns type #1=#:temp-buffer fname mailcap-mime-extensions nil get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents mailcap-replace-regexp "#.*" "" "\n+" "\n" "[ ]+$" " \n" "^ " downcase-region " " "^ \n" string-to-char 46 "."] 4]) #@59 Return the MIME content type of the file extensions EXTN. (defalias 'mailcap-extension-to-mime #[(extn) ";\203\302!\303=\204\304P\305\227 \"A\207" [extn mailcap-mime-extensions string-to-char 46 "." assoc] 3 (#$ . 19545)]) (byte-code "\303\301!\204\304>\203\305\202\306\301\nB\303\207" [system-type mailcap-binary-suffixes current-load-list boundp (ms-dos windows-nt) (".exe" ".com" ".bat" ".cmd" ".btm" "") ("")] 2) #@105 Say whether COMMAND is in the exec path. The path of COMMAND will be returned iff COMMAND is a command. (defalias 'mailcap-command-p #[(command) "\305!\203\n\306\202 \307\211\310\311\215+\207" [command exec-path dir file path file-name-absolute-p (nil) nil found (byte-code "\211A@\211\2053\n \203/\306\307\f \211A@P \"\211!\203\f\310 !\204\f\311\312 \"\210\202\f)\202\207" [path dir mailcap-binary-suffixes suffixes command file file-executable-p expand-file-name file-directory-p throw found] 5)] 3 (#$ . 19987)]) #@36 Return a list of MIME media types. (defalias 'mailcap-mime-types #[nil "\301\302\303\"!\207" [mailcap-mime-extensions mm-delete-duplicates mapcar cdr] 4 (#$ . 20529)]) (provide 'mailcap)