ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/mm-extern.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 2619)])
#@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 (#$ . 3629)])
(provide 'mm-extern)
Kontol Shell Bypass