Current File : //usr/local/share/emacs/27.2/lisp/mail/qp.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@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\304 m\204\304 `Tf\313=\203: \314\315!\210\202! \316\317!\203\272 \320\225`Z\321\245 \322\f\320\" \f\320 W\203\254 `Tf\315`\\f
\323 \211\324X\203u \325\202\201 \326X\203\200 \327\202\201 \330Z_ \211\324X\203\217 \325\202\233 \326X\203\232 \327\202\233 \330Z\\I\210*\321u\210 T\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 16 57 48 70 55 87 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 (#$ . 1772)])
#@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\n\311#\203 \312\313!\210\214 \n}\210eb\210\314w\2036 m\2046 \315\316\314f\"\317\320!\210c\210\202 eb\210\307\321\314\311#\203W \322\224b\210l\2049 \315\316\314f\"\317\320!\210c\210\202E \323\303!\205^
\204g \f\205\273 \320\314 ! \"eb\210m?\205\272 \f\203\224 \324\325!\203\210 \326\327\314\311#\210\202\224 \324\330!\203\224 \326\331\314\311#\210\314\210i\332V\203\264 \333 \210\334u\210\335\336`\337Z\311#\210\340c\210\314\210\202\227 \314y\210\202p *+\207" [class from to mm-use-ultra-safe-encoding ultra fold "-\n\f -<>-" re-search-forward "[^ -\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 (#$ . 2406) "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 (#$ . 3786)])
(provide 'qp)
Mini Shell