;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:26 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/qp.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'mm-util)
#@446 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.
(defalias 'quoted-printable-decode-region #[(from to &optional coding-system) "\306!\204\307\212\214\310\n}\210\203\311ed#\210eb\210\312\307w\203\300m\204\300`Tf\313=\2036\314\315!\210\202\316\317!\203\266\320\225`Z\321\245\322\f\320\"\f\320W\203\250`Tf\315`\\f
\211\323X\203p\324\202|\325X\203{\326\202|\327Z\330_\211\323X\203\213\324\202\227\325X\203\226\326\202\227\327Z\\I\210*\321u\210T\211\202P*\320\224\320\225|\210
c\210*\202\331\332!\210\307u\210\202)\205\312\333ed#*\207" [coding-system case-fold-search from to n str mm-coding-system-p nil t mm-encode-coding-region "^=" 10 delete-char 2 looking-at "\\(=[0-9A-F][0-9A-F]\\)+" 0 3 make-string 57 48 70 55 87 16 message "Malformed quoted-printable text" mm-decode-coding-region i --dotimes-limit-- n2 n1] 7 (#$ . 570) (list (region-beginning) (region-end) coding-system-for-read)])
#@261 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.
(defalias 'quoted-printable-decode-string #[(string &optional coding-system) "\303\304!rq\210\305\216\306 \210	c\210\307ed\n#\210\310 +\207" [#1=#:temp-buffer string coding-system generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-disable-multibyte quoted-printable-decode-region buffer-string] 4 (#$ . 1924)])
#@441 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".
(defalias 'quoted-printable-encode-region #[(from to &optional fold class) "\204\306\212	b\210\307\310\311!\n\312#\203\313\314!\210\214	\n}\210eb\210\315w\203:m\204:\316\317\320\315f!\"\321\322!\210c\210\202 eb\210\307\323\315\312#\203[\324\224b\210l\204=\316\317\315f\"\321\322!\210c\210\202I\325\303!\205b\f\204k\205\273\322eb\210m?\205\272\203\224\326\327!\203\210\330\331\315\312#\210\202\224\326\332!\203\224\330\333\315\312#\210\315\210i\334V\203\264\335 \210\336u\210\337\340`\341Z\312#\210\342c\210\315\210\202\227\315y\210\202p)+\207" [class from to mm-use-ultra-safe-encoding fold tab-width "-\n\f -<>-" re-search-forward mm-string-to-multibyte "[^-\200-\377]" t error "Multibyte character in QP encoding region" nil format "=%02X" mm-multibyte-char-to-unibyte delete-char 1 "[ 	]+$" 0 boundp looking-at "From " replace-match "From=20" "-" "=2D" 76 beginning-of-line 75 search-backward "=" 2 "=\n"] 4 (#$ . 2566) "r"])
#@62 Encode the STRING as quoted-printable and return the result.
(defalias 'quoted-printable-encode-string #[(string) "\302\303!rq\210\304\216\305	!\203\306 \210\202\307 \210	c\210\310ed\"\210\311 +\207" [#1=#:temp-buffer string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-multibyte-string-p mm-enable-multibyte mm-disable-multibyte quoted-printable-encode-region buffer-string] 3 (#$ . 3976)])
(provide 'qp)