HOME

;ELC
;;; Compiled
;;; in Emacs version 26.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\300\302!\210\300\303!\207" [require mm-util mm-decode mm-url] 2)
(defvar mm-extern-function-alist '((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)))
(defvar mm-extern-anonymous "anonymous")
(defalias 'mm-extern-local-file #[(handle) "\304 \210\303A@A\236A	\211\204\305\306!\210\307 \210\310!\203*\311\312\211\211\211\313&\202.\305\314\"*\207" [handle mm-binary-coding-system coding-system-for-read name erase-buffer error "The filename is not specified" mm-disable-multibyte file-exists-p mm-insert-file-contents nil t "File %s is gone"] 8])
(defalias 'mm-extern-url #[(handle) "\306 \210\305A@A\236A	\n\211\204\307\310!\210\311 \210\312
!\210\f\211+\207" [handle buffer-file-name mm-binary-coding-system coding-system-for-read name url erase-buffer error "URL is not specified" mm-disable-multibyte mm-url-insert-file-contents] 4])
(defalias 'mm-extern-anon-ftp #[(handle) "\306 \210A@A\302	\236A\303	\236A\304	\236A\305	\236A\307\206(\310\311\312\"!\313\314\f\307\n\260\n\204>\315\316!\210\317 \210\320\321\211\211\211\322&.\207" [handle params name site directory mode erase-buffer "/" read-string format "ID for %s: " "@" ":" error "The filename is not specified" mm-disable-multibyte mm-insert-file-contents nil t mm-extern-anonymous path mm-binary-coding-system coding-system-for-read] 8])
(defalias 'mm-extern-ftp #[(handle) "\302\303	!)\207" [mm-extern-anonymous handle nil mm-extern-anon-ftp] 2])
(defalias 'mm-extern-mail-server #[(handle) "\306\307!\210A@A\302	\236A\303	\236A\206\310p\311\312\313\314\n\"!\203K\315 \316\216\317\n\"\210\320 \210`d|\210\321\f!\210\307\322!\210\323 \210\324\307
!\210*\202M\325eb\210\326
\327\261-\207" [handle params server subject buf info require message "none" nil y-or-n-p format "Send a request message to %s? " current-window-configuration #[nil "\301!\207" [#1=#:wconfig 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" #1#] 4])
#@54 Put the external-body part of HANDLE into its cache.
(defalias 'mm-extern-cache-contents #[(handle) "\301A@A\236A\306	\206\307\310!\227!\n\236A\311\204!\307\312	\"\210\211@\203d\313@!\203d\314\315!r
q\210\316\216\317 \210\320@!\210\321\3228\211@;\203R@\202VA@@)\"\210db\210\323c\210\324\325!+)\326\f@!\204t\327\f!\210\307\330!\210r\f@q\210\311\331\216!\210\325*\332\233\f\240\210)\333\f\"\211+\207" [handle access-type mm-extern-function-alist func handles #1=#:temp-buffer intern error "Couldn't find access type" nil "Access type (%s) is not supported" buffer-name generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte insert-buffer-substring mm-decode-content-transfer-encoding 2 "\n\n" mm-dissect-buffer t bufferp mm-destroy-parts "Multipart external body is not supported" #[nil "?\205\302	!\207" [good handles mm-destroy-parts] 2] 6 mm-merge-handles good gnus-article-mime-handles] 4 (#$ . 2617)])
#@200 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.
(defalias 'mm-inline-external-body #[(handle &optional no-display) "\3028\204\n\303!\210	?\205-\212\214``}\210\304\3028!\210*\305\233\305\30288\240\210\305\3028\233\306\240\207" [handle no-display 6 mm-extern-cache-contents mm-display-part 3 nil] 4 (#$ . 3627)])
(provide 'mm-extern)