%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/gnus/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/gnus/mm-archive.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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-gz" 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) "A@@\306	\n\"AA\307\204\310\311	\"\210\312\313\314
\"\304\"\315\f\316\"\210\317\216\320\321!$r$q\210\322\216\323 \210\324!\210\325\235\203r\313\326\f\"%\327ed%\307\330%\210\331!\325\235%\240\210\332\333@\307\211\211\334A\fC\"&\210\335%!\210)\202\206\332\336ed@\307\337\340!\307\334A\fC\"&\210+\341\342\343\f!!,BB\207" [handle type mm-archive-decoders decoder dir mm-tmp-directory assoc nil error "No decoder found for %s" 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=#:temp-buffer buffer-name kill-buffer] 2] mm-disable-multibyte mm-insert-part "%f" "mail.zip" write-region 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 #1# 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)

Zerion Mini Shell 1.0