;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require mm-util mm-decode mm-url] 2) (defvar mm-extern-function-alist (byte-code "\300\301B\302\303B\304\305B\306\307B\310\311B\257\207" [local-file mm-extern-local-file url mm-extern-url anon-ftp mm-extern-anon-ftp ftp mm-extern-ftp mail-server mm-extern-mail-server] 6)) (defvar mm-extern-anonymous "anonymous") #@15 (fn HANDLE) (defalias 'mm-extern-local-file #[257 "\302 \210\303A@A\236A\211\204\304\305!\210\306 \210\307!\203)\310\311\211\211\211\312&\202-\304\313\")\207" [mm-binary-coding-system coding-system-for-read erase-buffer name error "The filename is not specified" mm-disable-multibyte file-exists-p mm-insert-file-contents nil t "File %s is gone"] 9 (#$ . 453)]) #@15 (fn HANDLE) (defalias 'mm-extern-url #[257 "\303 \210\304A@A\236A \204\305\306!\210\307 \210\310!\210\211\211)\207" [buffer-file-name mm-binary-coding-system coding-system-for-read erase-buffer url error "URL is not specified" mm-disable-multibyte mm-url-insert-file-contents] 5 (#$ . 834)]) #@15 (fn HANDLE) (defalias 'mm-extern-anon-ftp #[257 "\303 \210\211A@A\304\236A\305\236A\306\236A\307\206\310\311\312\"!\313\314\307 \260 \2041\315\316!\210\317 \210\320\321\211\211\211\322&)\207" [mm-extern-anonymous mm-binary-coding-system coding-system-for-read erase-buffer name site directory "/" read-string format "ID for %s: " "@" ":" error "The filename is not specified" mm-disable-multibyte mm-insert-file-contents nil t] 13 (#$ . 1142)]) #@15 (fn HANDLE) (defalias 'mm-extern-ftp #[257 "\301\302!)\207" [mm-extern-anonymous nil mm-extern-anon-ftp] 3 (#$ . 1611)]) #@15 (fn HANDLE) (defalias 'mm-extern-mail-server #[257 "\300\301!\210\211A@A\302\236A\303\236A\206\304p\305\306\307\310\"!\203J\311 \312\313\"\216\314\"\210\315 \210`d|\210\316!\210\301\317!\210\320 \210\321\262\301!\210)\210\202M\322\262eb\210\323\324\261\207" [require message server subject "none" nil y-or-n-p format "Send a request message to %s? " current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] message-mail message-goto-body insert-buffer-substring "Requesting external body..." message-send-and-exit "Request is sent." "Request is not sent." "[" "]\n\n"] 10 (#$ . 1742)]) #@67 Put the external-body part of HANDLE into its cache. (fn HANDLE) (defalias 'mm-extern-cache-contents #[257 "\302A@A\236A\303\206\304\305!\227!\236A\306C\204\304\307\"\210@\203j\310@!\203j\311\312\313\"r\211q\210\314\315\"\216\316 \210\317@!\210\320\3218\211@;\203T\211@\262\202Z\211A@@\262\"\210db\210\322c\210\323\313!\240\210*\210\324\242@!\204{\325\242!\210\304\326!\210r\211\242@q\210\306C\314\327#\216!\210\211\313\240\210)\210\330\233\242\240\210)\331 \242\"\211\207" [mm-extern-function-alist gnus-article-mime-handles access-type intern error "Couldn't find access type" nil "Access type (%s) is not supported" buffer-name generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] mm-disable-multibyte insert-buffer-substring mm-decode-content-transfer-encoding 2 "\n\n" mm-dissect-buffer bufferp mm-destroy-parts "Multipart external body is not supported" #[0 "\301\242?\205\n\302\300\242!\207" [V0 V1 mm-destroy-parts] 2] 6 mm-merge-handles] 9 (#$ . 2391)]) #@235 Show the external-body part of HANDLE. This function replaces the buffer of HANDLE with a buffer contains the entire message. If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing. (fn HANDLE &optional NO-DISPLAY) (defalias 'mm-inline-external-body #[513 "\3008\204\n\301!\210\211?\205-\212\214``}\210\302\3008!\210*\303\233\303\30088\240\210\303\3008\233\304\240\207" [6 mm-extern-cache-contents mm-display-part 3 nil] 6 (#$ . 3457)]) (provide 'mm-extern)