Current File : //usr/local/share/emacs/27.2/lisp/gnus/mm-encode.elc
;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\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 (#$ . 1920))
#@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 (#$ . 2443)])
#@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 (#$ . 2789)])
#@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 (#$ . 3022)])
#@59 Return an encoding similar to ENCODING but safer than it.
(defalias 'mm-safer-encoding #[(encoding &optional type) "\302\267\202 \303\207 \304\230\203 \305\207\306\207 \304\230\203 \307\207\310\207" [encoding type #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] 2 (#$ . 3273)])
#@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\267\202, \303ed\304#\207\305\306 \"\203' eb\210\307\310\311\304#\203' \312\313\304\211#\210\202 \314ed\"\207\315>\206N ?\206N \316!\203J \3171G ed\"0\207\210\311\207\320\321\"\207" [encoding type #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"] 4 (#$ . 3694)])
#@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 @\303\n\206# <\203 \302\236A@\206! \304 !\211 \"\210\n)\207" [type mime-type encoding mm-encode-content-transfer-encoding mm-content-transfer-encoding] 3 (#$ . 4514)])
#@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 (#$ . 5031)])
#@62 Return a CTE suitable for TYPE to encode the current buffer.
(defalias 'mm-content-transfer-encoding #[(type) "\3052@ \205? \306 @@\n\"\2037 \307\305 @A@\310=\203# \311 \202' @A@\f\2033 \312 \n\"\2024 )\"\210 \211A\210\202 0)\207" [mm-content-transfer-encoding-defaults rules type encoding mm-use-ultra-safe-encoding found string-match throw qp-or-base64 mm-qp-or-base64 mm-safer-encoding] 5 (#$ . 5444)])
#@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 (#$ . 5864)])
(provide 'mm-encode)
Mini Shell