;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303\304\"\210\302\305\306\"\210\302\307\306\"\210\310\311\312\313\314DD\315\316\317\320\321&\210\310\322\312\313\323DD\324\325\326\316\327\320\330&	\210\310\331\312\313\332DD\333\325\326\316\334\320\330&	\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 funcall function #[0 "\300\207" [(("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))] 1 #1=""] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 (#$ . 1720))
#@77 Insert text/plain headers with CHARSET and ENCODING.

(fn CHARSET ENCODING)
(defalias 'mm-insert-rfc822-headers #[514 "\300c\210\301\302\303!\227!\304\261\210\305\303!\227\304\261\207" ["MIME-Version: 1.0\n" "Content-Type: text/plain; charset=" mail-quote-string symbol-name "\n" "Content-Transfer-Encoding: "] 6 (#$ . 2243)])
#@33 Insert multipart/mixed headers.
(defalias 'mm-insert-multipart-headers #[0 "\300c\210\301\302\303\261\210\302\207" ["MIME-Version: 1.0\n" "Content-Type: multipart/mixed; boundary=\"" "=-=-=" "\"\n"] 3 (#$ . 2580)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias mm-default-file-encoding mm-default-file-type nil make-obsolete "28.1"] 4)
#@52 Return a default content type for FILE.

(fn FILE)
(defalias 'mm-default-file-type #[257 "\300\301\"\204	\302\207\303\304\305\"!\207" [string-match "\\.[^.]+\\'" "application/octet-stream" mailcap-extension-to-mime match-string 0] 5 (#$ . 2943)])
#@89 Return an encoding similar to ENCODING but safer than it.

(fn ENCODING &optional TYPE)
(defalias 'mm-safer-encoding #[513 "
\300\267\202\301\207\211\302\230\203\303\207\304\207\211\302\230\203\305\207\306\207" [#s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (7bit 6 8bit 8 quoted-printable 8)) 7bit "message/rfc822" 8bit quoted-printable binary base64] 4 (#$ . 3199)])
#@239 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.

(fn ENCODING &optional TYPE)
(defalias 'mm-encode-content-transfer-encoding #[513 "
\300\267\202,\301ed\302#\207\303\304\"\203'eb\210\305\306\307\302#\203'\310\311\302\211#\210\202\312ed\"\207
\313>\206N
?\206N\314!\203J\3151G
ed\"0\207\210\307\207\316\317\"\207" [#s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (quoted-printable 6 base64 12)) quoted-printable-encode-region t string-match "\\`text/" search-forward "\n" nil replace-match "
\n" base64-encode-region (7bit 8bit binary) functionp (error) error "Unknown encoding %s"] 6 (#$ . 3620)])
#@296 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.

(fn TYPE &optional ENCODING)
(defalias 'mm-encode-buffer #[513 "
;\203	
\202
@\300\206#<\203\301\236A@\206 \302!\211\262\"\210
\207" [mm-encode-content-transfer-encoding encoding mm-content-transfer-encoding] 6 (#$ . 4434)])
#@61 Insert headers for TYPE.

(fn TYPE ENCODING &optional FILE)
(defalias 'mm-insert-headers #[770 "\300\261\210\211\203\301\302!\303\261\210\304c\210\305\306\"c\210\307c\210\211\203)\310\302!\303\261\210\304c\210\304c\207" ["Content-Type: " ";\n	name=\"" file-name-nondirectory "\"" "\n" format "Content-Transfer-Encoding: %s\n" "Content-Disposition: inline" ";\n	filename=\""] 6 (#$ . 4944)])
#@73 Return a CTE suitable for TYPE to encode the current buffer.

(fn TYPE)
(defalias 'mm-content-transfer-encoding #[257 "\3022?\211\205>\303
@@\"\2037\304\302@A@\305=\203\"\306 \202&@A@	\2032\307
\"\2023\211\262
\"\210\211A\262
\2020\207" [mm-content-transfer-encoding-defaults mm-use-ultra-safe-encoding found string-match throw qp-or-base64 mm-qp-or-base64 mm-safer-encoding] 8 (#$ . 5351)])
#@97 Return the type with which to encode the buffer.
This is either `base64' or `quoted-printable'.
(defalias 'mm-qp-or-base64 #[0 "\301\232\203\302\207\212d\303e\\^\304eb\210\305w\210`W\203*\211T\262
\306u\210\305w\210\202\307
_eZW\204:\211\306U\203@\266\302\202C\266\310)\207" [mm-use-ultra-safe-encoding (sign . "pgp") quoted-printable 2000 0 " -
\n	" 1 6 base64] 5 (#$ . 5764)])
(provide 'mm-encode)