;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:15 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/mm-encode.el
;;; in Emacs version 24.3.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\302\303\304\"\210\302\305\306\"\210\302\307\306\"\210\310\311\312\313\314\315\316\317&\210\310\320\321\322\323\324\314\325\316\326&	\210\310\327\321\330\323\324\314\331\316\326&	\207" [require mail-parse autoload mailcap-extension-to-mime "mailcap" mm-body-7-or-8 "mm-bodies" mm-long-lines-p custom-declare-variable mm-content-transfer-encoding-defaults '(("text/x-patch" 8bit) ("text/.*" qp-or-base64) ("message/rfc822" 8bit) ("application/emacs-lisp" qp-or-base64) ("application/x-emacs-lisp" qp-or-base64) ("application/x-patch" qp-or-base64) (".*" base64)) "Alist of regexps that match MIME types and their encodings.\nIf the encoding is `qp-or-base64', then either quoted-printable\nor base64 will be used, depending on what is more efficient.\n\nThis list is only consulted when encoding MIME parts in the\nbodies -- not for the regular non-MIME-ish messages." :type (repeat (list (regexp :tag "MIME type") (choice :tag "encoding" (const 7bit) (const 8bit) (const qp-or-base64) (const quoted-printable) (const base64)))) :group mime mm-sign-option nil "Option how to create signed parts.\nnil, use the default keys without asking;\n`guided', let you select signing keys from the menu." :version "23.2" (choice (item guided) (item :tag "default" nil)) mime-security mm-encrypt-option "Option how to create encrypted parts.\nnil, use the default keys without asking;\n`guided', let you select recipients' keys from the menu." (choice (item guided) (item :tag "default" nil))] 10)
#@466 If non-nil, use encodings aimed at Procrustean bed survival.

This means that textual parts are encoded as quoted-printable if they
contain lines longer than 76 characters or starting with "From " in
the body.  Non-7bit encodings (8bit, binary) are generally disallowed.
This is to reduce the probability that a broken MTA or MDA changes the
message.

This variable should never be set directly, but bound before a call to
`mml-generate-mime' or similar functions.
(defvar mm-use-ultra-safe-encoding nil (#$ . 2069))
#@54 Insert text/plain headers with CHARSET and ENCODING.
(defalias 'mm-insert-rfc822-headers #[(charset encoding) "\302c\210\303\304\305!\227!\306\261\210\307\305	!\227\306\261\207" [charset encoding "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=" mail-quote-string symbol-name "\n" "Content-Transfer-Encoding: "] 4 (#$ . 2592)])
#@33 Insert multipart/mixed headers.
(defalias 'mm-insert-multipart-headers #[nil "\301\302c\210\303\304\261\210)\207" [boundary "=-=-=" "MIME-Version: 1.0\n" "Content-Type: multipart/mixed; boundary=\"" "\"\n"] 3 (#$ . 2938)])
#@37 Return a default encoding for FILE.
(defalias 'mm-default-file-encoding #[(file) "\301\302\"\204	\303\207\304\305\306\"!\207" [file string-match "\\.[^.]+$" "application/octet-stream" mailcap-extension-to-mime match-string 0] 4 (#$ . 3171)])
#@59 Return an encoding similar to ENCODING but safer than it.
(defalias 'mm-safer-encoding #[(encoding &optional type) "\302=\203\302\207\303>\203	\304\230\203\305\207\306\207	\304\230\203 \307\207\310\207" [encoding type 7bit (8bit quoted-printable) "message/rfc822" 8bit quoted-printable binary base64] 2 (#$ . 3422)])
#@209 Encode the current buffer with ENCODING for MIME type TYPE.
ENCODING can be: nil (do nothing); one of `quoted-printable', `base64';
`7bit', `8bit' or `binary' (all do nothing); a function to do the encoding.
(defalias 'mm-encode-content-transfer-encoding #[(encoding &optional type) "\302=\203\f\303ed\304#\207\305=\2032\306\307	\"\203-eb\210\310\311\312\304#\203-\313\314\304\211#\210\202\315ed\"\207\316>\206L?\206L\317!\203H\312\320\321\217\207\322\323\"\207" [encoding type quoted-printable quoted-printable-encode-region t base64 string-match "\\`text/" search-forward "\n" nil replace-match "
\n" base64-encode-region (7bit 8bit binary) functionp (byte-code "ed\"\207" [encoding] 3) ((error)) error "Unknown encoding %s"] 4 (#$ . 3755)])
#@266 Encode the buffer which contains data of MIME type TYPE by ENCODING.
TYPE is a string or a list of the components.
The optional ENCODING overrides the encoding determined according to
TYPE and `mm-content-transfer-encoding-defaults'.
The encoding used is returned.
(defalias 'mm-encode-buffer #[(type &optional encoding) ";\203	\202@\304\n\206&<\203!\302\236\211A@)\206$\305	!\211	\"\210\n)\207" [type mime-type encoding x mm-encode-content-transfer-encoding mm-content-transfer-encoding] 4 (#$ . 4522)])
#@26 Insert headers for TYPE.
(defalias 'mm-insert-headers #[(type encoding &optional file) "\303\261\210	\203\304\305	!\306\261\210\307c\210\310\311\n\"c\210\312c\210	\203)\313\305	!\306\261\210\307c\210\307c\207" [type file encoding "Content-Type: " ";\n	name=\"" file-name-nondirectory "\"" "\n" format "Content-Transfer-Encoding: %s\n" "Content-Disposition: inline" ";\n	filename=\""] 3 (#$ . 5047)])
#@62 Return a CTE suitable for TYPE to encode the current buffer.
(defalias 'mm-content-transfer-encoding #[(type) "\302\303\215)\207" [mm-content-transfer-encoding-defaults rules found (byte-code "\205C\305\211@@)\n\"\203:\306\307@\211A@)\310=\203#\311 \202*@\211A@)\f\2036\312\n\"\2027)\"\210\211A@\210\202\207" [rules x type encoding mm-use-ultra-safe-encoding string-match throw found qp-or-base64 mm-qp-or-base64 mm-safer-encoding] 6)] 2 (#$ . 5460)])
#@97 Return the type with which to encode the buffer.
This is either `base64' or `quoted-printable'.
(defalias 'mm-qp-or-base64 #[nil "\303\232\203\304\207\212d\305e\\^\306eb\210\307\nw\210`\nW\203+	T\310u\210\307\nw\210\202	\311_\neZW\204;	\310U\203?\304\202@\312+\207" [mm-use-ultra-safe-encoding n8bit limit (sign . "pgp") quoted-printable 2000 0 " -
\n	" 1 6 base64] 3 (#$ . 5940)])
(provide 'mm-encode)