Edit file

File name : mailcap.elc

Content :;ELC��� ;;; Compiled ;;; in Emacs version 26.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\"\210\303\304\305\306\307\310\311\312&\207" [autoload mail-header-parse-content-type "mail-parse" custom-declare-group mailcap nil "Definition of viewers for MIME types." :version "21.1" :group mime] 8) #@45 A syntax table for parsing SGML attributes. (defvar mailcap-parse-args-syntax-table (byte-code "\301!\302\303\304#\210\302\305\304#\210\302\306\307#\210\302\310\311#\210\211\207" [emacs-lisp-mode-syntax-table copy-syntax-table modify-syntax-entry 39 "\"" 96 123 "(" 125 ")"] 5) (#$ . 637)) #@68 Shell command (including switches) used to print PostScript files. (defvar mailcap-print-command (byte-code "\302\303\304\300!\203\f�\202 �\305\304\301!\205� ;\203� C\202� B\306#\207" [lpr-command lpr-switches mapconcat identity boundp "lpr" " "] 5) (#$ . 938)) #@12 (fn SYM) (defalias 'mailcap--get-user-mime-data #[257 "\300
!\301
\211\203#�\211@\302
\236A\303\236A\304\236AEB\262
A\266\202\202�\210\211\237\207" [default-value nil viewer type test] 9 (#$ . 1210)]) #@16 (fn SYM VAL) (defalias 'mailcap--set-user-mime-data #[514 "\300
\211\2036�\211@\211@
A\211@
A\211@
A
\301
B\302B\205&�\303BCBB\fB\262\f\266
A\266\202\202�\210\304\237\"\207" [nil viewer type test set-default] 18 (#$ . 1424)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317& \207" [custom-declare-variable mailcap-user-mime-data funcall function #[0 "\300\207" [nil] 1] "A list of viewers preferred for different MIME types.\nThe elements of the list are alists of the following structure\n\n ((viewer . VIEWER)\n (type . MIME-TYPE)\n (test . TEST))\n\nwhere VIEWER is either a lisp command, e.g., a major-mode, or a\nstring containing a shell command for viewing files of the\ndefined MIME-TYPE. In case of a shell command, %s will be\nreplaced with the file.\n\nMIME-TYPE is a regular expression being matched against the\nactual MIME type. It is implicitly surrounded with ^ and $.\n\nTEST is a lisp form which is evaluated in order to test if the\nentry should be chosen. The `test' entry is optional.\n\nWhen selecting a viewer for a given MIME type, the first viewer\nin this list with a matching MIME-TYPE and successful TEST is\nselected. Only if none matches, the standard `mailcap-mime-data'\nis consulted." :version "26.1" :type (repeat (list (choice (function :tag "Function or mode") (string :tag "Shell command")) (regexp :tag "MIME Type") (sexp :tag "Test (optional)"))) :get mailcap--get-user-mime-data :set mailcap--set-user-mime-data :group mailcap] 14) #@1353 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" . <info>)) ("text" ("plain" . <info>))) Where <info> is another assoc list of the various information related to the mailcap RFC 1524. This is keyed on the lowercase attribute name (viewer, test, etc). This looks like: ((viewer . VIEWERINFO) (test . TESTINFO) (xxxx . "STRING") FLAG) 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'ed if and only if it exists as a function, with the buffer as an argument. TESTINFO is a test for the viewer's applicability, or nil. If nil, it means the viewer is always valid. If it is a Lisp function, it is called with a list of items from any extra fields from the Content-Type header as argument to return a boolean value for the validity. Otherwise, if it is a non-function Lisp symbol or list whose car is a symbol, it is `eval'uated to yield the validity. If it is a string or list of strings, it represents a shell command to run to return a true or false shell value for the validity. (defvar mailcap-mime-data (byte-code "\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326PB\257\321\327\330\325\331PB\332BBBB\321\333\334\325\331PB\335BBBB\321\336\337B\340\325\331PB\341BBBB\342\343\344\345\325\346PB\347BBBBB\342\350\351\352\325\346PB\353BBBBB\342\354\355\356\325\346PB\357BBBBB\360BBBBBBBBBBBBBBBBBBBBBBB\361B\207" [mailcap-print-command "application" ("vnd\\.ms-excel" (viewer . "gnumeric %s") (test getenv "DISPLAY") (type . "application/vnd.ms-excel")) ("octet-stream" (viewer . mailcap-save-binary-file) (non-viewer . t) (type . "application/octet-stream")) ("dvi" (viewer . "xdvi -safer %s") (test eq window-system 'x) ("needsx11") (type . "application/dvi") ("print" . "dvips -qRP %s")) ("dvi" (viewer . "dvitty %s") (test not (getenv "DISPLAY")) (type . "application/dvi") ("print" . "dvips -qRP %s")) ("emacs-lisp" (viewer . mailcap-maybe-eval) (type . "application/emacs-lisp")) ("x-emacs-lisp" (viewer . mailcap-maybe-eval) (type . "application/x-emacs-lisp")) ("x-tar" (viewer . mailcap-save-binary-file) (non-viewer . t) (type . "application/x-tar")) ("x-latex" (viewer . tex-mode) (type . "application/x-latex")) ("x-tex" (viewer . tex-mode) (type . "application/x-tex")) ("latex" (viewer . tex-mode) (type . "application/latex")) ("tex" (viewer . tex-mode) (type . "application/tex")) ("texinfo" (viewer . texinfo-mode) (type . "application/tex")) ("zip" (viewer . mailcap-save-binary-file) (non-viewer . t) (type . "application/zip") ("copiousoutput")) ("pdf" (viewer . pdf-view-mode) (type . "application/pdf") (test . window-system)) ("pdf" (viewer . doc-view-mode) (type . "application/pdf") (test . window-system)) "pdf" (viewer . "gv -safer %s") (type . "application/pdf") (test . window-system) "print" "pdf2ps %s - | " (viewer . "gpdf %s") (type . "application/pdf") "pdftops %s - | " ((test eq window-system 'x)) (viewer . "xpdf %s") (type . "application/pdf") ((test eq window-system 'x)) viewer "pdftotext %s -" (type . "application/pdf") (("copiousoutput")) "postscript" (viewer . "gv -safer %s") (type . "application/postscript") (test . window-system) " %s" (("needsx11")) (viewer . "ghostview -dSAFER %s") (type . "application/postscript") (test eq window-system 'x) (("needsx11")) (viewer . "ps2ascii %s") (type . "application/postscript") (test not (getenv "DISPLAY")) (("copiousoutput")) (("sieve" (viewer . sieve-mode) (type . "application/sieve")) ("pgp-keys" (viewer . "gpg --import --interactive --verbose") (type . "application/pgp-keys") ("needsterminal"))) (("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) (type . "message/rfc822")) ("rfc-*822" (viewer . view-mode) (type . "message/rfc822"))) ("image" ("x-xwd" (viewer . "xwud -in %s") (type . "image/x-xwd") ("compose" . "xwd -frame > %s") (test eq window-system 'x) ("needsx11")) ("x11-dump" (viewer . "xwud -in %s") (type . "image/x-xwd") ("compose" . "xwd -frame > %s") (test eq window-system 'x) ("needsx11")) ("windowdump" (viewer . "xwud -in %s") (type . "image/x-xwd") ("compose" . "xwd -frame > %s") (test eq window-system 'x) ("needsx11")) (".*" (viewer . "display %s") (type . "image/*") (test eq window-system 'x) ("needsx11")) (".*" (viewer . "ee %s") (type . "image/*") (test eq window-system 'x) ("needsx11"))) ("text" ("plain" (viewer . view-mode) (type . "text/plain")) ("plain" (viewer . fundamental-mode) (type . "text/plain")) ("enriched" (viewer . enriched-decode) (type . "text/enriched")) ("dns" (viewer . dns-mode) (type . "text/dns"))) ("video" ("mpeg" (viewer . "mpeg_play %s") (type . "video/mpeg") (test eq window-system '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"))))] 29) (#$ . 2961)) (byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315&\207" [put mailcap-mime-data risky-local-variable t custom-declare-variable mailcap-download-directory funcall function #[0 "\300\207" [nil] 1] "Directory to which `mailcap-save-binary-file' downloads files by default.\nnil means your home directory." :type (choice (const :tag "Home directory" nil) directory) :group mailcap] 8) #@58 Systems that don't have a Unix-like directory hierarchy. (defvar mailcap-poor-system-types '(ms-dos windows-nt) (#$ . 8771)) (defalias 'mailcap-save-binary-file #[0 "eb\210\302\216\303\304\206\f�\305\"\306\307ed#)\262
)\207" [mailcap-download-directory require-final-newline #[0 "\300p!\207" [kill-buffer] 2] read-file-name "Filename to save as: " "~/" nil write-region] 5]) #@168 Text of warning message displayed by `mailcap-maybe-eval'. Make sure that this text consists only of few text lines. Otherwise, Gnus might fail to display all of it. (defvar mailcap-maybe-eval-warning "*** WARNING ***\n\nThis MIME part contains untrusted and possibly harmful content.\nIf you evaluate the Emacs Lisp code contained in it, a lot of nasty\nthings can happen. Please examine the code very carefully before you\ninstruct Emacs to evaluate it. You can browse the buffer containing\nthe code using \\[scroll-other-window].\n\nIf you are unsure what to do, please answer \"no\"." (#$ . 9156)) #@45 Maybe evaluate a buffer of Emacs Lisp code. (defalias 'mailcap-maybe-eval #[0 "peb\210\301 \302\303\304\305\306!\307\"\310$\216\311 \210\312\313\314!!\302\303\304\305\306!\315\"\310$\216r\211q\210\316!c\210eb\210\317
!\210\320\321!*\262
)\262
\203F�\322p!\210\323
!\205S�r\211q\210\324 )\207" [mailcap-maybe-eval-warning current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 delete-other-windows get-buffer-create generate-new-buffer-name "*Warning*" [kill-buffer] substitute-command-keys display-buffer yes-or-no-p "This is potentially dangerous emacs-lisp code, evaluate it? " eval-buffer buffer-live-p emacs-lisp-mode] 9 (#$ . 9768)]) #@25 (fn REGEXP TO-STRING) (defalias 'mailcap-replace-regexp #[514 "eb\210\300\301\302#\205�\303
\302\301#\210\202�\207" [re-search-forward nil t replace-match] 6 (#$ . 10467)]) (defvar mailcap-parsed-p nil) #@381 Parse out all the mailcaps specified in a path string PATH. Components of PATH are separated by the `path-separator' character appropriate for this system. If FORCE, re-parse even if already parsed. If PATH is omitted, use the value of environment variable MAILCAPS if set; otherwise (on Unix) use the path from RFC 1524, plus /usr/local/etc/mailcap. (fn &optional PATH FORCE) (defalias 'mailcap-parse-mailcaps #[512 "\203�\211\205Z�
\204)�\304\305!\203�\304\305!\262\202)� \n>\203&�\306\262\202)�\307\262\310;\2037�\311\312#\2028�!\211\203V�\211@\313
!\203O�\314
!\203O�\315
!\210
A\266\202\2029�\210\312\211\207" [mailcap-parsed-p system-type mailcap-poor-system-types path-separator getenv "MAILCAPS" ("~/.mailcap" "~/mail.cap" "~/etc/mail.cap") ("~/.mailcap" "/etc/mailcap" "/usr/etc/mailcap" "/usr/local/etc/mailcap") reverse split-string t file-readable-p file-regular-p mailcap-parse-mailcap] 7 (#$ . 10682) (list nil t)]) #@60 Parse out the mailcap file specified by FNAME. (fn FNAME) (defalias 'mailcap-parse-mailcap #[257 "\301\211\211\211\211\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313!\210\314!\210\315\316\317\"\210\315\320\321\"\210\315\322\323\"\210db\210\324\301x\210`d|\210o?\205/
\324\301x\210\325 \210`\262\301\262\326\301w\210\327`\"\210`{\262\330\301w\210\317\262\301f\331=\203\234�\301u\210\330\301w\210`\262\332\301w\210\327`\"\210f\206\202�\305\333=\203\213�\334\202\232�`U\203\225�\334\202\232�\335`{!\262\330\301w\210\317\262\301f\336=\203\363�\301u\210\330\301w\210`\262\337\301w\210`Sf\340=\203\316�\341\342!\210\301u\210\337\301w\210\202\270�f\206\324�\305\343=\203\356�T`}\210eb\210\344p!db\210~\210\262\202\363�`{\262`\262\301\210\317\232\204)
\345B\346\347\334\230\203
\350\202
QBD\351`\"\244\262\352!\210\353#\210\325 \210\202;�*\262
\207" [mailcap-parse-args-syntax-table nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 �\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents set-syntax-table mailcap-replace-regexp "#.*" "" "\\\\[ ]*\n" " " "\n+" "\n" " \n" beginning-of-line "^/; \n" downcase-region " " 47 "^; \n" 42 ".*" regexp-quote 59 "^;\n" 92 backward-delete-char 1 39 read viewer type "/" "*" mailcap-parse-mailcap-extras mailcap-mailcap-entry-passes-test mailcap-add-mailcap-entry] 13 (#$ . 11632)]) #@60 Grab all the extra stuff from a mailcap entry. (fn ST ND) (defalias 'mailcap-parse-mailcap-extras #[514 "\300\211\211\211\211\211\214}\210eb\210\301\300w\210m\204\246�\300\262
`\262\302\300w\210\303`\"\210`{\262\304\300w\210`f\305=\204=�\306\262\202\216�\307\300w\210`\262
f\310>\203d�
T\262\3111]�\312\313!\210\314u0\202`�\210db\210\202\211�\211\204\211�\315\300w\210`Sf\316=\203\203�\317`S`\316\320$\210\321\300w\210\202d�\306\262
\202d�
`{\262\322\230\203\230�\323\202\231�BB\262\324\300w\210\202�)\207" [nil " \n ;" "^ \n =;" downcase-region " \n" 61 t " \n=" (34 39) (error) forward-sexp 1 -1 "^;" 92 subst-char-in-region 32 ";" "test" test " \";\n "] 13 (#$ . 13054)]) #@331 Replace the test clause of INFO itself with a boolean for some cases. This function supports only `test -n $DISPLAY' and `test -z $DISPLAY', replaces them with t or nil. As for others or if INFO has an interactive spec (needsterm, needsterminal, or needsx11) but DISPLAY is not set, the test clause will be unchanged. (fn INFO) (defalias 'mailcap-mailcap-entry-passes-test #[257 "\300
\236\301
\205 �\302A\303\"\262
\304\305\"\204$�\304\306\"\204$�\304\307\"\2030�\310\311!\2040�\301\262
\202\204�\211@\312\232\203[�\211A@\313\232\203[�\314
8\315\232\204O�\314
8\316\232\203[�\310\311!\205V�\317\262
\202\204�\211@\312\232\203\204�\211A@\320\232\203\204�\314
8\315\232\204z�\314
8\316\232\203\204�\310\311!?\205\202�\317\262

\205\220�
<\205\220�

\241\207" [test nil split-string " " assoc "needsterm" "needsterminal" "needsx11" getenv "DISPLAY" "test" "-n" 2 "$DISPLAY" "\"$DISPLAY\"" t "-z"] 6 (#$ . 13758)]) #@86 Return a list of possible viewers from MAJOR for minor type MINOR. (fn MAJOR MINOR) (defalias 'mailcap-possible-viewers #[514 "\300\211\211\203>�\211@\211@
A\211\211 \232\203�
B\262\2025�\2035�\301\302\303Q\n\"\2035�
B\262\266
A\266\202\202�\210

\244\207" [nil string-match "^" "$"] 14 (#$ . 14682)]) #@23 (fn TEST TYPE-INFO) (defalias 'mailcap-unescape-mime-test #[514 "\300\211\2119\203\f�\202\347�<\203�@9\203�\202\347�;\2047�<\203\342�@;\203\342�\301\302\303#\211\262\203\342�\304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216c\210eb\210m\204\332�\315\300w\210`\316\300x\210`Z\307U\204o�\317\320!\210\321\300w\210\202P�`\262\322\300w\210`f\262\203P�\323U\203\230�\320u\210`|\210\324\236A\206\223�\325c\210\202P�\326>\203\253�\320u\210`|\210\325c\210\202P�\327U\203P�\320u\210\330\300w\210\331\314\\`\"\210\314\\`{\262`T|\210\332\"A\206\325�\325c\210\202P�\333 *\262
\202\347�\334\335\"\207" [nil mapconcat identity " " generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 �\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "^%" "\\\\" delete-char 1 "%." "%" 116 type "\"\"" (77 110 70) 123 "^}" downcase-region assoc buffer-string error "Bad value to mailcap-unescape-mime-test: %s"] 12 (#$ . 15007)]) (defvar mailcap-viewer-test-cache nil) #@198 Return non-nil if viewer specified by VIEWER-INFO passes its test clause. Also return non-nil if it has no test clause. TYPE-INFO is an argument to supply to the test. (fn VIEWER-INFO TYPE-INFO) (defalias 'mailcap-viewer-passes-test #[514 "\304\236\211A\211\305\236A\306\307!\310\211\211;\204 �\311!\204 �\310\202\243�\312 \"\211\262\2031�
A@\202\243�\204:�\313\202\243�\204B�\310\202\232�\313=\203L�\313\202\232�\314!\203Z�!\202\232�9\203k�\315!\203k�J\202\232�<\203}�@9\203}�\316!\202\232�\317 \"\262\n\310\211\211\n\257\262\320\321\"\262\322=\262

D B\211)\207" [default-directory mailcap-viewer-test-cache shell-file-name shell-command-switch test viewer expand-file-name "~/" nil fboundp assoc t functionp boundp eval mailcap-unescape-mime-test apply call-process 0] 15 (#$ . 16010)]) #@25 (fn MAJOR MINOR INFO) (defalias 'mailcap-add-mailcap-entry #[771 "\301\"\211\204�BCBB\211\202T�\301\"\211\203#�\302\236\203.�
BAB\241\202R�\302\236\204J�\302
\236\204J�\303\236\303\236\232\203J�\211\241\202R�
BAB\241\262
\207" [mailcap-mime-data assoc test viewer] 8 (#$ . 16847)]) #@108 Add VIEWER as a handler for TYPE. If TEST is not given, it defaults to t. (fn TYPE VIEWER &optional TEST) (defalias 'mailcap-add #[770 "\300\301\"\211@\203�\211A@\204�\302\303\"\210\304
@A@\305B\306\203)�\202*�\307B\310 BE#\207" [split-string "/" error "%s is not a valid MIME type" mailcap-add-mailcap-entry viewer test t type] 11 (#$ . 17159)]) #@65 Return t if viewer X is more desirable than viewer Y. (fn X Y) (defalias 'mailcap-viewer-lessp #[514 "\300\301\302\236\243\206\n�\303\"\300\301\302\236\243\206�\303\"\304\236\243\206�\303;?\304\236\243\206(�\303;?\2036�\2046�\305\202O�\204B�\203B�\306\202O�\211\204N�
\203N�\306\202O�\305\207" [string-match "[*?]" type "" viewer nil t] 7 (#$ . 17525)]) #@82 Return an applicable viewer entry from `mailcap-user-mime-data'. (fn TYPE-INFO) (defalias 'mailcap-select-preferred-viewer #[257 "\301\302A\"\303\211\2031�\211@\204*�\304\305\306\236A\307Q@\"\203*�\310
\"\203*�\211\262
A\266\202\202�\210\207" [mailcap-user-mime-data mapcar #[257 "\300
@!
AB\207" [symbol-name] 3 "\n\n(fn A)"] nil string-match "^" type "$" mailcap-viewer-passes-test] 9 (#$ . 17896)]) #@641 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. If NO-DECODE is non-nil, don't decode STRING. (fn STRING &optional REQUEST NO-DECODE) (defalias 'mailcap-mime-info #[769 "\301\211\211\211\211\211\211\211\212\203�\n\206�\302C\202 �\303\206�\302!\262
\304
!\262
\2032�
C\262\202\230�\305
@\306\"\262A@\262@\262\307\"A\211\262\203\210�\310\"\211\262\203\210�\311\312A\"\262\211\203}�\211@\313
 \"\203v�\211B\262
A\266\202\202c�\210\314\315\"\262@\262\316\236A;\203\230�\203\230�@\262
\204\262�\317\232\204\262� \203\262�\320\317#\202
 \203\276� \321\232\203\311�\322\316\236A\"\202
 ;\203\334�\322\307\"\243\"\202
 \323=\203\347�\202
\324!\262\316\236\325\236
\203\377�
\322A\n\"\241\210\211\203\f
\211\322A\n\"\241\210\266
)\207" [mailcap-mime-data nil "text/plain" mail-header-parse-content-type mailcap-select-preferred-viewer split-string "/" assoc mailcap-possible-viewers mapcar #[257 "\300
@!
AB\207" [symbol-name] 3 "\n\n(fn A)"] mailcap-viewer-passes-test sort mailcap-viewer-lessp viewer "default" mailcap-mime-info "" mailcap-unescape-mime-test all copy-sequence test] 17 (#$ . 18315)]) #@200 An alist of file extensions and corresponding MIME content-types. This exists for you to customize the information in Lisp. It is merged with values from mailcap files by `mailcap-parse-mimetypes'. (defvar mailcap-mime-extensions '(("" . "text/plain") (".1" . "text/plain") (".3" . "text/plain") (".8" . "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") (".css" . "text/css") (".dvi" . "application/x-dvi") (".diff" . "text/x-patch") (".dpatch" . "text/x-patch") (".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") (".pod" . "text/plain") (".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") (".siv" . "application/sieve") (".snd" . "audio/basic") (".soa" . "text/dns") (".src" . "application/x-wais-source") (".tar" . "archive/tar") (".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") (".xls" . "application/vnd.ms-excel") (".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") (".org" . "text/x-org")) (#$ . 19994)) (defvar mailcap-mimetypes-parsed-p nil) #@346 Parse out all the mimetypes specified in a Unix-style path string PATH. Components of PATH are separated by the `path-separator' character appropriate for this system. If PATH is omitted, use the value of environment variable MIMETYPES if set; otherwise use a default path. If FORCE, re-parse even if already parsed. (fn &optional PATH FORCE) (defalias 'mailcap-parse-mimetypes #[512 "\203�\211\205T�
\204)�\304\305!\203�\304\305!\262\202)� \n>\203&�\306\262\202)�\307\262\310;\2037�\311\312#\2028�!\211\203P�\211@\313
!\203I�\314
!\210
A\266\202\2029�\210\312\211\207" [mailcap-mimetypes-parsed-p system-type mailcap-poor-system-types path-separator getenv "MIMETYPES" ("~/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" "~/.mime-types" "/etc/mime-types" "/usr/etc/mime-types" "/usr/local/etc/mime-types" "/usr/local/www/conf/mime-types") reverse split-string t file-readable-p mailcap-parse-mimetype-file] 7 (#$ . 23163) (list nil t)]) #@48 Parse out a mime-types file FNAME. (fn FNAME) (defalias 'mailcap-parse-mimetype-file #[257 "\301\211\211\211\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313!\210\314\315\316\"\210\314\317\320\"\210\314\321\316\"\210db\210\322\301x\210`d|\210eb\210m?\205\212�\322\301w\210`\262\323\301w\210\324`\"\210`{\262l\204�\325\301w\210`\262\323\301w\210`{\262\326!\327U\203s�
\202v�\330PBB\262\202S�\331\"\301\262\2029�*\262
\207" [mailcap-mime-extensions nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 �\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents mailcap-replace-regexp "#.*" "" "\n+" "\n" "[ ]+$" " \n" "^ \n" downcase-region " " string-to-char 46 "." append] 12 (#$ . 24218)]) #@70 Return the MIME content type of the file extensions EXTN. (fn EXTN) (defalias 'mailcap-extension-to-mime #[257 "\301 \210\211;\203�\302
!\303=\204�\304
P\262
\305
\227\"A\207" [mailcap-mime-extensions mailcap-parse-mimetypes string-to-char 46 "." assoc] 4 (#$ . 24984)]) #@36 Return a list of MIME media types. (defalias 'mailcap-mime-types #[0 "\303 \210\304\305\306\"\307\211 \211\203E�\211@\211A\211\203=�\211@\310
A\236A\262\311\307\312\313#)\266\203\2046�B\262
A\266\202\202�\210
A\266\202\202�\210
\237\266\202\244!\207" [mailcap-mime-extensions mailcap-mime-data inhibit-changing-match-data mailcap-parse-mimetypes delete-dups mapcar cdr nil type "\\*" t string-match] 15 (#$ . 25265)]) #@58 Return a list of default commands for FILES. (fn FILES) (defalias 'mailcap-file-default-commands #[257 "\300 \210\301 \210\302\303\304\"!\302\303\305\"!\211A\203J�\306
@\211\203B�\211@A\211\203:�\211@
\235\2033�B\262
A\266\202\202\"�\210
A\266\202\202�\210\211\237\262
\202L�\211@\302\306\211\211\203z�\211@\307
\236A\262;\203s�\310\311\312\310\313\314\306\315%\306\315%B\262
A\266\202\202P�\210
\237\266\202!\207" [mailcap-parse-mailcaps mailcap-parse-mimetypes delete-dups mapcar #[257 "\300\301\302\"!\207" [mailcap-extension-to-mime file-name-extension t] 5 "\n\n(fn FILE)"] #[257 "\300
\301\"\207" [mailcap-mime-info all] 4 "\n\n(fn MIME-TYPE)"] nil viewer replace-regexp-in-string "%s" "?" "[ \n]*\\('\\)?%s\\1?[ \n]*\\'" "" t] 18 (#$ . 25702)]) #@123 View the data in the current buffer that has MIME type TYPE. `mailcap-mime-data' determines the method to use. (fn TYPE) (defalias 'mailcap-view-mime #[257 "\300
!\211;\203�\301ed\302\303\"p\304%\202�\211 \207" [mailcap-mime-info shell-command-on-region format "-" t] 8 (#$ . 26480)]) (provide 'mailcap)

Save