;ELC   
;;; Compiled by amu@quiche-lorraine.mit.edu on Thu Jan  6 19:18:18 2000
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.3/lisp/qp.el
;;; in Emacs version 20.4.1
;;; 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"))

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


(byte-code "\302\300!\204 \303\304\305\"\300	B\302\207" [quoted-printable-encoding-characters current-load-list boundp mapcar identity "0123456789ABCDEFabcdef"] 3)
#@60 Decode quoted-printable in the region between FROM and TO.
(defalias 'quoted-printable-decode-region #[(from to) "\212b\210\303\304	\305#\205c \306f\307=\203 \310\311!\210\310\312!\210\202 \306f\n>\203C `Tf\n>\203C \313`S`\314\315``\316\\{\317\"$\210\310\316!\210\202 \306f\314=\203Q \310\312!\210\202 m\203\\ \310\311!\210\202 \320\321!\210\202 )\207" [from to quoted-printable-encoding-characters search-forward "=" t nil 10 delete-char -1 1 subst-char-in-region 61 string-to-number 2 16 message "Malformed MIME quoted-printable message"] 8 (#$ . 798) "r"])
#@68 Decode the quoted-printable-encoded STRING and return the results.
(defalias 'quoted-printable-decode-string #[(string) "\302\303\304!!\305\216rq\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-decode-region buffer-string] 3 (#$ . 1371)])
#@231 QP-encode the region between FROM and TO.

If FOLD fold long lines.  If CLASS, translate the characters 
matched by that regexp.

If `mm-use-ultra-safe-encoding' is set, fold unconditionally and
encode lines starting with "From".
(defalias 'quoted-printable-encode-region #[(from to &optional fold class) "\212\214	}\210eb\210\n\206 \305\306w\203& m\204& \307\310\306f\"\226\311\312!\210c\210\202	 eb\210\313\314\306\315#\203H \316\224b\210l\204) \307\310\306f\"\226\311\312!\210c\210\2025 \204P \f\205\225 eb\210m?\205\225 \f\203k \316y\210\317\320!\203k \321\322\306\315#\210\306\210i\323V\203\213 \316y\210\324u\210\325\326`\327Z\315#\210\330c\210\306\210\202n m\204S \306y\210\202S *\207" [from to class fold mm-use-ultra-safe-encoding "^ --\200-\377=" nil format "=%02x" delete-char 1 re-search-forward "[ 	]+$" t 0 looking-at "From " replace-match "From=20" 72 71 search-backward "=" 2 "=\n"] 4 (#$ . 1779) "r"])
#@42 QP-encode STRING and return the results.
(defalias 'quoted-printable-encode-string #[(string) "\306\307\"\204 \310\311!\204% \312\313\314!!\315\216r	q\210\nc\210\316ed\"\210\317 +\207\320\311!\321\322\216\323\311\321\"\210\312\313\314!!\324\216rq\210\211\211\nc\210\316ed\"\210\317 .\207" [emacs-version #1=#:temp-buffer string #2=#:temp-buffer #3=#:multibyte mm-binary-coding-system string-match "XEmacs\\|Lucid" boundp enable-multibyte-characters 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 default-value nil ((byte-code "\301\302\"\207" [#3# set-default enable-multibyte-characters] 3)) set-default ((byte-code "\301!\203\n \302!\210\301\207" [#2# buffer-name kill-buffer] 2)) coding-system-for-write coding-system-for-read buffer-file-coding-system] 3 (#$ . 2713)])
(provide 'qp)