;ELC ;;; Compiled ;;; in Emacs version 27.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 \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\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 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\2036m\2046\315\316\314f\"\317\320!\210c\210\202eb\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)