ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/mm-bodies.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 rfc2047 mm-encode] 2)
(defvar mm-7bit-chars " -\n \f ")
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\"\207" [custom-declare-variable mm-body-charset-encoding-alist '((iso-2022-jp . 7bit) (iso-2022-jp-2 . 7bit) (utf-16 . base64) (utf-16be . base64) (utf-16le . base64)) "Alist of MIME charsets to encodings.\nValid encodings are `7bit', `8bit', `quoted-printable' and `base64'." :type (repeat (cons (symbol :tag "charset") (choice :tag "encoding" (const 7bit) (const 8bit) (const quoted-printable) (const base64)))) :group mime autoload message-options-get "message"] 8)
#@350 Encode a body.
Should be called narrowed to the body that is to be encoded.
If there is more than one non-ASCII MULE charset in the body, then the
list of MULE charsets found is returned.
If CHARSET is non-nil, it is used as the MIME charset to encode the body.
If successful, the MIME charset is returned.
If no encoding was done, nil is returned.
(defalias 'mm-encode-body #[(&optional charset) "\304 \204' \206b \212eb\210\305\306\307\310#\205% \206% \311\312!\206% \313\312\314\315!\")\207\212\2038 \316ed\317!#\210\202a eb\210\320ed\n#\211\204I \307\202` G\321V\203T \202` @\211\316ed\317!#\210))\207" [charset mail-parse-charset mm-hack-charsets charsets mm-multibyte-p re-search-forward "[^ -]" nil t message-options-get mm-body-charset-encoding-alist message-options-set mm-read-coding-system "Charset used in the article: " mm-encode-coding-region mm-charset-to-coding-system mm-find-mime-charset-region 1] 7 (#$ . 1073)])
#@67 Say whether any of the lines in the buffer is longer than LENGTH.
(defalias 'mm-long-lines-p #[(length) "\212eb\210\301\210m\204 iV\204 \302y\210\301\210\202 iV\205! i)\207" [length nil 1] 2 (#$ . 2023)])
#@77 Do Content-Transfer-Encoding and return the encoding of the current buffer.
(defalias 'mm-body-encoding #[(charset &optional encoding) ";\203\n \306\227!\307 \310\311!\312\313!\210 \204; \2031 \212\314\315\316\317#)\204; \212\314\320\316\317#)\204; \n\321=\203; \n\202\202 \204e \204e \f
\236A\204e A\317=\204a \fA>\204a \f=\203e \n\202\202 \206r \f
\236A\206r \322 \203{ \323!\324\325\"\210)*\207" [encoding longp bits mm-use-ultra-safe-encoding charset mm-body-charset-encoding-alist intern mm-body-7-or-8 mm-long-lines-p 1000 require message re-search-forward " $" nil t "^From " 7bit mm-qp-or-base64 mm-safer-encoding mm-encode-content-transfer-encoding "text/plain" message-posting-charset mail-parse-charset] 4 (#$ . 2241)])
#@39 Say whether the body is 7bit or 8bit.
(defalias 'mm-body-7-or-8 #[nil "\212eb\210\301w\210m)\203 \302\207\303\207" [mm-7bit-chars nil 7bit 8bit] 2 (#$ . 2999)])
#@121 Decodes buffer encoded with ENCODING, returning success status.
If TYPE is `text/plain' CRLF->LF translation may occur.
(defalias 'mm-decode-content-transfer-encoding #[(encoding &optional type) "\3061\234 \307=\203 \310ed\"\210\311\202\230 \312=\203D \313e\212eb\210\314\315\316\311#\2030 \317\224\317\225|\210\202 db\210\320\321\316\311#\203> \316y\210`)\"\202\230 \322>\203N \311\202\230 \323>\203a \324\325!\210 ed\"\210\311\202\230 \326=\203t \324\325!\210\ned\"\210\311\202\230 \327=\203\205 \324\325!\210 ed\"\202\230 \330!\203\224 ed\"\210\311\202\230 \331\332\"0\202\244 \331\333\f\"\210)\316
\203\311 \334>\203\311 \335\336
\"\203\311 eb\210\337\340\316\311#\203\311 \341\342\311\211#\210\202\270 \207" [encoding mm-uu-decode-function mm-uu-binhex-decode-function mm-uu-yenc-decode-function error type (error) quoted-printable quoted-printable-decode-region t base64 base64-decode-region re-search-forward "^[ ]*
?\n" nil 0 re-search-backward "^[ ]*[A-Za-z0-9+/]+=*[ ]*$" (nil 7bit 8bit binary) (x-uuencode x-uue) require mm-uu x-binhex x-yenc functionp message "Unknown encoding %s; defaulting to 8bit" "Error while decoding: %s" (base64 x-uuencode x-uue x-binhex x-yenc) string-match "\\`text/" search-forward "
\n" replace-match "\n"] 6 (#$ . 3169)])
#@253 Decode the current article that has been encoded with ENCODING to CHARSET.
ENCODING is a MIME content transfer encoding.
CHARSET is the MIME charset with which to decode the data after transfer
decoding. If it is nil, default to `mail-parse-charset'.
(defalias 'mm-decode-body #[(charset &optional encoding type) ";\203\n \306\227!\203 \307=\204 \307 >\204 >\203\" \n\212 \203, \310 \f\"\210\311\312!\205\201 \313=?\205\201 \314\315\316#\211 \204R <\203R \317 >\203R \314\n!\203q
\203q \320 \203q
\321=\203k \n\211\203q \322ed
#\210\323\324!\203| \324J\202}
\211))\207" [charset mail-parse-ignored-charsets mail-parse-charset encoding type coding-system intern gnus-all mm-decode-content-transfer-encoding featurep mule gnus-decoded mm-charset-to-coding-system nil t gnus-unknown mm-multibyte-p ascii mm-decode-coding-region boundp last-coding-system-used buffer-file-coding-system] 5 (#$ . 4456)])
#@29 Decode STRING with CHARSET.
(defalias 'mm-decode-string #[(string charset) ";\203\n \305\227!\203 \306=\204 \306 >\204 >\203\" \n\307\310!\203b \311\312\313#\211\204A <\203A \314 >\203A \311\n!\205^ \205^ \315 \205^ \316=\203Z \n\211\205^ \317\f \")\206c \f\207" [charset mail-parse-ignored-charsets mail-parse-charset coding-system string intern gnus-all featurep mule mm-charset-to-coding-system nil t gnus-unknown mm-multibyte-p ascii mm-decode-coding-string] 5 (#$ . 5384)])
(provide 'mm-bodies)
Kontol Shell Bypass