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



#@484 Decode quoted-printable in the region between FROM and TO, per RFC 2045.
If CODING-SYSTEM is non-nil, decode bytes into characters with that
coding-system.

Interactively, you can supply the CODING-SYSTEM argument
with \[universal-coding-system-argument].

The CODING-SYSTEM argument is a historical hangover and is deprecated.
QP encodes raw bytes and should be decoded into raw bytes.  Decoding
them into characters should be done separately.

(fn FROM TO &optional CODING-SYSTEM)
(defalias 'quoted-printable-decode-region #[770 "\211\203
\301
!\204
\302\262
\212\214\303}\210\211\203\304ed#\210eb\210\305\302w\203\261m\204\261`Tf\306=\203;\307\310!\210\202\"\311\312!\203\247\313\225`Z\314\245\315
\313\"\313\211W\203\231`Tf\310`\\f\316\211\317X\203g\320\202r\321X\203q\322\202r\323Z_\211\317X\203\320\202\212\321X\203\211\322\202\212\323Z\\I\266\314u\210\211T\262
\202L\210\313\224\313\225|\210\211c\266\202\"\324\325!\210\302u\210\202\")\211\205\273\326ed#*\207" [case-fold-search coding-system-p nil t encode-coding-region "^=" 10 delete-char 2 looking-at "\\(=[0-9A-F][0-9A-F]\\)+" 0 3 make-string 16 57 48 70 55 87 message "Malformed quoted-printable text" decode-coding-region] 14 (#$ . 85) (byte-code "\301 \302 E\207" [coding-system-for-read region-beginning region-end] 3)])
#@298 Decode the quoted-printable encoded STRING and return the result.
If CODING-SYSTEM is non-nil, decode the string with coding-system.
Use of CODING-SYSTEM is deprecated; this function should deal with
raw bytes, and coding conversion should be done separately.

(fn STRING &optional CODING-SYSTEM)
(defalias 'quoted-printable-decode-string #[513 "\300\301\302\"r\211q\210\303\304\"\216\305\306!\210c\210\307ed#\210\310 *\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte nil quoted-printable-decode-region buffer-string] 7 (#$ . 1417)])
#@476 Quoted-printable encode the region between FROM and TO per RFC 2045.

If FOLD, fold long lines at 76 characters (as required by the RFC).
If CLASS is non-nil, translate the characters not matched by that
regexp class, which is in the form expected by `skip-chars-forward'.
You should probably avoid non-ASCII characters in this arg.

If `mm-use-ultra-safe-encoding' is set, fold lines unconditionally and
encode lines starting with "From".

(fn FROM TO &optional FOLD CLASS)
(defalias 'quoted-printable-encode-region #[1026 "\211\204\303\262
\212b\210\304\305\306#\203\307\310!\210\214}\210eb\210\211\311w\2037m\2047\312\313\314 \"\315\316!\210c\210\202eb\210\304\317\311\306#\203X\320\224b\210l\204:\312\313\314 \"\315\316!\210c\210\202F\321\300!\205_\204g\211\205\271\316\311eb\210m?\205\270\211\203\222\322\323!\203\206\324\325\311\306#\210\202\222\322\326!\203\222\324\327\311\306#\210\311\210i\330V\203\262\331 \210\332u\210\333\334`\335Z\306#\210\336c\210\311\210\202\225\311y\210\202n*\262
*\207" [mm-use-ultra-safe-encoding case-fold-search tab-width "-\n\f -<>-" re-search-forward "[^-\200-\377]" t error "Multibyte character in QP encoding region" nil format "=%02X" get-byte delete-char 1 "[ 	]+$" 0 boundp looking-at "From " replace-match "From=20" "-" "=2D" 76 beginning-of-line 75 search-backward "=" 2 "=\n"] 9 (#$ . 2052) "r"])
#@75 Encode the STRING as quoted-printable and return the result.

(fn STRING)
(defalias 'quoted-printable-encode-string #[257 "\300\301\302\"r\211q\210\303\304\"\216\305!\203\306\307!\210\202\306\310!\210
c\210\311ed\"\210\312 *\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] multibyte-string-p set-buffer-multibyte to nil quoted-printable-encode-region buffer-string] 5 (#$ . 3438)])
(provide 'qp)