HOME

;ELC
;;; Compiled
;;; in Emacs version 26.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.

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


#@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) "\203\f\306!\204\f\307\212\214\310\n}\210\203\311ed#\210eb\210\312\307w\203\304m\204\304`Tf\313=\203:\314\315!\210\202!\316\317!\203\272\320\225`Z\321\245\322\f\320\"\f\320W\203\254`Tf\315`\\f
\211\323X\203t\324\202\200\325X\203\326\202\200\327Z\330_\211\323X\203\217\324\202\233\325X\203\232\326\202\233\327Z\\I\210*\321u\210T\211\202T*\320\224\320\225|\210
c\210*\202!\331\332!\210\307u\210\202!)\205\316\333ed#*\207" [coding-system case-fold-search from to n str coding-system-p nil t 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" decode-coding-region i --dotimes-limit-- n2 n1] 7 (#$ . 409) (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\307!\210	c\210\310ed\n#\210\311 +\207" [#1=#:temp-buffer string coding-system generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] set-buffer-multibyte nil quoted-printable-decode-region buffer-string] 4 (#$ . 1769)])
#@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\2038m\2048\316\317\315f\"\320\321!\210c\210\202 eb\210\307\322\315\312#\203Y\323\224b\210l\204;\316\317\315f\"\320\321!\210c\210\202G\324\303!\205`
\204i\f\205\275\321\315\"#eb\210m?\205\274\f\203\226\325\326!\203\212\327\330\315\312#\210\202\226\325\331!\203\226\327\332\315\312#\210\315\210i\333V\203\266\334 \210\335u\210\336\337`\340Z\312#\210\341c\210\315\210\202\231\315y\210\202r*+\207" [class from to mm-use-ultra-safe-encoding ultra fold "-\n\f -<>-" re-search-forward string-to-multibyte "[^-\200-\377]" t error "Multibyte character in QP encoding region" nil format "=%02X" delete-char 1 "[ 	]+$" 0 boundp looking-at "From " replace-match "From=20" "-" "=2D" 76 beginning-of-line 75 search-backward "=" 2 "=\n" case-fold-search tab-width] 4 (#$ . 2403) "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\307!\210\202\306\310!\210	c\210\311ed\"\210\312 +\207" [#1=#:temp-buffer string generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] multibyte-string-p set-buffer-multibyte to nil quoted-printable-encode-region buffer-string] 3 (#$ . 3808)])
(provide 'qp)