%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 (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 (#$ . 777)])
#@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 (#$ . 1158)])
#@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 (#$ . 1467)])
#@15
(fn HANDLE)
(defalias 'mm-extern-ftp #[257 "\301\302!)\207" [mm-extern-anonymous nil mm-extern-anon-ftp] 3 (#$ . 1936)])
#@15
(fn HANDLE)
(defalias 'mm-extern-mail-server #[257 "\300\301!\210\211A@A\302\236A\303\236A\206 \304p\305\306\307\310\"!\203Q \311 \312\313\314\315\316!\317\"\320$\216\321\"\210\322 \210`d|\210\323!\210\301\324!\210\325 \210\326\262\301!\210)\210\202T \327\262eb\210\330\331\261\207" [require message server subject "none" nil y-or-n-p format "Send a request message to %s? " current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [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"] 13 (#$ . 2067)])
#@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\211@\203o \310@!\203o \311\312!r\211q\210\313\314\315\316\317!\320\"\321$\216\322 \210\323@!\210\324\3218\211@;\203Y \211@\262\202_ \211A@@\262\"\210db\210\325c\210\326\327!\240\210*\210\210\330\242@!\204\201 \331\242!\210\304\332!\210r\211\242@q\210\306C\313\314\333\316\317\"\334\"\321$\216!\210\211\327\240\210)\210\335\233\242\240\210)\336 \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*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 mm-disable-multibyte insert-buffer-substring mm-decode-content-transfer-encoding "\n\n" mm-dissect-buffer t bufferp mm-destroy-parts "Multipart external body is not supported" "\301\242?\205\n \302\300\242!\207" [mm-destroy-parts] 6 mm-merge-handles] 12 (#$ . 2749)])
#@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 (#$ . 3864)])
(provide 'mm-extern)
Zerion Mini Shell 1.0