| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/gnus/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
(byte-code "\300\301!\210\302\303\304\"\210\302\305\306\"\210\302\307\310\"\207" [require mm-decode autoload gnus-recursive-directory-files "gnus-util" gnus-get-buffer-create "gnus" 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 #[0 "\207" [mm-archive-decoders] 1])
#@15
(fn HANDLE)
(defalias 'mm-dissect-archive #[257 "\211A@@\302\"AA\303C\204 \304\305\"\210\306 \307\310\"\216\311\312!\210\313\314\315 \"\316\"\240\210)\210\307\317\"\216\320\321\322\"r\211q\210\307\323\"\216\324 \210\325!\210\326\235\203~ \314\327\242\"\330ed\303\331%\210\332!\262\326\235\240\210\333\334@\303\211\211\335\nA\n\242C\"&\210\336!\266\202\226 \333\337ed@\303\340\341!\303\335 A \242C\"&\210*\210\342\343\344\242!!)BB\207" [mm-archive-decoders mm-tmp-directory assoc nil error "No decoder found for %s" default-file-modes make-closure #[0 "\301\300!\207" [V0 set-default-file-modes] 2] set-default-file-modes 448 make-temp-file expand-file-name "emm." dir #[0 "\301\300\242\302\"\207" [V0 delete-directory t] 3] generate-new-buffer " *temp*" t #[0 "\301\300!\205 \302\300!\207" [V0 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 gnus-get-buffer-create "*tnef*" "multipart/mixed" mm-archive-list-files gnus-recursive-directory-files] 16 (#$ . 661)])
#@14
(fn FILES)
(defalias 'mm-archive-list-files #[257 "\300\211\211\211\203j \211@\301\302\303\"r\211q\210\304\305\"\216\306\307\"\203& \310\311\312\"!\262\204- \313\262\306\314\"\2039 \315\202: \316\262\317\320\"c\210\321c\210\322!\210\323 C\324\300\325BD\300\211\211\257B\262*\210A\266\202\202 \210\207" [nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 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] 15 (#$ . 1786)])
#@15
(fn HANDLE)
(defalias 'mm-archive-dissect-and-inline #[257 "\300 \214``}\210\301!AA\211\203 \211@db\210\302!\210A\266\202\202\f \210db\210\303\233\300 \304\305#\262\240)\207" [point-marker mm-dissect-archive mm-display-inline 3 make-closure #[0 "\303\304\300\301\"\210\300\301|)\207" [V0 V1 inhibit-read-only t remove-images] 3]] 8 (#$ . 2515)])
(provide 'mm-archive)