;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (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\304DD\305\306\307\310\311&\210\312\313\314\"\207" [custom-declare-variable mm-body-charset-encoding-alist funcall function #[0 "\300\207" [((iso-2022-jp . 7bit) (iso-2022-jp-2 . 7bit) (utf-16 . base64) (utf-16be . base64) (utf-16le . base64))] 1 ""] "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) #@399 Encode whole buffer's contents. Buffer's multibyteness will be turned off when encoding takes place. 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. (fn &optional CHARSET) (defalias 'mm-encode-body #[256 "\204&\211\206r\212eb\210\303\304\305\306#\205$ \206$\307\310!\206$\311\310\312\313!\")\207\212\211\203?\314\315 \316!\"\317 \210\320\305!\210c\210\211\202qeb\210\321ed\n#\211\204O\305\202o\211G\322V\203Z\211\202o\211@\211\262\314\315 \316!\"\317 \210\320\305!\210c\210\262)\207" [enable-multibyte-characters mail-parse-charset mm-hack-charsets re-search-forward "[^-]" nil t message-options-get mm-body-charset-encoding-alist message-options-set read-coding-system "Charset used in the article: " encode-coding-string buffer-string mm-charset-to-coding-system erase-buffer set-buffer-multibyte mm-find-mime-charset-region 1] 7 (#$ . 796)]) #@80 Say whether any of the lines in the buffer is longer than LENGTH. (fn LENGTH) (defalias 'mm-long-lines-p #[257 "\212eb\210\300\210m\204iV\204\301y\210\300\210\202iV\205!i)\207" [nil 1] 3 (#$ . 1891)]) #@110 Do Content-Transfer-Encoding and return the encoding of the current buffer. (fn CHARSET &optional ENCODING) (defalias 'mm-body-encoding #[513 "\211;\203 \304\227!\262\305 \306\307!\310\311!\210\211\2048\2030\212\312\313\314\315#)\2048\212\312\316\314\315#)\2048\317=\2038\207\204]\211\204] \236A\204]\nA\315=\204[\nA>\204[ =\203]\207\206j \236A\206j\320 \203s\321!\262\322\323\"\210\207" [mm-use-ultra-safe-encoding mm-body-charset-encoding-alist message-posting-charset mail-parse-charset 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"] 8 (#$ . 2111)]) #@39 Say whether the body is 7bit or 8bit. (defalias 'mm-body-7-or-8 #[0 "\212eb\210\301w\210m)\203\302\207\303\207" [mm-7bit-chars nil 7bit 8bit] 2 (#$ . 2841)]) #@151 Decodes buffer encoded with ENCODING, returning success status. If TYPE is `text/plain' CRLF->LF translation may occur. (fn ENCODING &optional TYPE) (defalias 'mm-decode-content-transfer-encoding #[513 "\3031~\304\267\202g\305ed\"\210\306\202z\307e\212eb\210\310\311\312\306#\203*\313\224\313\225|\210\202db\210\314\315\312\306#\2038\312y\210`)\"\202z\306\202z\316\317!\210ed\"\210\306\202z\316\317!\210 ed\"\210\306\202z\316\317!\210\ned\"\202z\320!\203ved\"\210\306\202z\321\322\"0\202\206\321\323\"\210\312\262\203\253\324>\203\253\325\326\"\203\253eb\210\327\330\312\306#\203\253\331\332\306\211#\210\202\232\207" [mm-uu-decode-function mm-uu-binhex-decode-function mm-uu-yenc-decode-function (error) #s(hash-table size 10 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (quoted-printable 10 base64 19 nil 62 7bit 62 8bit 62 binary 62 x-uuencode 66 x-uue 66 x-binhex 79 x-yenc 92)) quoted-printable-decode-region t base64-decode-region re-search-forward "^[ ]* ?\n" nil 0 re-search-backward "^[ ]*[A-Za-z0-9+/]+=*[ ]*$" require mm-uu 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"] 8 (#$ . 3009)]) #@291 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'. (fn CHARSET &optional ENCODING TYPE) (defalias 'mm-decode-body #[769 ";\203 \305\227!\262\203!\306=\204!\306>\204!>\203$ \262\212\203.\307\"\210\310=?\205r\311\312\313#\211\204N<\203N\314>\203N\311 !\262\203m\211\203m\n\203m\211\315=\203g \211\262\203m\316ed#\210 \211\262)\207" [mail-parse-ignored-charsets mail-parse-charset enable-multibyte-characters last-coding-system-used buffer-file-coding-system intern gnus-all mm-decode-content-transfer-encoding gnus-decoded mm-charset-to-coding-system nil t gnus-unknown ascii decode-coding-region] 8 (#$ . 4314)]) #@50 Decode STRING with CHARSET. (fn STRING CHARSET) (defalias 'mm-decode-string #[514 "\211;\203 \303\227!\262\211\203!\304=\204!\304>\204!\211>\203$ \262\305\306\307#\211\204=<\203=\310>\203=\305 !\262\205Z\211\205Z\n\205Z\211\311=\203V \211\262\205Z\312\"\262\206`\207" [mail-parse-ignored-charsets mail-parse-charset enable-multibyte-characters intern gnus-all mm-charset-to-coding-system nil t gnus-unknown ascii decode-coding-string] 6 (#$ . 5171)]) (provide 'mm-bodies)