;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:44:57 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/gnus/mm-bodies.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; 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\304\306!\210\304\307!\210\304\310!\210\301B\311\301!\204\"\312\302\207" [current-load-list mm-7bit-chars fboundp base64-decode-region require base64 mm-util rfc2047 mm-encode boundp " - \n  \f"] 2) #@107 Alist of MIME charsets to encodings. Valid encodings are `7bit', `8bit', `quoted-printable' and `base64'. (custom-declare-variable 'mm-body-charset-encoding-alist ''((iso-2022-jp . 7bit) (iso-2022-jp-2 . 7bit)) '(#$ . 874) :type '(repeat (cons (symbol :tag "charset") (choice :tag "encoding" (const 7bit) (const 8bit) (const quoted-printable) (const base64)))) :group 'mime) #@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 "\305\306!\204\307\300!\203\202\305\310!\204+\212eb\210\311\312\313\314#\205) \206)\315\316!)\207\212eb\210\317ed\"\313\211\204>\313\202\217 G\320V\203I \202\217 @\313m\204\321 \322=\203s\f\203y\214\f`}\210\323\f`\324\n!#\210db\210)\313\202y\f\204y`\320u\210\202N\f\203\215\323\f`\324\n!#\210\313\n*+\207" [enable-multibyte-characters mail-parse-charset charset charsets start featurep xemacs boundp 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 mm-charset-to-coding-system] 6 (#$ . 1256)]) #@77 Do Content-Transfer-Encoding and return the encoding of the current buffer. (defalias 'mm-body-encoding #[(charset &optional encoding) "\306 \307\310!\210 \204\311=\203\202O \2041\nA\312=\204- \nA>\204- \f=\2031\202O \206? \236A\206?\313  \203H\314 !\315 \316\"\210 ))\207" [bits mm-use-ultra-safe-encoding message-posting-charset charset mail-parse-charset encoding mm-body-7-or-8 require message 7bit t mm-qp-or-base64 mm-safer-encoding mm-encode-content-transfer-encoding "text/plain" mm-body-charset-encoding-alist] 3 (#$ . 2191)]) #@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 (#$ . 2754)]) (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\212eb\210\307\310\311\312#\203(\313\224\313\225|\210\202db\210\314\315\311\312#\203:\311y\210`d|\210d)\"\207\316>\206v?\206v\317>\203X\320\321!\210 ed\"\207\322=\203g\320\321!\210\ned\"\207\323!\203red\"\207\324\325\"\207" [encoding mm-uu-decode-function mm-uu-binhex-decode-function quoted-printable quoted-printable-decode-region base64 base64-decode-region re-search-forward "^[ ]* ?\n" nil t 0 re-search-backward "^[A-Za-z0-9+/]+=*[ ]*$" (7bit 8bit binary) (x-uuencode x-uue) require mm-uu x-binhex functionp message "Unknown encoding %s; defaulting to 8bit"] 6) ((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\201\313!\211\204I <\203I\314 >\203I\313\n!\205\200 \205\200\311\315!\204b\316\317!\203b\202e\311\312!\205\200 \320=\203t\n\211\205\200 \321=?\205\200\322ed #))\207" [charset mail-parse-ignored-charsets mail-parse-charset encoding type coding-system intern gnus-all mm-decode-content-transfer-encoding featurep mule mm-charset-to-coding-system gnus-unknown xemacs boundp enable-multibyte-characters ascii gnus-decoded mm-decode-coding-region] 5 (#$ . 4052)]) #@29 Decode STRING with CHARSET. (defalias 'mm-decode-string #[(string charset) ";\203\n\306\227!\203 \307=\204 \307 >\204  >\203\"\n\310\311!\203q\312!\211\204? <\203?\313 >\203?\312\n!\205m \205m\310\314!\204W\315\304!\203W\f\202Z\310\311!\205m \316=\203i\n\211\205m\317 \")\206r \207" [charset mail-parse-ignored-charsets mail-parse-charset coding-system enable-multibyte-characters string intern gnus-all featurep mule mm-charset-to-coding-system gnus-unknown xemacs boundp ascii mm-decode-coding-string] 4 (#$ . 4815)]) (provide 'mm-bodies)