;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\204i
V\204\301y\210\300\210\202i
V\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!\203v
ed\"\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)