;ELC ;;; Compiled by amu@quiche-lorraine.mit.edu on Thu Jan 6 19:18:00 2000 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.3/lisp/mm-bodies.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 "`mm-bodies.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303!\204\n\304\305!\210\306\307\310\"\210\304\311!\210\304\312!\210\304\313!\210\304\314!\210\315\300!\204'\316\300 B\302\207" [mm-7bit-chars current-load-list fboundp base64-decode-region require base64 autoload binhex-decode-region "binhex" mm-util rfc2047 qp uudecode boundp " - \n  \f"] 3) #@107 Alist of MIME charsets to encodings. Valid encodings are `7bit', `8bit', `quoted-printable' and `base64'. (defvar mm-body-charset-encoding-alist nil (#$ . 965)) #@261 Encode a body. Should be called narrowed to the body that is to be encoded. If there is more than one non-ASCII MULE charset, then list of found MULE charsets are returned. If successful, the MIME charset is returned. If no encoding was done, nil is returned. (defalias 'mm-encode-body #[nil "\304\305!\204\212eb\210\306\307\310\311#\205\206\312\313!)\207\212eb\210\314ed\"\310\211\204.\310\202{\nG\315V\2039\n\202{\n@\310m\204m\316 \317=\203a \203g\214 `}\210\320 ` #\210db\210)\310\202g \204g`\315u\210\202> \203y\320 ` #\210\310 *+\207" [mail-parse-charset charset charsets start featurep mule re-search-forward "[^-]" nil t mm-read-charset "Charset used in the article: " mm-find-mime-charset-region 1 mm-charset-after ascii mm-encode-coding-region] 5 (#$ . 1133)]) #@77 Do Content-Transfer-Encoding and return the encoding of the current buffer. (defalias 'mm-body-encoding #[(charset &optional encoding) "\306 \211\307=\203 \202G \204)\nA\310=\204% \nA>\204% \f=\203)\202G \2067  \236A\2067\311  \203@\312 !\313 \314\"\210 ))\207" [bits mm-use-ultra-safe-encoding message-posting-charset charset mail-parse-charset encoding mm-body-7-or-8 7bit t mm-qp-or-base64 mm-safer-encoding mm-encode-content-transfer-encoding "text/plain" mm-body-charset-encoding-alist] 4 (#$ . 1936)]) #@39 Say whether the body is 7bit or 8bit. (defalias 'mm-body-7-or-8 #[nil "\301\302!\204\212eb\210\303w\210m)\203\304\207\305\207\306\307\310ed\"\"\2040\212eb\210\303w\210m)\2030\304\207\305\207" [mm-7bit-chars featurep mule nil 7bit 8bit delq ascii mm-find-charset-region] 5 (#$ . 2466)]) (defalias 'mm-decode-content-transfer-encoding #[(encoding &optional type) "\302\303\304\217\305>\203$ \306\232\203$eb\210\307\310\311\312#\203$\313\314\312\211#\210\202\207" [encoding type error (byte-code "\303=\203 \304ed\"\207\305=\203#\306e\212db\210\307\310x\210`d|\210`)\"\207\311>\206S?\206S\312>\2039 ed\"\207\313=\203D\ned\"\207\314!\203Oed\"\207\315\316\"\207" [encoding mm-uu-decode-function mm-uu-binhex-decode-function quoted-printable quoted-printable-decode-region base64 base64-decode-region "\n " nil (7bit 8bit binary) (x-uuencode x-uue) x-binhex functionp message "Unknown encoding %s; defaulting to 8bit"] 4) ((error (message "Error while decoding: %s" error) nil)) (base64 x-uuencode x-uue x-binhex) "text/plain" search-forward " \n" nil t replace-match "\n"] 5]) #@115 Decode the current article that has been encoded with ENCODING. The characters in CHARSET should then be decoded. (defalias 'mm-decode-body #[(charset &optional encoding type) ";\203\n\306\227!\203 \307=\204 \307 >\204  >\203\"\n\212 \203,\310 \f\"\210\311\312!\205}\313!\211\204I <\203I\314 >\203I\313\n!\205| \205|\315\316\"\204d\317\320!\205|\205| \321=\203p\n\211\205| \322=?\205|\323ed #))\207" [charset mail-parse-ignored-charsets mail-parse-charset encoding type mule-charset intern gnus-all mm-decode-content-transfer-encoding featurep mule mm-charset-to-coding-system gnus-unknown string-match "XEmacs\\|Lucid" boundp enable-multibyte-characters ascii gnus-decoded mm-decode-coding-region emacs-version] 5 (#$ . 3576)]) #@29 Decode STRING with CHARSET. (defalias 'mm-decode-string #[(string charset) ";\203\n\306\227!\203 \307=\204 \307 >\204  >\203\"\n\310\311!\203m\312!\211\204? <\203?\313 >\203?\312\n!\205i \205i\314\315\f\"\204X\316\305!\205i \205i \317=\203d\n\211\205i\320 \")\206o\207" [charset mail-parse-ignored-charsets mail-parse-charset mule-charset emacs-version enable-multibyte-characters intern gnus-all featurep mule mm-charset-to-coding-system gnus-unknown string-match "XEmacs\\|Lucid" boundp ascii mm-decode-coding-string string] 4 (#$ . 4345)]) (provide 'mm-bodies)