Edit file

File name : mm-extern.elc

Content :;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�@\202V�A@@)\"\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)

Save