ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/mm-archive.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!\210\302\303\304\"\210\302\305\306\"\207" [require mm-decode autoload gnus-recursive-directory-files "gnus-util" mailcap-extension-to-mime "mailcap"] 3)
(defvar mm-archive-decoders '(("application/ms-tnef" t "tnef" "-f" "-" "-C") ("application/zip" nil "unzip" "-j" "-x" "%f" "-d") ("application/x-gtar-compressed" nil "tar" "xzf" "-" "-C") ("application/x-tar" nil "tar" "xf" "-" "-C")))
(defalias 'mm-archive-decoders #[nil "\207" [mm-archive-decoders] 1])
(defalias 'mm-dissect-archive #[(handle) "\306A@@ \"AA\307\310\311\n\"\303\" \312 \313\"\210\314\216\315\316! r
q\210\317\216\320 \210\321!\210\322\f\235\203c \310\323 \" \"\324ed\"\325\326%\210\327\f!\322\f\235\"\240\210\330\331\f@\325\211\211\332\fA C\"&\210\333\"!\210)\202w \330\334ed\f@\325\335\336!\325\332\fA C\"&\210+\337\340\341 !!+BB\207" [handle mm-archive-decoders mm-tmp-directory dir decoder #1=#:temp-buffer assoc mm-make-temp-file expand-file-name "emm." set-file-modes 448 #[nil "\301\302\"\207" [dir delete-directory t] 3] generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte mm-insert-part "%f" "mail.zip" write-region nil silent copy-sequence apply call-process append delete-file call-process-region get-buffer-create "*tnef*" "multipart/mixed" mm-archive-list-files gnus-recursive-directory-files file] 11])
(defalias 'mm-archive-list-files #[(files) "\306\211\211 \306 \211 \203f
@\307\310! rq\210\311\216\312\313\f\"\203+ \314\315\316\f\"! \2041 \317\312\320 \"\203< \321\202= \322\323\324 \"c\210\325c\210\326\f!\210\327 C\330\306\331\fBD\306\211\211\257\nB+
A\211\204 *\n+\207" [disposition type handles files file --dolist-tail-- nil generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] string-match "\\.\\([^.]+\\)$" mailcap-extension-to-mime match-string 1 "application/octet-stream" "^image/\\|^text/" "inline" "attachment" format "Content-type: %s\n" "Content-Transfer-Encoding: 8bit\n\n" insert-file-contents mm-copy-to-buffer 8bit filename #1#] 9])
(defalias 'mm-archive-dissect-and-inline #[(handle) "\303 \214``}\210\304 !AA\305\211\203% \n@db\210\306 !\210\nA\211\204 *db\210\307 \233\310\305\311\312\313\303 DD\314\315BB\316\317BBFE\240*\207" [start handle --dolist-tail-- point-marker mm-dissect-archive nil mm-display-inline 3 lambda let (inhibit-read-only t) end remove-images (end) delete-region (end)] 10])
(provide 'mm-archive)
Kontol Shell Bypass