;ELC ;;; Compiled by amu@quiche-lorraine.mit.edu on Thu Jan 6 19:18:02 2000 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.3/lisp/mm-view.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-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\"\207" [require mail-parse mailcap mm-bodies mm-decode autoload gnus-article-prepare-display "gnus-art" vcard-parse-string "vcard" vcard-format-string diff-mode "diff-mode"] 3) (defalias 'mm-inline-image #[(handle) "`\304\305!\306\307#\306\310c\210\311\233\312\306\313\314\315\nD\316\317 \306\223\317 `\306\223EFE\240\210\320\n\321\322#\210\320\n\323\322#+\207" [handle buffer-read-only annot b make-annotation mm-get-image nil text "\n" 3 lambda let (buffer-read-only) delete-annotation delete-region make-marker set-extent-property mm t duplicable] 11]) (byte-code "\302\300!\204\303\300 B\303\207" [mm-w3-setup current-load-list boundp nil] 2) (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@\202A@@)\307\"A@)\310\211\211\311\232\203\235\312 \210\313!`\314\315\316\317\3208\"!\321 \322A@\304\"<=>\212\nc\210\214>`}\210eb\210\323\324!\203b\325\310\314#\204q\323\326!\203z\325\310\314#\203z\327\330\331\224\331\225\"!ed|\210\332\n\f\"c\210\333\213\210\334\233\335\310\336\337\340\341\342 \343 EFE\240.\202P \344\232\204\251 \345\232\203 \212\346\347?\"\204\270\323\350!\204\321\351\352\353!!@\354\216r@q\210\355!\210\356\213\210+\202\357\350!\310AB\360\216\361\350\310\"\210\351\352\353!!A\362\216rAq\210C\211\211DEF\355!\210\363\213\210.)\364\n\"\202P \365\232\203\364\366\367\370\313!\371\"!P\"\202P\313!`\322A@\304\">\332\n\f\"c\210\214>`}\210\372ed\310#\210\334\233\335\310\336\373\341\342 \343 EEE\240++\207" [handle buffer-read-only text type charset width 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 w3-coding-system-for-mime-charset buffer-substring-no-properties 2 mm-decode-string ((byte-code "\214\303\304\305\306\217\210+\303\207" [width url-standalone-mode w3-strict-width t var (byte-code "\300ed\"\207" [w3-region] 3) ((error))] 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 "enriched" "richtext" string-match "XEmacs\\|Lucid" enable-multibyte-characters get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) mm-insert-part ((byte-code "\301ed\"\210\302 \301\207" [text enriched-decode buffer-string] 3)) default-value ((byte-code "\301\302\"\207" [#2=#:multibyte set-default enable-multibyte-characters] 3)) set-default ((byte-code "\301!\203\n\302!\210\301\207" [#3=#:temp-buffer buffer-name kill-buffer] 2)) ((byte-code "\301ed\"\210\302 \301\207" [text enriched-decode buffer-string] 3)) mm-insert-inline "x-vcard" "\n-- \n" vcard-format-string vcard-parse-string vcard-standard-filter set-text-properties (buffer-read-only) url-current-object url-standalone-mode b emacs-version #1# #3# #2# mm-binary-coding-system coding-system-for-write coding-system-for-read buffer-file-coding-system] 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 (#$ . 4140)]) (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 "\301\302!\210\303\304 )\207" [url-standalone-mode require w3 t w3-prepare-buffer] 2]) (defalias 'mm-view-message #[nil "\302\303!\203\304\305!\203\306\305!\203\303\307!\210\310\310\311\312!\210\313 \210 )\2037 @<\2033\2025C\244)\314 \210eb\207" [handles gnus-article-mime-handles fboundp set-buffer-multibyte boundp enable-multibyte-characters default-value t nil run-hooks gnus-article-decode-hook gnus-article-prepare-display fundamental-mode] 2]) (defalias 'mm-inline-message #[(handle) "`\306A@\303\"\307\211 \203# ;\203#\310 \227!\211\311=\203#\307\212\214\f\211}\210\312!\210\307 \2063 \313\314!\210\315 \210*db\210n\204K\316c\210\317c\210 \203c @<\203^ \202` C\244\320\233\321\307\322\323\324\325\326 \327 EFE\240.\207" [handle handles gnus-displaying-mime charset b gnus-newsgroup-charset 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) (condition-case nil (mapcar (lambda (prop) (remove-specifier (face-property 'default prop) (current-buffer))) '(background background-pixmap foreground)) (error nil)) delete-region point-min-marker point-max-marker gnus-article-mime-handles] 10]) (defalias 'mm-display-patch-inline #[(handle) "\303\304\305\306!!\307\216r q\210\310\n!\210\311 \210\312 \210\313\314!\203)\315\316\303\211\211\211\211\317&\210\320 +\321\n\")\207" [text #1=#:temp-buffer handle 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 diff-mode 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]) (provide 'mm-view)