;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!\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\334 A\fC\"&\210\335%!\210)\202\206\332\336ed @\307\337\340!\307\334 A\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)