;ELC ;;; Compiled ;;; in Emacs version 27.2 ;;; 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) #@375 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. (defalias 'mm-encode-body #[(&optional charset) "\204& \206q\212eb\210\305\306\307\310#\205$\n\206$\311\312!\206$\313\312\314\315!\")\207\212 \203?\316\317 \320 !\"\321 \210\322\307!\210c\210 \202peb\210\323ed #\211\204P\307\202o\fG\324V\203[\f\202o\f@\211\316\317 \320 !\"\321 \210\322\307!\210c\210))\207" [enable-multibyte-characters charset mail-parse-charset mm-hack-charsets 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] 6 (#$ . 1071)]) #@67 Say whether any of the lines in the buffer is longer than LENGTH. (defalias 'mm-long-lines-p #[(length) "\212eb\210\301\210m\204iV\204\302y\210\301\210\202iV\205!i)\207" [length nil 1] 2 (#$ . 2154)]) #@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\204eA\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 (#$ . 2372)]) #@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 (#$ . 3130)]) #@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~\307\267\202g\310ed\"\210\311\202z\312e\212eb\210\313\314\315\311#\203*\316\224\316\225|\210\202db\210\317\320\315\311#\2038\315y\210`)\"\202z\311\202z\321\322!\210 ed\"\210\311\202z\321\322!\210\ned\"\210\311\202z\321\322!\210 ed\"\202z\323!\203ved\"\210\311\202z\324\325\"0\202\206\324\326\f\"\210)\315 \203\253\327>\203\253\330\331 \"\203\253eb\210\332\333\315\311#\203\253\334\335\311\211#\210\202\232\207" [encoding mm-uu-decode-function mm-uu-binhex-decode-function mm-uu-yenc-decode-function error type (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"] 6 (#$ . 3300)]) #@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=?\205q\312\313\314#\211\204L <\203L\315 >\203L\312\n!\203k \203k\203k \316=\203e\n\211\203k\317ed #\210\211))\207" [charset mail-parse-ignored-charsets mail-parse-charset encoding type 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 enable-multibyte-characters last-coding-system-used buffer-file-coding-system] 5 (#$ . 4615)]) #@29 Decode STRING with CHARSET. (defalias 'mm-decode-string #[(string charset) ";\203\n\306\227!\203 \307=\204 \307 >\204  >\203\"\n\310\311\312#\211\204; <\203;\313 >\203;\310\n!\205W \205W\f\205W \314=\203S\n\211\205W\315 \")\206\\ \207" [charset mail-parse-ignored-charsets mail-parse-charset coding-system enable-multibyte-characters string intern gnus-all mm-charset-to-coding-system nil t gnus-unknown ascii decode-coding-string] 5 (#$ . 5483)]) (provide 'mm-bodies)