Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.20
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
net /
[ HOME SHELL ]
Name
Size
Permission
Action
ange-ftp.elc
126.4
KB
-rw-r--r--
browse-url.elc
54.35
KB
-rw-r--r--
dbus.elc
55.05
KB
-rw-r--r--
dig.elc
6.34
KB
-rw-r--r--
dns.elc
11.52
KB
-rw-r--r--
eudc-bob.elc
8.58
KB
-rw-r--r--
eudc-export.elc
5.97
KB
-rw-r--r--
eudc-hotlist.elc
6.69
KB
-rw-r--r--
eudc-vars.elc
14.68
KB
-rw-r--r--
eudc.elc
33.77
KB
-rw-r--r--
eudcb-bbdb.elc
5.97
KB
-rw-r--r--
eudcb-ldap.elc
5.5
KB
-rw-r--r--
eudcb-mab.elc
2.58
KB
-rw-r--r--
eww.elc
68.31
KB
-rw-r--r--
gnutls.elc
12.62
KB
-rw-r--r--
goto-addr.elc
10
KB
-rw-r--r--
hmac-def.elc
1.87
KB
-rw-r--r--
hmac-md5.elc
2.11
KB
-rw-r--r--
imap.elc
102.11
KB
-rw-r--r--
ldap.elc
16.8
KB
-rw-r--r--
mailcap.elc
27.34
KB
-rw-r--r--
mairix.elc
25.1
KB
-rw-r--r--
net-utils.elc
35.04
KB
-rw-r--r--
netrc.elc
4.95
KB
-rw-r--r--
network-stream.elc
12.02
KB
-rw-r--r--
newst-backend.elc
65.76
KB
-rw-r--r--
newst-plainview.elc
48.96
KB
-rw-r--r--
newst-reader.elc
9.66
KB
-rw-r--r--
newst-ticker.elc
7.82
KB
-rw-r--r--
newst-treeview.elc
76.37
KB
-rw-r--r--
newsticker.elc
769
B
-rw-r--r--
nsm.elc
34.82
KB
-rw-r--r--
ntlm.elc
13.79
KB
-rw-r--r--
pop3.elc
20.1
KB
-rw-r--r--
puny.elc
4.92
KB
-rw-r--r--
quickurl.elc
17.83
KB
-rw-r--r--
rcirc.elc
105.35
KB
-rw-r--r--
rfc2104.elc
1.2
KB
-rw-r--r--
rlogin.elc
10.97
KB
-rw-r--r--
sasl-cram.elc
1003
B
-rw-r--r--
sasl-digest.elc
3.33
KB
-rw-r--r--
sasl-ntlm.elc
1.62
KB
-rw-r--r--
sasl-scram-rfc.elc
3.6
KB
-rw-r--r--
sasl.elc
6.58
KB
-rw-r--r--
secrets.elc
23.55
KB
-rw-r--r--
shr-color.elc
8.82
KB
-rw-r--r--
shr.elc
69.72
KB
-rw-r--r--
sieve-manage.elc
15.31
KB
-rw-r--r--
sieve-mode.elc
6.94
KB
-rw-r--r--
sieve.elc
11.62
KB
-rw-r--r--
snmp-mode.elc
14.51
KB
-rw-r--r--
soap-client.elc
221.75
KB
-rw-r--r--
soap-inspect.elc
20.04
KB
-rw-r--r--
socks.elc
12.5
KB
-rw-r--r--
telnet.elc
9.65
KB
-rw-r--r--
tramp-adb.elc
107.17
KB
-rw-r--r--
tramp-archive.elc
25.39
KB
-rw-r--r--
tramp-cache.elc
23.77
KB
-rw-r--r--
tramp-cmds.elc
18.89
KB
-rw-r--r--
tramp-compat.elc
9.57
KB
-rw-r--r--
tramp-ftp.elc
4.38
KB
-rw-r--r--
tramp-gvfs.elc
107.3
KB
-rw-r--r--
tramp-integration.elc
7.03
KB
-rw-r--r--
tramp-loaddefs.el
60.78
KB
-rw-r--r--
tramp-rclone.elc
39.17
KB
-rw-r--r--
tramp-sh.elc
306.37
KB
-rw-r--r--
tramp-smb.elc
140
KB
-rw-r--r--
tramp-sudoedit.elc
76.86
KB
-rw-r--r--
tramp-uu.elc
1.91
KB
-rw-r--r--
tramp.elc
242.21
KB
-rw-r--r--
trampver.elc
2.15
KB
-rw-r--r--
webjump.elc
9.85
KB
-rw-r--r--
zeroconf.elc
18.4
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : mailcap.elc
;ELC ;;; Compiled ;;; in Emacs version 27.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&\210\313\314\315\316\317DD\320\321\322%\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 custom-declare-variable mailcap-prefer-mailcap-viewers funcall function #[0 "\300\207" [t] 1] "If non-nil, prefer viewers specified in ~/.mailcap.\nIf nil, the most specific viewer will be chosen, even if there is\na general override in ~/.mailcap. For instance, if /etc/mailcap\nhas an entry for \"image/gif\", that one will be chosen even if\nyou have an entry for \"image/*\" in your ~/.mailcap file." :type boolean] 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) (#$ . 1096)) #@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) (#$ . 1398)) #@12 (fn SYM) (defalias 'mailcap--get-user-mime-data #[257 "\300!\301\211\203# \211@\302\236A\303\236A\304\236AEB\262A\266\202\202 \210\211\237\207" [default-value nil viewer type test] 9 (#$ . 1671)]) #@16 (fn SYM VAL) (defalias 'mailcap--set-user-mime-data #[514 "\300\211\2036 \211@\211@A\211@A\211@A\301B\302B\205& \303BCBB\fB\262\f\266 A\266\202\202 \210\304\237\"\207" [nil viewer type test set-default] 18 (#$ . 1885)]) (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) (#$ . 3422)) (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) (#$ . 9232)) (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\"." (#$ . 9617)) #@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 (#$ . 10229)]) #@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 (#$ . 10929)]) (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\205r \305\204+ \306\307!\203 \306\307!\262\202+ \n >\203( \310\262\202+ \311\262\312;\2039 \313\f\314#\202: !\211\203n \211@\211:\205I \211A@;\203R \202T @\315!\203e \316!\203e \317\"\210\266A\266\202\202; \210\314\211\207" [mailcap-parsed-p mailcap-mime-data system-type mailcap-poor-system-types path-separator nil getenv "MAILCAPS" (("~/.mailcap" user) ("~/mail.cap" user) ("~/etc/mail.cap" user)) (("~/.mailcap" user) ("/etc/mailcap" system) ("/usr/etc/mailcap" system) ("/usr/local/etc/mailcap" system)) reverse split-string t file-readable-p file-regular-p mailcap-parse-mailcap] 9 (#$ . 11144) (list nil t)]) #@128 Parse out the mailcap file specified by FNAME. If SOURCE, mark the entry with this as the source. (fn FNAME &optional SOURCE) (defalias 'mailcap-parse-mailcap #[513 "\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\2047\345B\346\347\334\230\203\350\202QBD\351`\"\244\262\352!\210\203/\353BC\244\262\354#\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 source mailcap-add-mailcap-entry] 14 (#$ . 12219)]) #@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`\262f\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 (#$ . 13742)]) #@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[ \3148\315\232\204O \3148\316\232\203[ \310\311!\205V \317\262\202\204 \211@\312\232\203\204 \211A@\320\232\203\204 \3148\315\232\204z \3148\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 (#$ . 14446)]) #@86 Return a list of possible viewers from MAJOR for minor type MINOR. (fn MAJOR MINOR) (defalias 'mailcap-possible-viewers #[514 "\300\211\2034 \211@\211@A\211\211\232\204% \203+ \301\302\303Q \"\203+ B\262\266A\266\202\202 \210\211\237\207" [nil string-match "^" "$"] 13 (#$ . 15370)]) #@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 (#$ . 15677)]) (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=\262D 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 (#$ . 16680)]) #@25 (fn MAJOR MINOR INFO) (defalias 'mailcap-add-mailcap-entry #[771 "\301\"\211\204 BCBB\211\202V \301\"\211\203# \302\236\203. BAB\241\202T \302\236\204J \302\236\204J \303\236\303\236\232\203J \211\241\202T \211BAB\241\241\262\207" [mailcap-mime-data assoc test viewer] 9 (#$ . 17517)]) #@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 (#$ . 17837)]) #@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 (#$ . 18203)]) #@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\262A\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 (#$ . 18574)]) #@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 "\302\211\211\211\211\211\211\211\212\203 \n\206 \303C\202 \304 \206 \303!\262\305!\262\2032 C\262\202\257 \306\302\307\"\210\310@\311\"\262A@\262@\262\312\"A\211\262\203\237 \313\"\211\262\203\237 \314\315A\"\262\211\203\202 \211@\316 \"\203{ \211B\262A\266\202\202h \210\317\237\320\"\262 \203\233 \321\322\"\211\203\232 \211C\262\210@\262\323\236A;\203\257 \203\257 @\262\204\311 \324\232\204\311 \203\311 \325\324 #\202& \203\325 \326\232\203\340 \327\323\236A\"\202& ;\203\363 \327\312 \"\243\"\202& \330=\203\376 \202&\331!\262\323\236\332\236\203\327A\n\"\241\210\211\203#\211\327A\n\"\241\210\266)\207" [mailcap-mime-data mailcap-prefer-mailcap-viewers nil "text/plain" mail-header-parse-content-type mailcap-select-preferred-viewer mailcap-parse-mailcaps t 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 seq-find #[257 "\300\236A\301=\207" [source user] 3 "\n\n(fn ELEM)"] viewer "default" mailcap-mime-info "" mailcap-unescape-mime-test all copy-sequence test] 17 (#$ . 18993)]) #@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")) (#$ . 20867)) (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!\210A\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 (#$ . 24036) (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 (#$ . 25091)]) #@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 \304P\262\305\227\"A\207" [mailcap-mime-extensions mailcap-parse-mimetypes string-to-char 46 "." assoc] 4 (#$ . 25857)]) #@134 Return the MIME content type based on the FILE-NAME's extension. For instance, "foo.png" will result in "image/png". (fn FILE-NAME) (defalias 'mailcap-file-name-to-mime-type #[257 "\300\301\302\"\203 \303\304\"\202 \305!\207" [mailcap-extension-to-mime string-match "\\(\\.[^.]+\\)\\'" match-string 1 ""] 5 (#$ . 26139)]) #@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@\310A\236A\262\311\307\312\313#)\266\203\2046 B\262A\266\202\202 \210A\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 (#$ . 26472)]) #@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\262A\266\202\202\" \210A\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\262A\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 (#$ . 26909)]) #@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 (#$ . 27687)]) (provide 'mailcap)
Close
