;ELC   
;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:45:07 2003
;;; from file /home/pot/gnu/emacs-pretest.new/lisp/gnus/mm-view.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-view.el' was compiled for Emacs 19.29 or later"))

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


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\"\210\305\310\311\"\210\305\312\311\"\210\305\313\314\"\210\315\316!\2042 \305\316\317\320\321\322%\210\322\207" [require mail-parse mailcap mm-bodies mm-decode autoload gnus-article-prepare-display "gnus-art" vcard-parse-string "vcard" vcard-format-string fill-flowed "flow-fill" fboundp diff-mode "diff-mode" "" t nil] 6)
(defalias 'mm-inline-image-emacs #[(handle) "\303 \304\305c\210\306\307\n!	\"\210\310\n\233\311\304\312	\313	DEE\240*\207" [buffer-read-only b handle point-marker nil "\n" put-image mm-get-image 3 lambda remove-images 1+] 7])
(defalias 'mm-inline-image-xemacs #[(handle) "\304c\210\305u\210`\306\307!\310\311#\310\312\233\313\310\314\315\316\nD\317\320 \310\223\320 `\310\223EFE\240\210\321\n\322\323#\210\321\n\324\323#+\207" [handle buffer-read-only annot b "\n" -1 make-annotation mm-get-image nil text 3 lambda let (buffer-read-only) delete-annotation delete-region make-marker set-extent-property mm t duplicable] 11])
(byte-code "\302\303!\203 \304\305\306\"\210\202 \304\305\307\"\210\301B\310\301!\204 \311\311\207" [current-load-list mm-w3-setup featurep xemacs defalias mm-inline-image mm-inline-image-xemacs mm-inline-image-emacs boundp nil] 3)
(defalias 'mm-setup-w3 #[nil "?\205 \301\302!\210\303 \210\301\304!\210\301\305!\210\301\306!\210\307\211\207" [mm-w3-setup require w3 w3-do-setup url w3-vars url-vars t] 2])
(defalias 'mm-inline-text #[(handle) "\306\211@;\203 @\202 A@@)\307\"\211A@*\310\211\211\311\232\203\271 \312 \210\313!`\314\211\315\316\317\3208\"!\321 \322A@\305\"789:;\212c\210\214;`}\210eb\210\323\324!\203h \325\310\314#\204w \323\326!\203\226 \325\310\314#\203\226 \327\330\224\330\225\"<\331\332!\203\214 \332<!\202\220 \333<!)\206\225 ed|\210\334\"c\210\335\213\210\336\233\337\310\340\341\342\343\344 \345 EFE\240.\202K\f\346\232\203\313 \347\350\351\352\353\217P\"\202K`\322A@\305\";\354=\204\342 =\354=\203\362 \214``}\210\355!\210db\210)\202\372 \334\313!\"c\210\f\356\232\203\357\316A@\"A\360\232\203\214;`}\210;b\210\361 \210db\210)\214;`}\210\362ed\310#\210\f\363\232\2045\f\364\232\203:\365ed\"\210\336\233\337\310\340\366\343\344 \345 EEE\240++\207" [handle x buffer-read-only text type charset split-string "/" nil "html" mm-setup-w3 mm-get-part t url-generic-parse-url format "cid:%s" 7 window-width mail-content-type-get boundp w3-meta-content-type-charset-regexp re-search-forward w3-meta-charset-content-type-regexp buffer-substring-no-properties 2 fboundp w3-coding-system-for-mime-charset mm-charset-to-coding-system mm-decode-string ((byte-code "\214	\303\304\305\217\210+\303\207" [width fill-column w3-strict-width var (byte-code "\300ed\"\207" [w3-region] 3) ((error (byte-code "ed|\210`\304A@\301\"	\305=\204 \305=\203) \214``}\210\306!\210db\210)\2021 \307\310!	\"c\210*\311\312!\207" [handle charset b mail-parse-charset mail-content-type-get gnus-decoded mm-insert-part mm-decode-string mm-get-part message "Error while rendering html; showing as text/plain"] 4)))] 3)) 3 lambda let (buffer-read-only) (if (functionp 'remove-specifier) (mapcar (lambda (prop) (remove-specifier (face-property 'default prop) (current-buffer))) '(background background-pixmap foreground))) delete-region point-min-marker point-max-marker "x-vcard" mm-insert-inline "\n-- \n" #1=#:G97269 (byte-code "\301\302!\203\f \302\303!!\207\304\305\303!\306\"!\207" [handle fboundp vcard-pretty-print mm-get-part vcard-format-string vcard-parse-string vcard-standard-filter] 4) ((error)) gnus-decoded mm-insert-part "plain" assoc "flowed" fill-flowed set-text-properties "enriched" "richtext" enriched-decode (buffer-read-only) width url-current-object url-gateway-unplugged url-standalone-mode b bsubstr mail-parse-charset] 10])
#@33 Insert TEXT inline from HANDLE.
(defalias 'mm-insert-inline #[(handle text) "`	c\210\303\n\233\304\305\306\307\310\311 \305\223\311 `\305\223EEE\240)\207" [b text handle 3 lambda nil let (buffer-read-only) delete-region make-marker] 10 (#$ . 4472)])
(defalias 'mm-inline-audio #[(handle) "\300\301!\207" [message "Not implemented"] 2])
(defalias 'mm-view-sound-file #[nil "\300\301!\207" [message "Not implemented"] 2])
(defalias 'mm-w3-prepare-buffer #[nil "\302\303!\210\304\211\305 *\207" [url-gateway-unplugged url-standalone-mode require w3 t w3-prepare-buffer] 2])
(defalias 'mm-view-message #[nil "\302 \210\303\303\304\305!\210\306 \210	)\203$ 	@<\203  \202\" C\244)\307 \210eb\207" [handles gnus-article-mime-handles mm-enable-multibyte nil run-hooks gnus-article-decode-hook gnus-article-prepare-display fundamental-mode] 2])
(defalias 'mm-inline-message #[(handle) "`n\306A@\303\"\307\211\203% ;\203% \310\227!\211\311=\203% \307\212\214\211}\210\312!\210\307\211\2067 \313\314!\210\315 \210+eb\210\f\204R \316c\210db\210n\204\\ \316c\210\317c\210	\203t 	@<\203o 	\202q 	C\244\320\233\321\307\322\323\324\325\326 \327 EFE\240.\207" [handle handles gnus-displaying-mime charset bolp b mail-content-type-get nil intern us-ascii mm-insert-part run-hooks gnus-article-decode-hook gnus-article-prepare-display "\n" "----------\n\n" 3 lambda let (buffer-read-only) (if (fboundp 'remove-specifier) (mapcar (lambda (prop) (remove-specifier (face-property 'default prop) (current-buffer))) '(background background-pixmap foreground))) delete-region point-min-marker point-max-marker gnus-newsgroup-charset gnus-article-prepare-hook gnus-article-mime-handles] 10])
(defalias 'mm-display-inline-fontify #[(handle mode) "\304\305\306\307!!\310\216r	q\210\311\n!\210 \210\312 \210\313\314!\203) \315\316\304\211\211\211\211\317&\210\320 +\321\n\")\207" [text #1=#:temp-buffer handle mode nil get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-insert-part font-lock-fontify-buffer fboundp extent-list map-extents #[(ext ignored) "\301\302\303#\210\304\207" [ext set-extent-property duplicable t nil] 4] text-prop buffer-string mm-insert-inline] 8])
(defalias 'mm-display-patch-inline #[(handle) "\301\302\"\207" [handle mm-display-inline-fontify diff-mode] 3])
(defalias 'mm-display-elisp-inline #[(handle) "\301\302\"\207" [handle mm-display-inline-fontify emacs-lisp-mode] 3])
(provide 'mm-view)