ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/mailcap.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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!\203 \306\202 \300\307\310\"\210\307\"\210\305\311!\203' \303\312\313\"\210\2022 \305\314!\2032 \303\312\314\"\210\315\316\317\320\321\322\323\324&\207" [autoload mail-header-parse-content-type "mail-parse" defalias mailcap-delete-duplicates fboundp delete-dups mm-delete-duplicates "mm-util" replace-regexp-in-string mailcap-replace-in-string #[(string regexp newtext &optional literal) "\304 \n\305 %\207" [regexp newtext string literal replace-regexp-in-string nil] 6 "Replace all matches for REGEXP with NEWTEXT in STRING.\nIf LITERAL is non-nil, insert NEWTEXT literally. Return a new\nstring containing the replacements.\nThis is a compatibility function for different Emacsen."] replace-in-string 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 "\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) (#$ . 1271))
#@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) (#$ . 1578))
#@1351 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'led 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\326\327\330PB\257\323\331\332\327\333PB\334BBBB\323\335\336\327\333PB\337BBBB\323\340\341B\342\327\333PB\343BBBB\344\345\346\347\327\350PB\351BBBBB\344\352\353\354\327\350PB\355BBBBB\344\356\357\360\327\350PB\361BBBBB\362BBBBBBBBBBBBBBBBBBBBBBBBB\363B\207" [mailcap-print-command "application" ("vnd\\.ms-excel" (viewer . "gnumeric %s") (test getenv "DISPLAY") (type . "application/vnd.ms-excel")) ("x-x509-ca-cert" (viewer . ssl-view-site-cert) (type . "application/x-x509-ca-cert")) ("x-x509-user-cert" (viewer . 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 . "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 eq window-system 'x)) ("pdf" (viewer . doc-view-mode) (type . "application/pdf") (test eq window-system 'x)) "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"))))] 31) (#$ . 1853))
(byte-code "\300\301\302\303#\210\304\305\306\307\310\311\312\313&\207" [put mailcap-mime-data risky-local-variable t custom-declare-variable mailcap-download-directory nil "*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) (#$ . 7811))
(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 #[nil "\300p!\207" [kill-buffer] 2] read-file-name "Filename to save as: " "~/" nil write-region] 4])
#@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\"." (#$ . 8201))
#@45 Maybe evaluate a buffer of Emacs Lisp code.
(defalias 'mailcap-maybe-eval #[nil "peb\210\304 \305\216\306 \210\307\310\311!!\312\216r\nq\210\313 !c\210eb\210\314\n!\210\315\316!-\2030 \317p!\210\320!\205= rq\210\321 ))\207" [lisp-buffer #1=#:wconfig buffer mailcap-maybe-eval-warning current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] delete-other-windows get-buffer-create generate-new-buffer-name "*Warning*" #[nil "\301!\207" [buffer kill-buffer] 2] 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] 3 (#$ . 8813)])
(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])
(defvar mailcap-parsed-p nil)
#@354 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.
(defalias 'mailcap-parse-mailcaps #[(&optional path force) "\203 \205d \n\204& \306\307!\203 \306\307!\202& \f>\203$ \310\202& \311\312\n;\2034 \313\n
\314#\2025 \n!\315 \211 \203` @\316!\203W \317!\203W \320!\210A\211\204? *\314\211\207" [mailcap-parsed-p force path 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 nil file-readable-p file-regular-p mailcap-parse-mailcap fname fnames] 6 (#$ . 9686) (list nil t)])
#@48 Parse out the mailcap file specified by FNAME.
(defalias 'mailcap-parse-mailcap #[(fname) "\306\211\211\211\211 \307\310! r
q\210\311\216\312+!\210\313,!\210\314\315\316\"\210\314\317\320\"\210\314\321\322\"\210db\210\323\306x\210`d|\210o?\205\323\306x\210\324 \210`\306\325\306w\210\326\n`\"\210\n`{\327\306w\210\316\306f\330=\203\223 \306u\210\327\306w\210`\331\306w\210\326\n`\"\210\nf\206z \332\333=\203\203 \334\202\222 `\nU\203\215 \334\202\222 \335\n`{!\327\306w\210\316\306f\336=\203\346 \306u\210\327\306w\210`\337\306w\210`Sf\340=\203\303 \341\342!\210\306u\210\337\306w\210\202\255 \nf\206\311 \332\343=\203\342 \nT`}\210eb\210\344p!db\210~\210\202\346 \n`{`\306\210 \316\232\204\301 B\345\f\346 \334\230\203\347\202 QBD\350\n`\"\244\351!\210\352\f #\210\324 \210\2028 .\207" [info viewer save-pos minor major #1=#:temp-buffer nil generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# 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" 0 42 ".*" regexp-quote 59 "^;\n" 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 (#$ . 10651)])
#@48 Grab all the extra stuff from a mailcap entry.
(defalias 'mailcap-parse-mailcap-extras #[(st nd) "\306\211\211\211\211\211 \214 }\210eb\210\307\306w\210m\204\244 \306`\310\306w\210\311\n`\"\210\n`{\312\306w\210`f\313=\204? \314\202\215 \315\306w\210`\211f\316>\203d T\3171] \320\321!\210\322u0\202` \210db\210\202\211 \204\211 \323\306w\210`Sf\324=\203\203 \325`S`\324\326$\210\327\306w\210\202d \314\211\203h `{
\330\230\203\227 \331\202\230
\fB B\332\306w\210\202 .\207" [done val-pos name-pos results value name 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 " st nd] 7 (#$ . 12015)])
#@319 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 a interactive
spec (needsterm, needsterminal, or needsx11) but DISPLAY is not set,
the test clause will be unchanged.
(defalias 'mailcap-mailcap-entry-passes-test #[(info) "\302\236\303\211\205 \304\nA\305\"\306\307\"\204% \306\310\"\204% \306\311\"\2030 \312\313!\2040 \303\202\207 @\314\232\203Z A@\315\232\203Z \316 8\317\232\204O \316 8\320\232\203Z \312\313!\205V \321\202\207 @\314\232\203\205 A@\322\232\203\205 \316 8\317\232\204y \316 8\320\232\203\205 \312\313!?\205\201 \321\202\207 \n\210\n\205\223 \n<\205\223 \n \241*\207" [info status test nil split-string " " assoc "needsterm" "needsterminal" "needsx11" getenv "DISPLAY" "test" "-n" 2 "$DISPLAY" "\"$DISPLAY\"" t "-z"] 4 (#$ . 12735)])
#@68 Return a list of possible viewers from MAJOR for minor type MINOR.
(defalias 'mailcap-possible-viewers #[(major minor) "\304\211\n\2036 \n@@ \232\203 \n@A B\202/ \203/ \305\306\n@@\307Q \"\203/ \n@AB\nA\211\204 \244*\207" [wildcard exact major minor nil string-match "^" "$"] 5 (#$ . 13659)])
(defalias 'mailcap-unescape-mime-test #[(test type-info) "\306\211\211 9\203 \202\330 <\203 @9\203 \202\330 ;\2048 <\203\324 @;\203\324 \307\310 \311#\211\203\324 \312\313! r\fq\210\314\216 c\210eb\210m\204\316 \315\306w\210`\316\306x\210`Z\317U\204g \320\321!\210\322\306w\210\202H `\323\306w\210`f\211\203H \324U\203\216 \n\321u\210`|\210\325
\236A\206\211 \326c\210\202H \327>\203\241 \n\321u\210`|\210\326c\210\202H \330U\203H \321u\210\331\306w\210\332\333\n\\`\"\210\333\n\\`{\n`T|\210\334
\"A\206\311 \326c\210\202H \335 +\202\330 \336\337 \"+\207" [subst save-chr save-pos test #1=#:temp-buffer type-info nil mapconcat identity " " generate-new-buffer " *temp*" #[nil "\301!\205 \302!\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])
(defvar mailcap-viewer-test-cache nil)
#@170 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.
(defalias 'mailcap-viewer-passes-test #[(viewer-info type-info) "\302\236\211A\211\304\236A \306\307! \310\211 \310\211 \f;\204- \311\f!\204- \310\202\256 \312\n\"\211\203? A@\202\256 \204G \313\202\256 \n\204O \310\202\241 \n\313=\203Y \313\202\241 \314\n!\203f \n!\202\241 \n9\203v \315\n!\203v \nJ\202\241 \n<\203\207 \n@9\203\207 \316\n!\202\241 \317\n\"\310\211\211\n\257\320\321\n\"\211\322= DB. \207" [viewer-info test-info test otest viewer default-directory expand-file-name "~/" nil fboundp assoc t functionp 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 (#$ . 14933)])
(defalias 'mailcap-add-mailcap-entry #[(major minor info) "\306 \"\211\204 \fBCB B\211\202U \306 \n\"\211 \203% \307\f\236\2030 \n \fB\nAB\241\202T \307\f\236\204L \307
\236\204L \310\f\236\310
\236\232\203L
\f\241\202T \n \fB\nAB\241))\207" [major mailcap-mime-data old-major minor info cur-minor assoc test viewer] 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 (#$ . 16179)])
#@55 Return t if viewer X is more desirable than viewer Y.
(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 (#$ . 16535)])
#@600 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.
(defalias 'mailcap-mime-info #[(string &optional request no-decode) "\306\211\211\211\211\211\211\211\211\211\211 \212 \203+ \206' \307C\2023 \310 \2062 \307!\311@\312\"\211 A@ @ \313 \"A\211\203\205 \314\"\211\203\205 \315\316A\" \203} \317 @\"\203v @\nB A\211\204h \320\n\321\"\211@\301 \236A;\203\224 \n\203\224 \n@ \204\256 \322\232\204\256 \203\256 \323\322 #\202 \203\272 \324\232\203\305 \325\301 \236A\"\202 ;\203\330 \325\313 \"\243\"\202 \326=\203\343 \n\202\327 !\301 \236\304 \236 \211 !\203\377 !\325!A\"\241\210\f\203\f\f\325\fA\"\241\210* .\f\207" [ctl viewer passed viewers test minor-info nil "text/plain" mail-header-parse-content-type 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 no-decode string mailcap-mime-data request view] 12 (#$ . 16939)])
#@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")) (#$ . 18610))
(defvar mailcap-mimetypes-parsed-p nil)
#@319 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.
(defalias 'mailcap-parse-mimetypes #[(&optional path force) "\203 \205] \n\204& \306\307!\203 \306\307!\202& \f>\203$ \310\202& \311\312\n;\2034 \313\n
\314#\2025 \n!\315 \211 \203Y @\316!\203P \317!\210A\211\204? *\314\211\207" [mailcap-mimetypes-parsed-p force path 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 nil file-readable-p mailcap-parse-mimetype-file fname fnames] 6 (#$ . 21779) (list nil t)])
#@36 Parse out a mime-types file FNAME.
(defalias 'mailcap-parse-mimetype-file #[(fname) "\306\211\211\307\310!r q\210\311\216\312\f!\210\313\314\315\"\210\313\316\317\"\210\313\320\315\"\210db\210\321\306x\210`d|\210eb\210m?\205\202 \321\306w\210`\322\306w\210\323`\"\210`{l\204` \324\306w\210`\322\306w\210`{ B\202I \2031 \325 @!\326U\203r @\202v \327 @P\nB
B A\211\202a .\207" [save-pos extns type #1=#:temp-buffer fname mailcap-mime-extensions nil generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents mailcap-replace-regexp "#.*" "" "\n+" "\n" "[ ]+$" " \n" "^ \n" downcase-region " " string-to-char 46 "."] 4 (#$ . 22849)])
#@59 Return the MIME content type of the file extensions EXTN.
(defalias 'mailcap-extension-to-mime #[(extn) "\302 \210;\203 \303!\304=\204 \305P\306\227 \"A\207" [extn mailcap-mime-extensions mailcap-parse-mimetypes string-to-char 46 "." assoc] 3 (#$ . 23561)])
(defalias 'mailcap-command-p 'executable-find)
#@36 Return a list of MIME media types.
(defalias 'mailcap-mime-types #[nil "\302 \210\303\304\305\"\306\307\304\310 \"\"\244!\207" [mailcap-mime-extensions mailcap-mime-data mailcap-parse-mimetypes mailcap-delete-duplicates mapcar cdr apply nconc #[(l) "\301\302\303\304A\"\"\207" [l delq nil mapcar #[(m) "\301A\236A\302 \303\"A@\304\232?\205 )\207" [m type split-string "/" "*"] 3]] 5]] 7 (#$ . 23879)])
#@46 Return a list of default commands for FILES.
(defalias 'mailcap-file-default-commands #[(files) "\304 \210\305 \210\306\307\310\"!\306\307\311 \"!\211A\203$ \312\313\307\314\n@\"\"\202& \n@\306\312\313\307\315 \"\"!+\207" [files all-mime-type all-mime-info common-mime-info mailcap-parse-mailcaps mailcap-parse-mimetypes mailcap-delete-duplicates mapcar #[(file) "\301\302\303\"!\207" [file mailcap-extension-to-mime file-name-extension t] 4] #[(mime-type) "\301\302\"\207" [mime-type mailcap-mime-info all] 3] delq nil #[(mi1) "\302\303\304A\">?\205\f \207" [all-mime-info mi1 nil mapcar #[(mi2) " \235\207" [mi1 mi2] 2]] 4] #[(mime-info) "\302\303\"A\211;\205 \304\211 \305\306\307$\310\311\307$)\207" [mime-info command assoc viewer mailcap-replace-in-string "[ \n]*\\('\\)?%s\\1?[ \n]*\\'" "" t "%s" "?"] 7]] 7 (#$ . 24293)])
#@112 View the data in the current buffer that has MIME type TYPE.
`mailcap-mime-data' determines the method to use.
(defalias 'mailcap-view-mime #[(type) "\302!\211;\203 \303ed\304 \305\"p\306%\202 )\207" [type method mailcap-mime-info shell-command-on-region format "-" t] 7 (#$ . 25144)])
(provide 'mailcap)
Kontol Shell Bypass