;ELC ;;; Compiled by root@porky.devel.redhat.com on Wed Apr 7 03:36:25 2004 ;;; from file /usr/src/build/385100-i386/BUILD/emacs-w3m-1.3.6/mime-w3m.el ;;; in Emacs version 21.3.1 ;;; 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 "`mime-w3m.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\203\n\302\303!\210\300\207" [featurep xemacs require font] 2) #@208 *Non-nil means that inline images are displayed. When this option is equal to `default', `w3m-default-display-inline-images' is refered instead of this option, to decide whether inline images are displayed. (custom-declare-variable 'mime-w3m-display-inline-images ''default '(#$ . -725) :group 'w3m :group 'mime-view :type 'boolean) #@448 *Regexp that matches safe url names. Some HTML mails might have the trick of spammers using tags. It is likely to be intended to verify whether you have read the mail. You can prevent your personal informations from leaking by setting this to the regexp which matches the safe url names. The value of the variable `w3m-safe-url-regexp' will be bound with this value. You may set this value to nil if you consider all the urls to be safe. (custom-declare-variable 'mime-w3m-safe-url-regexp '"\\`cid:" '(#$ . -1065) :group 'mime-w3m :type '(choice (regexp :tag "Regexp") (const :tag "All URLs are safe" nil))) #@52 *Hook run at the end of function `mime-w3m-setup'. (custom-declare-variable 'mime-w3m-setup-hook 'nil '(#$ . -1688) :group 'mime-w3m :type 'hook) (byte-code "\301B\302\301!\204\f\303\304\301!\207" [current-load-list mime-w3m-message-structure boundp nil make-variable-buffer-local] 2) #@38 Insinuate `mime-w3m' module to SEMI. (defalias 'mime-w3m-insinuate #[nil "\304\304\305\303!\203'\306\307!\211\304L\210\n\310\311\312\313\314D\313\nD\315FEL\210\nJ !) ?\2050\316\317\320\")\207" [mime-setup-enable-inline-html flag #1=#:--G94840--94841 mime-preview-condition nil boundp make-symbol "--G94840--" lambda (&rest --cl-rest--) apply quote #[(#2=#:G94842 x) "9\203\303=\203\304\211\207\304=\203\305\207:\203*\nJ@!\nJA!B\207\207" [x flag #2# mime-preview-text/html mime-w3m-preview-text/html t] 3] --cl-rest-- eval-after-load "mime-view" (progn (ctree-set-calist-strictly 'mime-preview-condition '((type . text) (subtype . html) (body . visible) (body-presentation-method . mime-w3m-preview-text/html))) (set-alist 'mime-view-type-subtype-score-alist '(text . html) 3))] 8 (#$ . 1983)]) #@26 Setup `mime-w3m' module. (defalias 'mime-w3m-setup #[nil "\303\304!\210\305=\203\f \306\n\236\204\306\307B\nB\310\311!\207" [mime-w3m-display-inline-images w3m-default-display-inline-images w3m-cid-retrieve-function-alist require w3m default mime-view-mode mime-w3m-cid-retrieve run-hooks mime-w3m-setup-hook] 2 (#$ . 2806)]) (byte-code "\300\301\302\303#\210\300\304\305\306#\207" [put mime-w3m-setup byte-optimizer byte-compile-inline-expand mime-w3m-save-background-color edebug-form-spec t] 4) (defalias 'mime-w3m-save-background-color '(macro . #[(&rest body) "\301\302!\203\303\304\305\306B\307BBE\207\306B\207" [body featurep xemacs let ((color (color-name (face-background 'default)))) prog1 progn ((font-set-face-background 'default color (current-buffer)))] 5])) (byte-code "\303\304!\204\305Y\204\302 B\306\302\307\310#\210\311\302!\204\312\312\207" [emacs-major-version current-load-list mime-w3m-mode-map featurep xemacs 21 put variable-documentation "Keymap for text/html part rendered by `mime-w3m-preview-text/html'.\nThis map is overwritten by `mime-w3m-local-map-property' based on the\nvalue of `w3m-minor-mode-map'. Therefore, in order to add some\ncommands to this map, add them to `w3m-minor-mode-map' instead of this\nmap." boundp nil] 4) (defalias 'mime-w3m-local-map-property #[nil "\304\305!\204\f\306Y\203\307 D\207\310\n\206\311 !\312\n \"\210\nD\207" [emacs-major-version w3m-minor-mode-map mime-w3m-mode-map mime-view-mode-default-map featurep xemacs 21 keymap local-map copy-keymap set-keymap-parent] 4]) (put 'mime-w3m-local-map-property 'byte-optimizer 'byte-compile-inline-expand) (defalias 'mime-w3m-preview-text/html #[(entity situation) "\306\307!\210\310=\203\f \311\n\236\204\311\312B\nB\313\314!\210\315 !`\316 \317\"\206,\316\f\317\"\211b\210\320c\210b\210\214\211}\210\321 !\210\313\322!\210\323\324\325\217+\207" [mime-w3m-display-inline-images w3m-default-display-inline-images w3m-cid-retrieve-function-alist entity mime-w3m-message-structure xref require w3m default mime-view-mode mime-w3m-cid-retrieve run-hooks mime-w3m-setup-hook mime-find-root-entity mime-entity-fetch-field "xref" "\n" mime-insert-text-content mime-text-decode-hook err (byte-code " \306\307 d;\205\310\311\"\205#\210\312 d\313\314!\204+\315Y\2032\316D\202H\317\206G\320!\321\"\210D\322\244#+\207" [mime-w3m-safe-url-regexp mime-w3m-display-inline-images w3m-force-redisplay w3m-display-inline-images w3m-safe-url-regexp p nil w3m-region string-match "\\`http://" add-text-properties featurep xemacs 21 keymap local-map copy-keymap set-keymap-parent (text-rendered-by-mime-w3m t) xref emacs-major-version w3m-minor-mode-map mime-w3m-mode-map mime-view-mode-default-map] 7) ((error (message "%s" err))) p] 5]) (autoload 'mime-uri-parse-cid "mime-parse") (defalias 'mime-w3m-cid-retrieve #[(url &rest args) "\306\307!r q\210\n)\"\211\205\\\310 ! \203\311\f!\202!\312\f!c\210) \211\313 !\211@A*\313 !\211A@A*\211\205[\203V\314\315#\202[\314\316\"+)\207" [url w3m-current-buffer mime-w3m-message-structure entity string enable-multibyte-characters mime-find-entity-from-content-id mime-uri-parse-cid mime-entity-content string-as-multibyte string-as-unibyte mime-entity-content-type format "%s/%s" "%s" entity-info content-type subtype type] 6]) (byte-code "\301\302\303\304\305\301$\210\306\303\301\"\210)\307 \210\310\311!\207" [current-load-list nil ad-add-advice kill-new (strip-keymap-properties-from-kill nil t (advice lambda nil "Advised by emacs-w3m.\nStrip `keymap' or `local-map' properties from a killed string." (if (text-property-any 0 (length (ad-get-arg 0)) 'text-rendered-by-mime-w3m t (ad-get-arg 0)) (remove-text-properties 0 (length (ad-get-arg 0)) '(keymap nil local-map nil) (ad-get-arg 0))))) before ad-activate mime-w3m-insinuate provide mime-w3m] 5)