;ELC ;;; Compiled by amu@daemon on Thu Jan 11 15:04:12 2001 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.8/lisp/qp.el ;;; in Emacs version 20.7.2 ;;; with bytecomp version 2.56 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`qp.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'mm-util) #@157 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. (defalias 'quoted-printable-decode-region #[(from to &optional coding-system) "\305!\204\306\212\214\307\n }\210\203\310ed#\210eb\210\311\306w\203[m\204[`Tf\312=\2036\313\314!\210\202\315\316!\203Q\317`T`\320\\{\321\"\211c\210\313\320!\210)\202\322\323!\210\306u\210\202)\205e\324ed#*\207" [coding-system case-fold-search from to byte mm-coding-system-p nil t mm-encode-coding-region "^=" 10 delete-char 2 looking-at "=[0-9A-F][0-9A-F]" string-to-int 3 16 error "Malformed quoted-printable text" mm-decode-coding-region] 5 (#$ . 634) "r"]) #@134 Decode the quoted-printable encoded STRING and return the result. If CODING-SYSTEM is non-nil, decode the region with coding-system. (defalias 'quoted-printable-decode-string #[(string &optional coding-system) "\303\304\305!!\306\216rq\210 c\210\307ed\n#\210\310 +\207" [#1=#:temp-buffer string coding-system get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) quoted-printable-decode-region buffer-string] 4 (#$ . 1360)]) #@360 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 matched by that class in the form expected by `skip-chars-forward'. 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\307\310!\203\310!\212\214 \n}\210\311\312!\204\313\303!\203 \203\307\314!\203\307\315!\203\316\3169\205>\317\f\320N!)\204p\321\216\322/\314\322!\210\311\312!\204p\307\323!\203p\324\325\324\326\324\316\324\327\323 \n\"\"\"\"\"\203p\330\331!\210eb\210\322w\203\213m\204\213\332\333\322f\"\334\335!\210c\210\202seb\210\336\337\322\340#\203\254\341\224b\210l\204\216\332\333\322f\"\334\335!\210c\210\202\232\313\342!\205\264\"\"0\204\300\"\205\3351eb\210m?\205\"\203\356\341y\210\343\344!\203\342\345\346\322\340#\210\202\356\343\347!\203\356\345\350\322\340#\210\322\210i\351V\203\341y\210\352u\210\353\354`\355Z\340#\210\356c\210\322\210\202\361m\204\306\322y\210\202\306),\202\355\322/\311\312!\204C\307\323!\203C\324\325\324\326\324\316\324\327\323 \n\"\"\"\"\"\203C\330\331!\210eb\210\322w\203^m\204^\332\333\322f\"\334\335!\210c\210\202Feb\210\336\337\322\340#\203\341\224b\210l\204a\332\333\322f\"\334\335!\210c\210\202m\313\342!\205\207\"\"0\204\223\"\205\354\3351eb\210m?\205\353\"\203\301\341y\210\343\344!\203\265\345\346\322\340#\210\202\301\343\347!\203\301\345\350\322\340#\210\322\210i\351V\203\341\341y\210\352u\210\353\354`\355Z\340#\210\356c\210\322\210\202\304m\204\231\322y\210\202\231)**\207" [class from to enable-multibyte-characters object #1=#:buffer "-\n\f -<>-" fboundp string-as-multibyte featurep xemacs boundp set-buffer-multibyte charsetp eight-bit-control vectorp charset ((byte-code "q\210\301\302!\207" [#1# set-buffer-multibyte t] 2)) nil find-charset-region delq unknown eight-bit-graphic ascii error "Multibyte character in QP encoding region" format "=%02X" delete-char 1 re-search-forward "[ ]+$" t 0 mm-use-ultra-safe-encoding looking-at "From " replace-match "From=20" "-" "=2D" 76 75 search-backward "=" 2 "=\n" default-enable-multibyte-characters fold tab-width] 11 (#$ . 1873) "r"]) #@62 Encode the STRING as quoted-printable and return the result. (defalias 'quoted-printable-encode-string #[(string) "\302\303\304!!\305\216rq\210 c\210\306ed\"\210\307 +\207" [#1=#:temp-buffer string get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) quoted-printable-encode-region buffer-string] 3 (#$ . 4240)]) (provide 'qp)