;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:14 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/mm-archive.el
;;; in Emacs version 24.3.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'mm-decode)
(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@@	\"\211AA)\307\310\311\"\304\"\312\f\313\"\210\314\216\315\316!\"r\"q\210\317\216\320 \210\321!\210\322
\235\203h\310\323\f\"#\324ed#\325\326%\210\327
!\322
\235#\240\210\330\331
@\325\211\211\332
A\fC\"&\210\333#!\210)\202|\330\334ed
@\325\335\336!\325\332
A\fC\"&\210+\337\340\341\f!!+BB\207" [handle mm-archive-decoders x mm-tmp-directory dir decoder assoc mm-make-temp-file expand-file-name "emm." set-file-modes 448 ((delete-directory dir t)) generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer 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 #1# file] 12])
(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*" ((byte-code "\301!\203\n\302!\210\301\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) "\304 \214``}\210\305	!\211AA)\306\211\203(@db\210\307	!\210A\211\204*db\210\310	\233\311\306\312\313\314\304 DD\315\316BB\317\320BBFE\240*\207" [start handle x --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)