;ELC ;;; Compiled by nelhage@localhost.localdomain on Sun Dec 11 02:47:31 2005 ;;; from file /home/nelhage/Desktop/vm-7.19/vm-mime.el ;;; in Emacs version 22.0.50.7 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (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"))) (error "`vm-mime.el' was compiled for Emacs 19 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'vm-mime-error #[(&rest args) "\301\302\303\304\"C\"\210\305\306!\207" [args signal vm-mime-error apply format error "can't return from vm-mime-error"] 5]) (byte-code "\300\301!\203\301\302\303\"\210\301\304\305\"\210\202+\306\302\307\310#\210\306\302\311\312#\210\306\304\307\313#\210\306\304\311\314#\210\300\207" [fboundp define-error vm-image-too-small "Image too small" vm-mime-error "MIME error" put error-conditions (vm-image-too-small error) error-message "Image too small" (vm-mime-error error) "MIME error"] 4) (defalias 'vm-make-layout #[(&rest plist) "\301\302\303\"\302\304\"\302\305\"\302\306\"\302\307\"\302\310\"\302\311\"\302\312\"\302\313\"\302\314\"\302\315\"\302\316\"\302\317\"\302\320\"\302\321\"\302\322\"\302\323\"&\207" [plist vector plist-get type qtype encoding id description disposition qdisposition header-start header-end body-start body-end parts cache message-symbol display-error layout-is-converted unconverted-layout] 20]) (defalias 'vm-mm-layout-type #[(e) "\301H\207" [e 0] 2]) (defalias 'vm-mm-layout-qtype #[(e) "\301H\207" [e 1] 2]) (defalias 'vm-mm-layout-encoding #[(e) "\301H\207" [e 2] 2]) (defalias 'vm-mm-layout-id #[(e) "\301H\207" [e 3] 2]) (defalias 'vm-mm-layout-description #[(e) "\301H\207" [e 4] 2]) (defalias 'vm-mm-layout-disposition #[(e) "\301H\207" [e 5] 2]) (defalias 'vm-mm-layout-qdisposition #[(e) "\301H\207" [e 6] 2]) (defalias 'vm-mm-layout-header-start #[(e) "\301H\207" [e 7] 2]) (defalias 'vm-mm-layout-header-end #[(e) "\301H\207" [e 8] 2]) (defalias 'vm-mm-layout-body-start #[(e) "\301H\207" [e 9] 2]) (defalias 'vm-mm-layout-body-end #[(e) "\301H\207" [e 10] 2]) (defalias 'vm-mm-layout-parts #[(e) "\301H\207" [e 11] 2]) (defalias 'vm-mm-layout-cache #[(e) "\301H\207" [e 12] 2]) (defalias 'vm-mm-layout-message-symbol #[(e) "\301H\207" [e 13] 2]) (defalias 'vm-mm-layout-message #[(e) "\301!J\207" [e vm-mm-layout-message-symbol] 2]) (defalias 'vm-mm-layout-display-error #[(e) "\301H\207" [e 14] 2]) (defalias 'vm-mm-layout-is-converted #[(e) "\301H\207" [e 15] 2]) (defalias 'vm-mm-layout-unconverted-layout #[(e) "\301H\207" [e 16] 2]) (defalias 'vm-set-mm-layout-type #[(e type) "\302 I\207" [e type 0] 3]) (defalias 'vm-set-mm-layout-qtype #[(e type) "\302 I\207" [e type 1] 3]) (defalias 'vm-set-mm-layout-encoding #[(e encoding) "\302 I\207" [e encoding 2] 3]) (defalias 'vm-set-mm-layout-id #[(e id) "\302 I\207" [e id 3] 3]) (defalias 'vm-set-mm-layout-description #[(e des) "\302 I\207" [e des 4] 3]) (defalias 'vm-set-mm-layout-disposition #[(e d) "\302 I\207" [e d 5] 3]) (defalias 'vm-set-mm-layout-qdisposition #[(e d) "\302 I\207" [e d 6] 3]) (defalias 'vm-set-mm-layout-header-start #[(e start) "\302 I\207" [e start 7] 3]) (defalias 'vm-set-mm-layout-header-end #[(e start) "\302 I\207" [e start 8] 3]) (defalias 'vm-set-mm-layout-body-start #[(e start) "\302 I\207" [e start 9] 3]) (defalias 'vm-set-mm-layout-body-end #[(e end) "\302 I\207" [e end 10] 3]) (defalias 'vm-set-mm-layout-parts #[(e parts) "\302 I\207" [e parts 11] 3]) (defalias 'vm-set-mm-layout-cache #[(e c) "\302 I\207" [e c 12] 3]) (defalias 'vm-set-mm-layout-display-error #[(e c) "\302 I\207" [e c 14] 3]) (defalias 'vm-set-mm-layout-is-converted #[(e c) "\302\303 #\207" [e c asef 15] 4]) (defalias 'vm-set-mm-layout-unconverted-layout #[(e layout) "\302 I\207" [e layout 16] 3]) (defalias 'vm-mime-make-message-symbol #[(m) "\302\303!\211 L\210)\207" [s m make-symbol "<>"] 3]) (defalias 'vm-mime-make-cache-symbol #[nil "\301\302!\211\211L\210)\207" [s make-symbol "<>"] 3]) (defalias 'vm-mm-layout #[(m) "\211\303H\304H)\206!\305!\211\303H\304\nI\210*\211\303H\304H)\207" [m message layout 1 16 vm-mime-parse-entity-safe] 4]) (defalias 'vm-mm-encoded-header #[(m) "\211\305H\306H)\206`\211\305H\307HJ)\211\212\211\305H\310H)q\210\212\214~\210\211\311H\305H)b\210\312\313 \211\311H\314H\206F\315 !\210 \311H\314H)\312#\206M\316,\211\305H\306\fI\210*\211\305H\306H)\207" [m message case-fold-search vm-mime-encoded-word-regexp flag 1 17 5 9 0 t re-search-forward 3 vm-find-and-set-text-of none] 6]) (defalias 'vm-mime-Q-decode-region #[(start end) "\303\304 \n\305\306\307!\310%\210\311 \n\")\207" [buffer-read-only start end nil subst-char-in-region 95 string-to-char " " t vm-mime-qp-decode-region] 6]) (fset 'vm-mime-B-decode-region 'vm-mime-base64-decode-region) (defalias 'vm-mime-Q-encode-region #[(start end) "\304\211\305\n \306#\307\n \310\311!\312\306%\210*\207" [val buffer-read-only start end nil vm-mime-qp-encode-region t subst-char-in-region string-to-char " " 95] 6]) (defalias 'vm-mime-B-encode-region #[(start end) "\302 \303\304$\207" [start end vm-mime-base64-encode-region nil t] 5]) (defalias 'vm-mime-base64-decode-string #[(string) "\301\302\"\207" [string vm-with-string-as-temp-buffer #[nil "\300ed\"\207" [vm-mime-base64-decode-region] 3]] 3]) (defalias 'vm-mime-base64-encode-string #[(string) "\301\302\"\207" [string vm-with-string-as-temp-buffer #[nil "\300ed\301\302$\207" [vm-mime-base64-encode-region nil t] 5]] 3]) (defalias 'vm-mime-crlf-to-lf-region #[(start end) "\303\212\214 \n}\210 b\210\304\305\303\306#\205\307\310!\210\311c\210\202 +\207" [buffer-read-only start end nil search-forward " \n" t delete-char -2 "\n"] 4]) (defalias 'vm-mime-lf-to-crlf-region #[(start end) "\303\212\214 \n}\210 b\210\304\305\303\306#\205\307\310!\210\311c\210\202 +\207" [buffer-read-only start end nil search-forward "\n" t delete-char -1 " \n"] 4]) (defalias 'vm-encode-coding-region #[(b-start b-end coding-system &rest foo) "\306\211\211\211\211p\307\216\212\310 \211q\210\311#\210\312 \313\314ed%ed\312 \212q\210b\210\311 \f #\210``\n\\|\210\315!\203R`\306\223\210 . \207" [b retval oldsize end start work-buffer nil ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) vm-make-work-buffer insert-buffer-substring buffer-size apply encode-coding-region markerp b-start b-end coding-system foo] 7]) (defalias 'vm-decode-coding-region #[(b-start b-end coding-system &rest foo) "\306\211\211\211\211p\307\216\212\310 Z q\210\311#\210\312\313ed%\2036\314\315!\210ed\212q\210b\210``\n\\|\210\311 \f #\210\316!\203[`\306\223\210 . \207" [b retval oldsize end start work-buffer nil ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) vm-make-work-buffer insert-buffer-substring apply decode-coding-region set-buffer-multibyte t markerp b-end b-start coding-system foo vm-fsfemacs-p] 6]) (defalias 'vm-mime-charset-decode-region #[(charset start end) "\306!\204\307\310 \n \223* \204\f\203f \203$\311 \312>\204)\205\250\307\313\"A` \203a\314!@#\210\315!\316\317$\210\315!\320$\210\315!\321@$\210b+\207\322 \204m\307\207\323!\203v\307\207\313\"\"A\324\325\326!!\327!\"#$%\315!\316\317$\210\315!\320$\210%\205\247\330\331\332\217+\207" [end buffer pos vm-xemacs-mule-p vm-fsfemacs-mule-p vm-xemacs-p markerp nil make-marker device-type (x gtk mswindows) vm-string-assoc vm-decode-coding-region put-text-property vm-string t vm-charset vm-coding vm-multiple-fonts-possible-p vm-mime-default-face-charset-p make-face make-symbol "temp-face" vm-make-extent data (byte-code "\306 \"\210\n\203\307 \f\300$\207\310 \311\312#\210\310 \300#\207" [face font vm-fsfemacs-p start end e set-face-font put-text-property vm-set-extent-property duplicable t] 5) ((error)) vm-fsfemacs-p charset vm-mime-mule-charset-to-coding-alist opoint cell buffer-read-only start vm-mime-charset-font-alist e face font] 5]) (defalias 'vm-mime-transfer-decode-region #[(layout start end) "\305\306\307\310\311\n!@\"\204\307\312\311\n!@\"\203\305\313\314\315\n!\"\203+\316 \f#\202I\313\317\315\n!\"\203;\320 \f\"\202I\313\321\315\n!\"\205I\322 \f#*\207" [crlf case-fold-search layout start end t nil vm-mime-types-match "text" vm-mm-layout-type "message" string-match "^base64$" vm-mm-layout-encoding vm-mime-base64-decode-region "^quoted-printable$" vm-mime-qp-decode-region "^x-uue$\\|^x-uuencode$" vm-mime-uuencode-decode-region] 4]) (defalias 'vm-mime-base64-decode-region #[(start end &optional crlf) "\306!\204\307\310 \n \223* Z\311V\203\312\313!\210\307\211\314\211\211\307\315\fP234567\316\216\212\317\320!\203`\321\322!\203`\323\322K!\203`8\204`\324\325\326\217\2109\203\311\327 \"\210\202\311\330 7:\203\265\331;<\203u\332\202=\203~\332\202\333><\203\212\332\202\224=\203\223\332\202\224\333?\334\335 7:@&\211A\331=\204\261\336\337AA\"\210,\202\255 b\210 w\2106\204\255`2\fw\314V\203-`323W\203-4B2fH\\45T52T25\340U\203#\341\3424\343\"\344\3077$\210\341\345\3424\346\"\347\"\344\3077$\210\341\3454\347\"\344\3077$\210\314\21145\202\317\3424\350\"4\202\317`U\203K\3515!\204D\336\352\3405Z\350_\"\210\331\2116\202\276`f\353U\203\246\33165\344U\203c\336\354!\210\202\2745\355U\203y\341\3424\356\"\344\3077$\210\202\2745\357U\203\236\341\3424\343\"\344\3077$\210\341\345\3424\346\"\347\"\344\3077$\210\202\2745\314U\210\202\274 w\210\202\2749\203\275\2127q\210\327ed\"\210) b\210\3607!\210`|\210.  Z\311V\205\326\312\361!\207" [end buffer pos start vm-mime-base64-alphabet non-data-chars markerp nil make-marker 200 message "Decoding base64..." 0 "^=" ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) featurep base64 fboundp base64-decode-region subrp data (base64-decode-region start end) ((error (vm-mime-error "%S" data))) vm-mime-crlf-to-lf-region vm-make-work-buffer t binary no-conversion apply vm-run-command-on-region vm-mime-error "%s" 4 vm-insert-char lsh -16 1 logand -8 255 6 zerop "at least %d bits missing at end of base64 encoding" 61 "at least 2 bits missing at end of base64 encoding" 2 -10 3 insert-buffer-substring "Decoding base64... done" inputpos lim bits counter done work-buffer vm-fsfemacs-p crlf vm-mime-base64-decoder-program binary-process-output vm-xemacs-mule-p vm-xemacs-file-coding-p coding-system-for-read coding-system-for-write vm-mime-base64-decoder-switches status vm-mime-base64-alphabet-decoding-vector] 9]) (defalias 'vm-mime-base64-encode-region #[(start end &optional crlf B-encoding) "\306!\204\307\310 \n \223* Z\311V\203\312\313!\210\307\314\211\211\f\30734567\315\216\2128\203;\316 \"\210\317\320!\203V\321\322!\203V\323\322K!\203V\324\325\326\217\210\202\266\327 79\203\233\330\331 79:&\211;\332=\204z\333\334;A\"\210<\203\227\2127q\210eb\210\335\336\307\332#\203\226\337\340!\210\202\207))\202\231 \211W\203*4 f\\46T\2116\341U\203\3423\3434\344\"H\345\3077$\210\3423\346\3434\347\"\350\"H\345\3077$\210\3423\346\3434\351\"\350\"H\345\3077$\210\3423\3464\350\"H\345\3077$\2105\352\\\2115\353U\203\3145<\204\342\354\345\3077$\210\314\21146\202#\3434\355\"4 T\211\202\2366\314U\204\212\3434\3566\355_Z\"4\3423\3434\344\"H\345\3077$\210\3423\346\3434\347\"\350\"H\345\3077$\2106\345U\203p\342\357\360\3077$\210\202\212\3423\346\3434\351\"\350\"H\345\3077$\210\342\357\345\3077$\2105\314V\203\231\342\354\345\3077$\210\306!\204\252\307\310 \n \223* b\210\3617!\210`|\210 Z\311V\203\302\312\362!\210 Z.\207" [end buffer pos start vm-mime-base64-alphabet inputpos markerp nil make-marker 200 message "Encoding base64..." 0 ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) vm-mime-lf-to-crlf-region featurep base64 fboundp base64-encode-region subrp data (base64-encode-region start end B-encoding) ((wrong-number-of-arguments (byte-code "\303\304\305\217\210\203\212 b\210\306\307\n\310#\203\311\312!\210\202 )\303\207" [B-encoding start end data (base64-encode-region start end) ((error (vm-mime-error "%S" data))) search-forward "\n" t delete-char -1] 4)) (error (vm-mime-error "%S" data))) vm-make-work-buffer apply vm-run-command-on-region t vm-mime-error "%s" search-forward "\n" delete-char -1 3 vm-insert-char lsh -18 1 logand -12 63 -6 4 72 10 8 16 61 2 insert-buffer-substring "Encoding base64... done" alphabet bits cols counter work-buffer crlf vm-mime-base64-encoder-program vm-mime-base64-encoder-switches status B-encoding] 8]) (defalias 'vm-mime-qp-decode-region #[(start end) " Z\306V\203\f\307\310!\210\311p\311\312\311\211\211()*\313\216\212\314 *+\203u\315,-\2035\316\202?.\203>\316\202?\317/-\203J\316\202T.\203S\316\202T\3170\320\321 *+1&\2112\315=\204q\322\3232A\"\210,\202 b\210 \211W\203\324w\210`\325\326!\203\230\327\311x\210` b\210\202\232 \212*q\210\330)\f\n#\210)`U\204\325\331!\203\301\332\333\334\311*$\210\311u\210\202\311u\210\325\335!\203\345\332`f \236A\336_`Tf \236A\\\334\311*$\210\337u\210\202\325\340!\203\361\311u\210\202\325\341!\203\375\311u\210\202\325\342!\203\n\343w\210\202\322\344!\210`\211\202{\345!\204)\31134\346 43\223* b\210\330*!\210`|\210.  Z\306V\205B\307\347!\207" [end start copy-point stop-point inputpos hex-digit-alist 200 message "Decoding quoted-printable..." nil ((48 . 0) (49 . 1) (50 . 2) (51 . 3) (52 . 4) (53 . 5) (54 . 6) (55 . 7) (56 . 8) (57 . 9) (65 . 10) (66 . 11) (67 . 12) (68 . 13) (69 . 14) (70 . 15) (97 . 10) (98 . 11) (99 . 12) (100 . 13) (101 . 14) (102 . 15)) ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) vm-make-work-buffer t binary no-conversion apply vm-run-command-on-region vm-mime-error "%s" "^=\n" looking-at "\n" " " insert-buffer-substring "\n" vm-insert-char 10 1 "[0-9A-Fa-f][0-9A-Fa-f]" 16 2 "\n" " " "[ ]" " " "something other than line break or hex digits after = in quoted-printable encoding" markerp make-marker "Decoding quoted-printable... done" case-fold-search buf work-buffer vm-mime-qp-decoder-program binary-process-output vm-xemacs-mule-p vm-xemacs-file-coding-p coding-system-for-read coding-system-for-write vm-mime-qp-decoder-switches status buffer pos] 8]) (defalias 'vm-mime-qp-encode-region #[(start end &optional Q-encoding quote-from) " Z\306V\203\f\307\310!\210\311p\312\313\311\21178\314\216\212\315 89\203\300\316:;\2032\317\202<<\203;\317\202<\320=;\203G\317\202Q<\203P\317\202Q\320>\321\322 89?&\211@\316=\204n\323\324@A\"\210A\203\215\2128q\210eb\210\325\326\311\316#\203\214\327\330\316\211#\210\202{)B\203\274\2128q\210eb\210\331\332\311\316#\203\251\333\334!\210\202\232eb\210\331\335\311\316#\203\273\333\336!\210\202\254),\202\254 \211W\203\254\nf\211\337U\203\336\340 \341\3118$\210\312\202\210 \342U\203\nTU\204\nTf\337U\204\340 \341\3118$\210 T\202\210 \343W\204P \344V\204P \345U\204PB\203 \346U\204PB\203) \347U\204PA\203> \312U\203>\311C\350\351!)\204P \312U\203} \352U\203}\350\353!\203}\340\345\341\3118$\210\340\354\355 \356\"\f\"@\341\3118$\210\340\354\357 \360\"\f\"@\341\3118$\210 \361\\\202\210\340 \341\3118$\210 T \362V\203\245\312B\204\245\340\345\341\3118$\210\340\337\341\3118$\210\nT\211\202\303\363!\204\301\311DE\364 ED\223* b\210\3658!\210`|\210 Z\306V\203\331\307\366!\210 Z.\207" [end start inputpos char hex-digit-alist cols 200 message "Encoding quoted-printable..." nil 0 ((48 . 0) (49 . 1) (50 . 2) (51 . 3) (52 . 4) (53 . 5) (54 . 6) (55 . 7) (56 . 8) (57 . 9) (65 . 10) (66 . 11) (67 . 12) (68 . 13) (69 . 14) (70 . 15)) ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) vm-make-work-buffer t binary no-conversion apply vm-run-command-on-region vm-mime-error "%s" re-search-forward "^From " replace-match "=46rom " search-forward "=\n" delete-char -2 "\n" -1 10 vm-insert-char 1 32 33 126 61 63 95 looking-at "From " 46 "\\.\\(\n\\|\\'\\)" rassq lsh -4 logand 15 3 70 markerp make-marker insert-buffer-substring "Encoding quoted-printable... done" buf work-buffer vm-mime-qp-encoder-program binary-process-output vm-xemacs-mule-p vm-xemacs-file-coding-p coding-system-for-read coding-system-for-write vm-mime-qp-encoder-switches status quote-from Q-encoding case-fold-search buffer pos] 8]) (defalias 'vm-mime-uuencode-decode-region #[(start end &optional crlf) "\306\307!\210\310p\310\311 \312\216\212\313 \211q\210\314\n\f #\210eb\210\315\316\310\317#\204+\320\321!\210`\322y\210`|\210\323\261\210db\210\324 \210\325\326!\203Idb\210\327c\210#;\203\232\317$%\203[\330\202e&\203d\330\202e\331'%\203p\330\202z&\203y\330\202z\331(\332\333ed\310#)&\211*\317=\204\226\320\334*A\"\210,\202\236\320\335!\210ed|\210\336!\210+\203\260\337ed\"\210\nq\210\340 !\204\310 \310,-\341 -,\223*\fb\210\314 !\210` |\210.\306\342!\207" [tempfile case-fold-search region-buffer work-buffer start end message "Decoding uuencoded stuff..." nil vm-make-tempfile-name ((byte-code "\203\302!\210\303\304 \"\207" [work-buffer tempfile kill-buffer vm-error-free-call delete-file] 3)) vm-make-work-buffer insert-buffer-substring re-search-forward "^begin [0-7][0-7][0-7] " t vm-mime-error "no begin line" 1 "\n" beginning-of-line looking-at "^end\\'" "\n" binary no-conversion apply vm-run-command-on-region "%s" "no uuencode decoder program defined" insert-file-contents-literally vm-mime-crlf-to-lf-region markerp make-marker "Decoding uuencoded stuff... done" vm-mime-uuencode-decoder-program binary-process-output vm-xemacs-mule-p vm-xemacs-file-coding-p coding-system-for-read coding-system-for-write vm-mime-uuencode-decoder-switches status crlf buffer pos] 8]) (defalias 'vm-decode-mime-message-headers #[(m) "\306\307\211\211\211\211\211\211\211\212\211\310H\311H)b\210\312\211\310H\313H\206<\314!\210\310H\313H)\306#\205\236\310\224\310\225\311\224\311\225{\315\224\315\225{\316\224\316\225\307\317 \223*\320!\204x\321!\211\203\"\n|\210\322\323\324\217\210 \203\215\325 #\326 #\210b\210 |\210\202\".\n\207" [end start match-end match-start encoding need-conversion t nil 0 1 re-search-forward 3 vm-find-and-set-text-of 4 5 make-marker vm-mime-charset-internally-displayable-p vm-mime-can-convert-charset data (byte-code "\303\304\"\203\305 \n\"\210\202#\303\306\"\203\307 \n\"\210\202#\310\311\"\210\303\207" [encoding start end string-match "B" vm-mime-B-decode-region "Q" vm-mime-Q-decode-region vm-mime-error "unknown encoded word encoding, %s"] 3) ((vm-mime-error (byte-code "\303\304A\"\210 b\210\305c\210`\n|\207" [data start end apply message "**invalid encoded word**"] 3))) vm-mime-charset-convert-region vm-mime-charset-decode-region charset buffer-read-only case-fold-search m message vm-mime-encoded-word-regexp buffer pos] 10]) (defalias 'vm-decode-mime-encoded-words #[nil "\306\307\211\211\211\211\211\211\211\212eb\210\310\307\306#\205~\311\224\311\225\312\224\312\225{\313\224\313\225{\314\224\314\225\307\315 \223*\316!\204X\317!\211\203\n|\210\320\321\322\217\210 \203m\323 #\324 #\210b\210 |\210\202.\n\207" [end start match-end match-start encoding need-conversion t nil re-search-forward 0 1 4 5 make-marker vm-mime-charset-internally-displayable-p vm-mime-can-convert-charset data (byte-code "\303\304\"\203\305 \n\"\210\202#\303\306\"\203\307 \n\"\210\202#\310\311\"\210\303\207" [encoding start end string-match "B" vm-mime-B-decode-region "Q" vm-mime-Q-decode-region vm-mime-error "unknown encoded word encoding, %s"] 3) ((vm-mime-error (byte-code "\303\304A\"\210 b\210\305c\210`\n|\207" [data start end apply message "**invalid encoded word**"] 3))) vm-mime-charset-convert-region vm-mime-charset-decode-region charset buffer-read-only case-fold-search vm-mime-encoded-word-regexp buffer pos] 9]) (defalias 'vm-decode-mime-encoded-words-in-string #[(string) "\203\304\305\n \")\203\306 \307\"\207 \207" [vm-display-using-mime case-fold-search vm-mime-encoded-word-regexp string t string-match vm-with-string-as-temp-buffer vm-decode-mime-encoded-words] 3]) (defalias 'vm-reencode-mime-encoded-words #[nil "\306\211\211\211\211\211\307\306\212e?\205\225\310\311\"\312\311\"\211\2040d\307\203\217\310\313\"\211\203P\314 \315\f #\210\f\314 \nZ\\\316\317\"\211\203d\320\f\"\202i\321\f\"\\\211b\210\322c\210`b\210\323\324 \203\203\325\202\204\326\327\261\210\f`Z\\\f\202. \207" [done case-fold-search old-size q-encoding pos coding nil t get-text-property vm-charset next-single-property-change vm-coding buffer-size encode-coding-region string-match "^iso-8859-\\|^us-ascii" vm-mime-Q-encode-region vm-mime-B-encode-region "?=" "=?" "?" "Q" "B" "?" start charset] 9]) (defalias 'vm-reencode-mime-encoded-words-in-string #[(string) "\203\302\303 G\304\305 %\203\306 \307\"\207 \207" [vm-display-using-mime string text-property-any 0 vm-string t vm-with-string-as-temp-buffer vm-reencode-mime-encoded-words] 6]) (fset 'vm-mime-parse-content-header 'vm-parse-structured-header) (defalias 'vm-mime-get-header-contents #[(header-name-regexp) "\304\211\305\n\306Q\212\307\310\304\307#\205$\311\224\205$\312\224b\210\313 \205$\314 ,\207" [regexp contents header-name-regexp case-fold-search nil "^\\(" "\\)\\|\\(^$\\)" t re-search-forward 1 0 vm-match-header vm-matched-header-contents] 4]) (defalias 'vm-mime-parse-entity #[(&optional m default-type default-encoding passing-message-only) "\300\301\215\207" [return-value (byte-code "\212\203 \204\211\306H\307HJ)\211\211\306H\310H)q\210\311\312\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211@ABCDEFG54321/-HI\212\214\203\" \204\"\313\314\"H\315H!@H\313\316\"-H\204}J\203\202H\202\210-\205\210\317H\315-\320\311#/\315-\320\"-\313\321\"1H\204\251J\203\256H\202\2641\205\264\322H1\206\274\3231\3151!@\206\307\3241\313\325\"2\3152!@2\313\326\"\2113\205\353\327\3303\"?\205\35333\313\331\"\2114\205\375\3154\320\311#54\205 \3154\320\"4~\210\211\332H\306H)\211\332H\333H)}\210\202\230eb\210\334\335!-\315-\320\311#\2065K/\315-\320\"\206AK-\334\336!\206KL1\3151!@\206WL1\334\337!2\3152!@2\334\340!\2113\205y\327\3413\"?\205y33\334\342!\2114\205\212\3154\320\311#54\205\226\3154\320\"4\203\277 \204\277H\204\255\343\344\345\"\210\202\277M\204\277H\346\230\204\277\347\350H\"\210-\203\323\327\351-@\"\203\323\352-\353/\203P \204P-\204P\343\344\354\355\356\357\360\3611\3622\3633\3644\3655\366\211\332H\306H)\367\211\332H\370H\206\371\n!\210\n\332H\370H)S\312NO\372 ON\223*\373\211\332H\370H\2066\371\n!\210\n\332H\370H)\374\211\332H\333H)\375\376 \377\201R!&\"\210\202-\204\316eb\210\201S\201T\312\311#\204j\347\201U!\210\354\355K\357K\3611\3622\3633\3644\3655\366e\312NO\372 ON\223*\201V`S\312NO\372 ON\223*\373`\312NO\372 ON\223*\374d\312NO\372 ON\223*\375\376 \377\201R!&\210\202\327\201W-@\"\204\345\347\201X-@\"\210\202\327\201Y-@\"\203\327\201Z1\"\204P\203\201[1\202\347\201\\-@1#\210\202\327\201]-@\"\2035\327\201^1\"\2045\347\201_1\"\210\202\327\201`-@\"\203M\201aA\201b@\202\327\201c-@\"\203e\201dA\201e@\202\327\201f-@\"\203\201gA\201h@eb\210\201S\201i\312\311#\204\217\347\201j!\210\343\344\354\355-\357/\3611\3622\3633\3644\3655\366e\312NO\372 ON\223*\367`S\312NO\372 ON\223*\373`\312NO\372 ON\223*\374d\312NO\372 ON\223*\201k\214`d}\210\201lA@\311$)C\375\376 \377\201R!&\"\210\202eb\210\201S\201m\312\311#\204\347\201n!\210\343\344\354\355-\357/\3611\3622\3633\3644\3655\366e\312NO\372 ON\223*\367`S\312NO\372 ON\223*\373`\312NO\372 ON\223*\374d\312NO\372 ON\223*\375\376 \377\201R!&\"\210-A\312G\f\203\255\327\201o\f@\"\203\246\201p\f@\201q\"@G\312\211\202\207\fA\211\204\212G\204\273\347\201r-@\"\210\201s\201tG!\201uQFeb\210\312\211EC\312 \204 \201SF\312\332#\203 E\204\360\332\225E\202\325\306\224\203\367\311E\332\224SBBBB\332\225E\202\325 \204Q\204\347\201vG\"\210\202/E\203/ \204/E`BBBBB\237BB\203eB@EBA@DBAAB\212\214ED}\210\201lA@\311$CBC*\2024eb\210\201S\201w\312\311#\204z\347\201x!\210\354\355-\357/\3611\3622\3633\3644\3655\366e\312NO\372 ON\223*\367`S\312NO\372 ON\223*\373`\312NO\372 ON\223*\374d\312NO\372 ON\223*\201kC\237\375\376 \377\201R!&.\207" [m passing-message-only message returnval p done 1 5 9 t nil vm-get-header-contents "MIME-Version:" vm-mime-parse-content-header "Content-Type:" "1.0" 59 "Content-Transfer-Encoding:" "1.0" "7bit" "7bit" "Content-ID:" "Content-Description:" string-match "^[ \n]*$" "Content-Disposition:" 0 4 vm-mime-get-header-contents "Content-Type:" "Content-Transfer-Encoding:" "Content-ID:" "Content-Description:" "^[ \n]*$" "Content-Disposition:" throw return-value none "1.0" vm-mime-error "Unsupported MIME version: %s" "^text$" ("text/plain" "charset=us-ascii") ("text/plain" "charset=us-ascii") vm-make-layout type ("text/plain" "charset=us-ascii") qtype ("text/plain" "charset=us-ascii") encoding id description disposition qdisposition header-start header-end 3 vm-find-and-set-text-of make-marker body-start body-end cache vm-mime-make-cache-symbol message-symbol c-t-e c-t pos-list multipart-list end start boundary-regexp boundary version case-fold-search vm-mime-require-mime-version-header default-type default-encoding vm-mime-ignore-mime-version buffer pos vm-mime-ignore-composite-type-opaque-transfer-encoding vm-mime-ignore-missing-multipart-boundary vm-mime-make-message-symbol re-search-forward "^\n\\|\n\\'" "MIME part missing header/body separator line" header-body "[^/ ]+/[^/ ]+" "Malformed MIME content type: %s" "^multipart/\\|^message/" "^\\(7bit\\|8bit\\|binary\\)$" "binary" "Opaque transfer encoding used with multipart or message type: %s, %s" "^message/partial$" "^7bit$" "Non-7BIT transfer encoding used with message/partial message: %s" "^multipart/digest" ("message/rfc822") "7bit" "^multipart/" ("text/plain" "charset=us-ascii") "7bit" "^message/\\(rfc822\\|news\\|external-body\\)" ("text/plain" "charset=us-ascii") "7bit" "^\n\\|\n\\'" "MIME part missing header/body separator line" parts vm-mime-parse-entity-safe "^\n\\|\n\\'" "MIME part missing header/body separator line" "^boundary=" vm-parse "=\\(.+\\)" "Boundary parameter missing in %s type specification" "^--" regexp-quote "\\(--\\)?[ ]*\\(\n\\|\\'\\)" "final %s boundary missing" "^\n\\|\n\\'" "MIME part missing header/body separator line"] 33)] 2]) (defalias 'vm-mime-parse-entity-safe #[(&optional m c-t c-t-e p-m-only) "\204\302 \204\f\303\304\305\306\217\207" [c-t c-t-e ("text/plain" "charset=us-ascii") "7bit" error-data (vm-mime-parse-entity m c-t c-t-e p-m-only) ((vm-mime-error (byte-code "\303\306A@\"\210 \203\n\204 \211\307H\310H)\202$e\311\312 \f\223* \203C\n\204C \211\307H\313H\206?\314 !\210 \307H\313H)\202T\212\315\316\311\307#\210`\311\312 \f\223+ \203g\n\204g \211\307H\317H)\202qd\311\312 \f\223*$%&\320\321\322\323\324\325\326%$\"\327A@\330\331\332\333\334&\335%S\311\312 \f\223*\336%\337$\340\341 \342\343 !&+\207" [error-data m p-m-only message buffer pos "%s" 0 1 nil make-marker 3 vm-find-and-set-text-of re-search-forward "^\n\\|\n\\'" 4 vm-make-layout type ("error/error") qtype ("error/error") encoding vm-determine-proper-content-transfer-encoding description disposition ("attachment") qdisposition ("attachment") header-start header-end body-start body-end cache vm-mime-make-cache-symbol message-symbol vm-mime-make-message-symbol text-end text header] 27)))] 3]) (defalias 'vm-mime-get-xxx-parameter #[(name param-list) "GT\306!\307P\310\311 \2031 \2041\312 @\"\203*\313\225\fU\203*\310\202 A\211\204 @\205; @\f\311O,\207" [name done case-fold-search name-regexp match-end param-list regexp-quote "=" t nil string-match 0] 5]) (defalias 'vm-mime-get-parameter #[(layout name) "\302\303 !A\"\207" [name layout vm-mime-get-xxx-parameter vm-mm-layout-type] 4]) (defalias 'vm-mime-get-disposition-parameter #[(layout name) "\302\303 !A\"\207" [name layout vm-mime-get-xxx-parameter vm-mm-layout-disposition] 4]) (defalias 'vm-mime-set-xxx-parameter #[(name value param-list) "GT\306!\307P\310\311 \2031 \2041\312 @\"\203*\313\225\fU\203*\310\202 A\211\204 @\205= \314 Q\240,\207" [name done case-fold-search name-regexp match-end param-list regexp-quote "=" t nil string-match 0 "=" value] 5]) (defalias 'vm-mime-set-parameter #[(layout name value) "\303 \304\n!A#\207" [name value layout vm-mime-set-xxx-parameter vm-mm-layout-type] 5]) (defalias 'vm-mime-set-qparameter #[(layout name value) "\303\304Q\305 \306\n!A#\207" [value name layout "\"" "\"" vm-mime-set-xxx-parameter vm-mm-layout-qtype] 5]) (defalias 'vm-mime-insert-mime-body #[(layout) "\301\302\303!!\303!\304!#\207" [layout vm-insert-region-from-buffer marker-buffer vm-mm-layout-body-start vm-mm-layout-body-end] 5]) (defalias 'vm-mime-insert-mime-headers #[(layout) "\301\302\303!!\303!\304!#\207" [layout vm-insert-region-from-buffer marker-buffer vm-mm-layout-header-start vm-mm-layout-header-end] 5]) (defalias 'vm-make-presentation-copy #[(m) "p\306\211\211\307H\310HJ)\311 23\203 \3123!\204\273\3134\314\312 \315P!)\212 q\210\316\317!\203<\317p!\210\202D\320\2115p!\210)\3216\3227\306C829:\205^\323 \205^\324 ;\313\211<=>?\325\326!\210\306\316\327!\203\216\327@\203\201\330\202\213A\203\212\330\202\213\331\313\"\210\332 \210B\203\243C\203\243\333 \203\243\334 \210\335D!\210\336 \210\323 \203\263\337 \210\340\341!\210) 333E\306F\316\342!\203\331\342\343\344! \"\210\342\345\344! \"\210\212 \211\307H\346H)q\210\214~\210 \211\347H\350H\204\375\351 \306\211#\210 \347H\350H\210) q\210~\210\306\313\311 G=\352\216\353 \210\354 \211\307H\346H) \211\347H\347H) \211\347H\310H)#\210,\355!\211\356\211\347H)!H\211\347HI\210*\f\211\347H\347H)e\306\223\210\f\211\347H\307H)\f\211\347H\347H) \211\347H\307H) \211\347H\347H)Z\\\306\223\210\f\211\347H\350H\206\212\351 \306\211#\210 \347H\350H)\f\211\347H\347H) \211\347H\350H\206\250\351 \306\211#\210 \347H\350H) \211\347H\347H)Z\\\306\223\210\f\211\347H\357H\206\311\360 !\210 \347H\357H)\f\211\347H\347H) \211\347H\357H\206\345\360 !\210 \347H\357H) \211\347H\347H)Z\\\306\223\210\f\211\347H\361H)\f\211\347H\347H) \211\347H\361H) \211\347H\347H)Z\\\306\223\210\f\211\347H\310H)\f\211\347H\347H) \211\347H\310H) \211\347H\347H)Z\\\306\223\2108\f\240.\207" [m message modified real-m mm b nil 1 5 buffer-modified-p buffer-name t generate-new-buffer " Presentation" fboundp buffer-disable-undo buffer-flush-undo "VM Presentation" vm-presentation-mode vm-menu-support-possible-p vm-menu-mode-menu make-local-variable scroll-in-place set-buffer-file-coding-system binary no-conversion vm-fsfemacs-nonmule-display-8bit-chars vm-multiple-frames-possible-p vm-set-hooks-for-frame-deletion use-local-map vm-toolbar-install-or-uninstall-toolbar vm-menu-install-menus run-hooks vm-presentation-mode-hook remove-specifier face-foreground default face-background 9 0 2 vm-reorder-message-headers ((set-buffer-modified-p modified)) erase-buffer insert-buffer-substring copy-sequence vm-copy 3 vm-find-and-set-text-of 4 mail-buffer vm-presentation-buffer-handle default-enable-multibyte-characters x mode-name major-mode vm-message-pointer vm-mail-buffer vm-use-menus mode-popup-menu buffer-file-type buffer-read-only vm-mode-line-format mode-line-format vm-xemacs-mule-p vm-xemacs-file-coding-p vm-mutable-frames vm-frame-per-folder vm-mode-map vm-presentation-buffer vm-mime-decoded inhibit-read-only vdata] 7]) (byte-code "\300\301M\210\302\300\303\304#\207" [vm-presentation-mode vm-mode put mode-class special] 4) (defalias 'vm-determine-proper-charset #[(beg end) "\212\214 }\210\302\303\215*\207" [beg end done (byte-code "eb\210\204 \203@\n\203@\306\307\310ed\"\"\211\204\311\202> A\2032\312\f! \236A@\206>\313\202>\314 @\"A@\206>\315)\207\316\317\320\321#\203R\322\323\206P\324\"\210\322\323\"\207" [vm-xemacs-mule-p vm-fsfemacs-mule-p enable-multibyte-characters charsets buffer-file-coding-system vm-mime-mule-coding-to-charset-alist delq ascii vm-charsets-in-region "us-ascii" vm-coding-system-name "iso-2022-jp" assoc "unknown" re-search-forward "[^-]" nil t throw done "iso-8859-1" vm-mime-mule-charset-to-charset-alist vm-mime-8bit-composition-charset vm-mime-7bit-composition-charset] 6)] 2]) (defalias 'vm-determine-proper-content-transfer-encoding #[(beg end) "\212\214 }\210\302\303\215*\207" [beg end done (byte-code "eb\210\302\303\304\305#\203\306\307\310\"\210\304\211eb\210`m\204/ \204/\304y\210`Z\311V`\202 \2038\306\307\312\"\210*eb\210\302\313\304\305#\203I\306\307\314\"\210\315\207" [bol toolong re-search-forward "[ ]" nil t throw done "binary" 998 "binary" "[^-]" "8bit" "7bit"] 4)] 2]) (defalias 'vm-mime-types-match #[(type type/subtype) "\304\305\306 \"\203%\305\307 !\n\"\205D\310\224\310\232\205D\nG\310\225\232\205D\304\202D\305\307 !\n\"\205D\310\224\310\232\205D\311 \312\216\305\313\n\310\225#*\310\225\232)\207" [case-fold-search type type/subtype save-match-data-internal t string-match "/" regexp-quote 0 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "/"] 4]) (defalias 'vm-mime-can-display-internal #[(layout &optional deep) "\306!@\307\310 \"\203\311\312!\205'\313 \202'\307\314 \"\203)\311\315!\205'\313 \202'\307\316 \"\203;\311\317!\205'\313 \202'\307\320 \"\203M\311\321!\205'\313 \202'\307\322 \"\203_\311\323!\205'\313 \202'\307\324 \"\203q\311\325!\205'\313 \202'\307\326 \"\203\203\311\327!\205'\313 \202'\307\330 \"\203\261\n\205'\331\332!\204\232\331\333!\205'\334 \206'\331\332!\205' ?\205'\335 \336>\202'\307\337 \"\203\274\340\202'\307\341 \"\203\322\f?\206'\342\343!@\340\"\202'\307\344 \"\203\335\340\202'\307\345 \"\203\346\347!\205' \205'\346\350!\205'\351\352\"\206\374\3532\3542!)\202'\307\355 \"\203&\351\356\"\206\3572\3542!\206\"\3602!)\202'\361)\207" [layout type vm-xemacs-p native-sound-only-on-console deep vm-mime-use-w3-for-text/html vm-mm-layout-type vm-mime-types-match "image/jpeg" vm-image-type-available-p jpeg vm-images-possible-here-p "image/gif" gif "image/png" png "image/tiff" tiff "image/xpm" xpm "image/pbm" pbm "image/xbm" xbm "audio/basic" featurep native-sound nas-sound device-sound-enabled-p device-type (x gtk) "multipart" t "message/external-body" vm-mime-can-display-internal vm-mm-layout-parts "message" "text/html" fboundp w3-region w3-about vm-mime-get-parameter "charset" "us-ascii" vm-mime-charset-internally-displayable-p "text" "charset" "us-ascii" vm-mime-can-convert-charset nil charset] 3]) (defalias 'vm-mime-can-convert #[(type) "\303 \"\206 \303\n\"\207" [type vm-mime-type-converter-alist vm-mime-image-type-converter-alist vm-mime-can-convert-0] 3]) (defalias 'vm-mime-can-convert-0 #[(type alist) "\305\306\307C\"\307\211 \203U \204U\310 @@\f\"\203N\310 @A@\f\"\204N \204>\n\311H @A@\240\210\312\n!\203> @\202N\204N\313 @A@!\203N @ A\211\204 \206Z+\207" [second-best best fake-layout alist type make-vector 1 nil vm-mime-types-match 0 vm-mime-can-display-internal vm-mime-find-external-viewer] 4]) (defalias 'vm-mime-convert-undisplayable-layout #[(layout) "\300\301\215\207" [done (byte-code "\306\307!@!\310\211\311\312\307!@ A@#\210\212\313\314!\315\316 \"\210 q\210\310\317!\210\320ed#\210\321ed \322\211\3107\323 8&\211\324=\204U\311\325\307!@ A@\n$\210\326\327\310\"\210eb\210\330 A@\331\261\210\332c\210\333\310!\210\311\334\307!@ A@#\210\335\336\337 A@C\307!A\"\340\337 A@C\307!A\"\341\342\343\344!\345\346!\347\350!\351\352!\353e\31089\354 98\223*\355`S\31089\354 98\223*\356`\31089\354 98\223*\357d\31089\354 98\223*\360\361 \362\363\364!!\365\322\366&,\207" [layout work-buffer ex ooo selective-display shell-file-name vm-mime-can-convert vm-mm-layout-type nil message "Converting %s to %s..." vm-make-work-buffer " *mime object*" vm-register-message-garbage kill-buffer vm-mime-insert-mime-body vm-mime-transfer-decode-region call-process-region t 2 0 "Conversion from %s to %s failed (exit code %s)" throw done "Content-Type: " "\n" "Content-Transfer-Encoding: binary\n\n" set-buffer-modified-p "Converting %s to %s... done" vm-make-layout type append qtype encoding "binary" id vm-mm-layout-id description vm-mm-layout-description disposition vm-mm-layout-disposition qdisposition vm-mm-layout-qdisposition header-start make-marker header-end body-start body-end cache vm-mime-make-cache-symbol message-symbol vm-mime-make-message-symbol vm-mm-layout-message layout-is-converted unconverted-layout shell-command-switch buffer pos] 32)] 2]) (defalias 'vm-mime-can-convert-charset #[(charset) "\302 \"\207" [charset vm-mime-charset-converter-alist vm-mime-can-convert-charset-0] 3]) (defalias 'vm-mime-can-convert-charset-0 #[(charset alist) "\303 \203(\204(\304 @@\n\"\203!\305 @A@!\203!\306\202 A\211\204 \205. @)\207" [done alist charset nil vm-string-equal-ignore-case vm-mime-charset-internally-displayable-p t] 4]) (defalias 'vm-mime-convert-undisplayable-charset #[(layout) "\306\307\"\310\211\311 !\312\313 \nA@#\210\212\314\315!\316\317 \"\210 q\210\310\320!\210\321ed#\210\322ed \323\211\310>\324\n8&\210\325\326\327\330!!\331\327\330!!\332\333\334\335!\336\337!\340\341!\342\343!\344e\310?@\345 @?\223*\346`S\310?@\345 @?\223*\347`\310?@\345 @?\223*\350d\310?@\345 @?\223*\351\352 \353\354\355!!\356\323\357&\360\361\nA@#\210\362\363\nA@#\210eb\210\364\365\330!@\"\210\364\366\367\370\330!@\371#\372#\210\364\373!\210\374\310!\210\312\375 \nA@#\210,\207" [layout work-buffer ooo charset selective-display shell-file-name vm-mime-get-parameter "charset" nil vm-mime-can-convert-charset message "Converting charset %s to %s..." vm-make-work-buffer " *mime object*" vm-register-message-garbage kill-buffer vm-mime-insert-mime-body vm-mime-transfer-decode-region call-process-region t 2 vm-make-layout type copy-sequence vm-mm-layout-type qtype encoding "binary" id vm-mm-layout-id description vm-mm-layout-description disposition vm-mm-layout-disposition qdisposition vm-mm-layout-qdisposition header-start make-marker header-body body-start body-end cache vm-mime-make-cache-symbol message-symbol vm-mime-make-message-symbol vm-mm-layout-message layout-is-converted onconverted-layout vm-mime-set-parameter "charset" vm-mime-set-qparameter "charset" insert-before-markers "Content-Type: " ";\n " mapconcat identity ";\n " "\n" "Content-Transfer-Encoding: binary\n\n" set-buffer-modified-p "Converting charset %s to %s... done" shell-command-switch buffer pos] 31]) (defalias 'vm-mime-charset-convert-region #[(charset b-start b-end) "p\306\211\211\211\211\307!\310\216\212\311\312!Z q\210\313 #\210\306\314ed\315\211\306\3168&\210\203E\317\315!\210ed\212 q\210b\210\313 \f #\210``\n\\|\210)A@.\207" [ooo work-buffer oldsize end start b nil vm-mime-can-convert-charset ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) vm-make-work-buffer " *mime object*" insert-buffer-substring call-process-region t 2 set-buffer-multibyte charset b-end b-start selective-display shell-file-name shell-command-switch vm-fsfemacs-mule-p] 10]) (defalias 'vm-mime-should-display-button #[(layout dont-honor-content-disposition) "\203 \204\306\n!\203\307\310\311\306\n!@\")\207\f\312\n!@\313 \211\307=\204S\203K \204K\314@ \"\203B\307\202*A\211\204/ \204S\307\202{\313\203z \204z\314@ \"\203q\307\202YA\211\204^ +\207" [vm-honor-mime-content-disposition dont-honor-content-disposition layout case-fold-search vm-auto-displayed-mime-content-types matched vm-mm-layout-disposition t string-match "^attachment$" vm-mm-layout-type nil vm-mime-types-match type i-list vm-auto-displayed-mime-content-type-exceptions] 5]) (defalias 'vm-mime-should-display-internal #[(layout) "\306 !@\307\211\310=\204/\f\203+\n\204+\311\f@ \"\203$\310\202\fA\211\204\n\205Q \307\f\203O\n\204O\311\f@ \"\203H\310\2023\fA\211\2047\n?+\207" [vm-mime-internal-content-types layout matched type i-list vm-mime-internal-content-type-exceptions vm-mm-layout-type nil t vm-mime-types-match] 4]) (defalias 'vm-mime-find-external-viewer #[(type) "\300\301\215\207" [done (byte-code "\305\n\203\306\n@ \"\203\307\310\305\"\210\202\nA\211\204\f\n\203F \204F\306\n@@ \"\203?\n@A\203?\n@A\202!\nA\211\204% *\207" [vm-mime-external-content-type-exceptions matched list type vm-mime-external-content-types-alist nil vm-mime-types-match throw done] 4)] 2]) (fset 'vm-mime-can-display-external 'vm-mime-find-external-viewer) (defalias 'vm-mime-delete-button-maybe #[(extent) "\302\303 \304\"\205\305 !\306 !|\210\307 !)\207" [buffer-read-only extent nil vm-extent-property vm-mime-disposable vm-extent-start-position vm-extent-end-position vm-detach-extent] 3]) (defalias 'vm-decode-mime-message #[nil "\306 \210\203\307!\204\310\311!\210q\210\202! \312>\204!\310\313!\210\314 \210\315 \210\316 \210\n\2046 \2046\310\317!\210 \203H\320\f@!\210 q\210 \210\202_6\203\2156\321=\203y\322\323\322\324\322789:;\3226\325\307 <\"\210\212\326 \210)\3276-\202_\322\211:;\325\307 <\"\210\326 \210*\202_\330\f@!\f@=>\331\332!\210>;\203\247\310\333>\"\210\334=!\203\262\310\335!\210 \204\272\310\336!\210 q\210t\203\316?\337=\203\316\322\340 \210)\f@=\341 deZV\322\211@A\211B\203\366\342 e\322\223\211A\203\366\342 d\322\223@\343\216~\210=\211\344H\345H\206\346!\210\344H\345H)b\210\322\347 CD\350\216\212\351=!\352=\204,\353=!\210\354>!\203<\355>!\210`d|\210\356 \210\357 \210\360 \210.\212q\210\3216)\325\307!<\"\210\361 \210\331\362!\210*\363\322\211\364\365$\207" [vm-mail-buffer major-mode vm-display-using-mime vm-mime-display-function vm-message-pointer vm-presentation-buffer vm-follow-summary-cursor buffer-name error "Folder buffer has been killed." (vm-mode vm-virtual-mode) "No VM folder buffer associated with this buffer" vm-check-for-killed-summary vm-check-for-killed-presentation vm-error-if-folder-empty "MIME display disabled, set vm-display-using-mime non-nil to enable." vm-make-presentation-copy decoded nil t ("multipart") intern vm-preview-current-message buttons vm-mm-layout message "Decoding MIME message..." "Invalid MIME message: %s" vm-mime-plain-message-p "Message needs no decoding." "No presentation buffer." previewing vm-show-current-message buffer-size make-marker ((byte-code "~\210\203 \n}\210 \303\211\223\210\n\303\211\223\210\303\207" [#1=#:vm-sr-clip #2=#:vm-sr-min #3=#:vm-sr-max nil] 3)) 0 3 vm-find-and-set-text-of buffer-modified-p ((set-buffer-modified-p modified)) vm-mm-encoded-header none vm-decode-mime-message-headers vectorp vm-decode-mime-layout vm-energize-urls vm-highlight-headers-maybe vm-energize-headers-and-xfaces vm-update-summary-and-mode-line "Decoding MIME message... done" vm-display (vm-decode-mime-message) (vm-decode-mime-message reading-message) vm-mime-decoded vm-auto-displayed-mime-content-type-exceptions vm-auto-displayed-mime-content-types vm-honor-mime-content-disposition vm-auto-decode-mime-messages vm-preview-lines vm-buffers-needing-display-update m layout vm-system-state #3# #2# #1# modified buffer-read-only] 6 "\ Decode the MIME objects in the current message. The first time this command is run on a message, decoding is done. The second time, buttons for all the objects are displayed instead. The third time, the raw, undecoded data is displayed. If decoding, the decoded objects might be displayed immediately, or buttons might be displayed that you need to activate to view the object. See the documentation for the variables vm-auto-displayed-mime-content-types vm-auto-displayed-mime-content-type-exceptions vm-mime-internal-content-types vm-mime-internal-content-type-exceptions vm-mime-external-content-types-alist to see how to control whether you see buttons or objects. If the variable vm-mime-display-function is set, then its value is called as a function with no arguments, and none of the actions mentioned in the preceding paragraphs are taken. At the time of the call, the current buffer will be the presentation buffer for the folder and a copy of the current message will be in the buffer. The function is expected to make the message `MIME presentable' to the user in whatever manner it sees fit." nil]) (defalias 'vm-decode-mime-layout #[(layout &optional dont-honor-c-d) "\306 \307\211\211\211\211\211:\310\216\311;!\204';\312\313\";\314!b\210\315;!@\227\316 \317\"@<\203\320\321 \"\203\322;\323\"\206M\324;\325\"\211\203\326\f!\211\203\320 \n\"\204\327;\nC\"\210\330;\331\n\332QC\"\210\315;!@\227\316 \333\"@\334;=\"\203\226\307\335\336\217\2044\307\337\340\217\2044\341;!\203\253\307\342\343\217\2044\307\344\345\217\2044\320\346 \"\203\301\307\347\350\217\2044\351;!\210\2024\352 !\203\333\353;!\203\333\2034\354\355\307#\210\2024\356;!\204\357 !\203\360;!\211\203\203\373\354\355\361#\210\362 !\210\2024\203\363\364;!\206\365\"\210\320 \366\"\203+\204&\367;\361\"\210\2024\307\2024\370\2062;!\210\203<\371!\210.\361\207" [extent type-no-subtype type2 type file new-layout buffer-modified-p nil ((set-buffer-modified-p modified)) vectorp vm-extent-property vm-mime-layout vm-extent-start-position vm-mm-layout-type vm-parse "\\([^/]+\\)" vm-mime-types-match "application/octet-stream" vm-mime-get-disposition-parameter "filename" vm-mime-get-parameter "name" vm-mime-default-type-from-filename vm-set-mm-layout-type vm-set-mm-layout-qtype "\"" "\"" "\\([^/]+\\)" vm-mime-should-display-button (byte-code "\302\303P! !\207" [type layout intern "vm-mime-display-button-"] 3) ((void-function)) (byte-code "\302\303P! !\207" [type-no-subtype layout intern "vm-mime-display-button-"] 3) ((void-function)) vm-mime-should-display-internal (byte-code "\302\303P! !\207" [type layout intern "vm-mime-display-internal-"] 3) ((void-function)) (byte-code "\302\303P! !\207" [type-no-subtype layout intern "vm-mime-display-internal-"] 3) ((void-function)) "multipart" (byte-code "\302\303P! !\207" [type layout intern "vm-mime-display-internal-"] 3) ((void-function)) vm-mime-display-internal-multipart/mixed vm-mime-can-display-external vm-mime-display-external-generic vm-set-extent-property vm-mime-disposable vm-mm-layout-is-converted vm-mime-can-convert vm-mime-convert-undisplayable-layout t vm-decode-mime-layout vm-mime-rewrite-failed-button vm-mm-layout-display-error "no external viewer defined for type" "message/external-body" vm-mime-display-button-xxxx vm-mime-display-internal-application/octet-stream vm-mime-delete-button-maybe modified layout vm-infer-mime-types dont-honor-c-d] 7]) (defalias 'vm-mime-display-button-text #[(layout) "\301\302\"\207" [layout vm-mime-display-button-xxxx t] 3]) (defalias 'vm-mime-display-internal-text #[(layout) "\301!\207" [layout vm-mime-display-internal-text/plain] 2]) (defalias 'vm-mime-display-internal-text/html #[(layout) "\302\303!\203\203\304\305\306\217\207\307 \310\"\210\311\312\313 !\"\210\314\207" [vm-mime-use-w3-for-text/html layout fboundp w3-region error-data (byte-code "\306`\307\310\"\206\n\311\306\211\312\313!\210\314!\210\315 \316\f\n#\210\317 \f\n#\210\nb\210\320\321!\210\322\f\nS\"\210\nb\210\323\324!\210\325\326\f\n\327#\210)\nb\210\312\330!\210-\325\207" [layout buffer-size end charset start buffer-read-only nil vm-mime-get-parameter "charset" "us-ascii" message "Inlining text/html, be patient..." vm-mime-insert-mime-body point-marker vm-mime-transfer-decode-region vm-mime-charset-decode-region insert-before-markers "z" w3-region delete-char -1 t remove-text-properties (read-only nil) "Inlining text/html... done" inhibit-read-only] 5) ((error (byte-code "\302\303\304\305 !\"\"\210\306\307\310!\"\210\311\312!\210\313\207" [layout error-data vm-set-mm-layout-display-error format "Inline HTML display failed: %s" prin1-to-string message "%s" vm-mm-layout-display-error sleep-for 2 nil] 6))) vm-set-mm-layout-display-error "Need W3 to inline HTML" message "%s" vm-mm-layout-display-error nil] 4]) (defalias 'vm-mime-display-internal-text/plain #[(layout &optional no-highlighting) "`\306\211\211\307\310\"\206\f\311\312 !\204*\313 !\211\204*\314\315 P\"\210\306\202\316!\210\317 \320 \f#\210 \203A\321 \f#\322 \f#\210\204Q\323 \f\"\210\203{\204{\f Z\324V\211\203j\325\326!\210\327 \f#\210\203z\325\330!\210)\fb\210\331-\207" [layout charset buffer-read-only need-conversion end start nil vm-mime-get-parameter "charset" "us-ascii" vm-mime-charset-internally-displayable-p vm-mime-can-convert-charset vm-set-mm-layout-display-error "Undisplayable charset: " vm-mime-insert-mime-body point-marker vm-mime-transfer-decode-region vm-mime-charset-convert-region vm-mime-charset-decode-region vm-energize-urls-in-message-region 12000 message "Searching for paragraphs to fill..." vm-fill-paragraphs-containing-long-lines "Searching for paragraphs to fill... done" t no-highlighting needmsg] 8]) (defalias 'vm-mime-display-internal-text/enriched #[(layout) "\306\307!\210`\310\211\311\312\313\"\206\314\315\316!\210\317!\210\320 \321 \f#\210\322 \f#\210 b\210\323c\210\324\325\326\217\210\327 \f\"\210\fb\210\315\330!\210-\311\207" [layout charset enriched-verbose buffer-read-only end start require enriched nil t vm-mime-get-parameter "charset" "us-ascii" message "Decoding text/enriched, be patient..." vm-mime-insert-mime-body point-marker vm-mime-transfer-decode-region vm-mime-charset-decode-region "Comment: You should not see this header\n\n" errdata (enriched-decode start end) ((error (byte-code "\302\303\304 \"\"\210\305\306\307!\"\210\310\311!\207" [layout errdata vm-set-mm-layout-display-error format "enriched-decode signaled %s" message "%s" vm-mm-layout-display-error sleep-for 2] 5))) vm-energize-urls-in-message-region "Decoding text/enriched... done"] 7]) (defalias 'vm-mime-display-external-generic #[(layout) "\306\307\310!@!!\311\211 \203\312\202\n\203\312\202\313 \203#\312\202,\n\203+\312\202,\313\314\311\211\211\211\211\211?@ABCDEFG\315!\316N\211?@A?A@@\317A!\203i\320A!\321=\204\347@\203u\322@!\2049H\203\253\311pIJ\323\216\212\324 \211Jq\210\325!\210\326ed#\210\327\314!\210Iq\210`E\330J!\210\331 ,\202\274`E\325!\210\331 \326E #\210\332!\211\206\307\333!\334\335\"\206\323\336\337\"\340\f \"@\341@C!\210K\311\211LMK\342!?K\343\344!\203)\342!\203\344 \203\313\202\n\203 \313\202\345\311\"\210\202)\344 \203\312\202&\n\203%\312\202&\313\314\"\210\346E @\311\347%\210E |\210+G@N\211O\203d\350\351O@\"\203Q\311BO\352O@\"\240\210OA\211O\204E*\353\354\355\356G\357#\"\210GA\203\226\360\361\362\363\352\364!\"\"\311B\203\220\365G@C\"\202\222G$\202\276\360\361\362\366\352\364!\"\"\311P\206\250\367QB\203\272G@\370@QC\202\274G&A\371A\314\"\210\353\372\355\356G\373#\"\210R\203\333\374\375A\"\210\376\315!\316A@D#\210.\f\314\207" [layout vm-xemacs-mule-p vm-xemacs-file-coding-p basename suffix end copy-sequence vm-mime-find-external-viewer vm-mm-layout-type nil binary no-conversion t vm-mm-layout-cache vm-mime-display-external-generic processp process-status run file-exists-p ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) vm-make-work-buffer vm-mime-insert-mime-body vm-mime-transfer-decode-region set-buffer-multibyte insert-buffer-substring point-marker vm-mime-extract-filename-suffix vm-mime-find-filename-suffix-for-type vm-mime-get-disposition-parameter "filename" vm-mime-get-parameter "name" vm-make-tempfile vm-register-message-garbage-files vm-mime-text-type-layout-p fboundp set-buffer-file-coding-system raw-text write-region 0 string-match "\\([^%]\\|^\\)%f" vm-mime-sprintf message "Launching %s..." mapconcat identity " " apply start-process format "view %25s" vm-mime-find-format-for-layout append "view %25s" "sh" " " process-kill-without-query "Launching %s... done" " " vm-register-message-garbage delete-process put cache tempfile process append-file coding-system-for-write coding-system-for-read start buffer-read-only program-list vm-fsfemacs-mule-p target work-buffer buffer-file-type buffer-file-coding-system selective-display vm-mf-attachment-file p shell-file-name shell-command-switch vm-mime-delete-viewer-processes] 13]) (defalias 'vm-mime-display-internal-application/octet-stream #[(layout) "\306!\203\307\310\311\312\313!\"\314\307$\210*\202F\315!b\210\316\317\"\320\321\"?\2050\322\323\"\307\324\f\" \203E\307\211\325\326\217\210)*\327\207" [layout vm-mf-default-action buffer-read-only file default-filename vm-mime-delete-after-saving vectorp nil "save to a file" vm-mime-insert-button vm-mime-sprintf vm-mime-find-format-for-layout #[(layout) "\212\301!)\207" [layout vm-mime-display-internal-application/octet-stream] 2] vm-extent-start-position vm-extent-property vm-mime-layout vm-mime-get-disposition-parameter "filename" vm-mime-get-parameter "name" vm-mime-send-body-to-file (byte-code "\301\302!!\207" [file vm-delete-mime-object expand-file-name] 3) ((error)) t vm-mime-confirm-delete] 6]) (fset 'vm-mime-display-button-application/octet-stream 'vm-mime-display-internal-application/octet-stream) (defalias 'vm-mime-display-button-application #[(layout) "\301\302\"\207" [layout vm-mime-display-button-xxxx nil] 3]) (defalias 'vm-mime-display-button-image #[(layout) "\301\302\"\207" [layout vm-mime-display-button-xxxx t] 3]) (defalias 'vm-mime-display-button-audio #[(layout) "\301\302\"\207" [layout vm-mime-display-button-xxxx nil] 3]) (defalias 'vm-mime-display-button-video #[(layout) "\301\302\"\207" [layout vm-mime-display-button-xxxx t] 3]) (defalias 'vm-mime-display-button-message #[(layout) "\301\302\"\207" [layout vm-mime-display-button-xxxx t] 3]) (defalias 'vm-mime-display-button-multipart #[(layout) "\301\302\"\207" [layout vm-mime-display-button-xxxx t] 3]) (defalias 'vm-mime-display-internal-multipart/mixed #[(layout) "\302!\211\203\303 @!\210 A\211\204)\304\207" [layout part-list vm-mm-layout-parts vm-decode-mime-layout t] 3]) (defalias 'vm-mime-display-internal-multipart/alternative #[(layout) "\306 \304=\203S\306\211\211\211\307!\310 !\237 \203E \204E\311 @!@\312 @\313\"\2046\314\n!\203> @\313\202 A\211\204\f\206N\307!@,\202\316 \315=\203\274\306\211\211\211\211\307!\310 !\237\211\203\251 \204\251\311 @!@\312 @\313\"\203\223\316 @!\203\223 @\313\202\242\204\242\314\n!\203\242 @ A\211\204r\f\206\267\206\267\307!@-\202\316 :\203F @\317=\203F\306\211\310\307!!\237 A\306\211\211\2032 \2042\211\203) \204)\311 @!@\312 @\313\"\204\314\n!\203\"\320@\n\"\203 @\313\202\"\204\" @ A\211\204\360A\211\204\345\f\206@\206@\307!@.\202\316 :\203\316 @\321=\203\316\306\211\310\307!!\237 A\306\211\211\203\275 \204\275\211\203\264 \204\264\311 @!@\312 @\313\"\203\255\316 @!\203\255\320@\n\"\203\244 @\313\202\255\204\255 @ A\211\204zA\211\204o\f\206\313\206\313\307!@.\205\325\322!)\207" [best-layout vm-mime-alternative-select-method type part-list best done nil vm-mm-layout-parts copy-sequence vm-mm-layout-type vm-mime-can-display-internal t vm-mime-find-external-viewer best-internal vm-mime-should-display-internal favorite-internal vm-mime-types-match favorite vm-decode-mime-layout layout second-best favs saved-part-list] 8]) (defalias 'vm-mime-display-button-multipart/parallel #[(layout) "\301\302\303!\"\304\305$\207" [layout vm-mime-insert-button vm-mime-sprintf vm-mime-find-format-for-layout #[(layout) "\212\303\304\305\n\303\"+\207" [vm-auto-displayed-mime-content-type-exceptions vm-auto-displayed-mime-content-types layout t nil vm-decode-mime-layout] 3] t] 5]) (fset 'vm-mime-display-internal-multipart/parallel 'vm-mime-display-internal-multipart/mixed) (defalias 'vm-mime-display-internal-multipart/digest #[(layout) "\306!\203\307\310\311\312!\"\313\307$\210)\202y\314!b\210\315\316\"\317\320\321\322\n! @\211\323H\324H)#!q\210 \"\307#$\203I\325$\326!\"#\327#\"\210)p%\330\216\331\332!\210\333 \210\334 \203g\335 \210\336 \210*\307&\337'\206rp\340(C\341$\210\340\207" [layout buffer-read-only vm-mail-buffer vm-message-pointer message vm-default-folder-type vectorp nil vm-mime-insert-button vm-mime-sprintf vm-mime-find-format-for-layout #[(layout) "\212\301!)\207" [layout vm-mime-display-internal-multipart/digest] 2] vm-extent-start-position vm-extent-property vm-mime-layout generate-new-buffer format "digest from %s/%s" buffer-name 1 0 vm-summary-sprintf vm-mm-layout-message vm-mime-burst-layout ((byte-code "p=\204\301!\203q\210\301\207" [vm-sbe-buffer buffer-name] 2)) vm-goto-new-folder-frame-maybe folder vm-mode vm-should-generate-summary vm-goto-new-summary-frame-maybe vm-summarize vm-display t (vm-mode startup) vm-folder-type ident-header vm-digest-identifier-header-format vm-sbe-buffer buffer-offer-save vm-presentation-buffer this-command] 7]) (fset 'vm-mime-display-button-multipart/digest 'vm-mime-display-internal-multipart/digest) (defalias 'vm-mime-display-button-message/rfc822 #[(layout) "\302\303\304\305 ! \"\306 \302$)\207" [buffer-read-only layout nil vm-mime-insert-button vm-mime-sprintf vm-mime-find-format-for-layout #[(layout) "\212\301!)\207" [layout vm-mime-display-internal-message/rfc822] 2]] 5]) (fset 'vm-mime-display-button-message/news 'vm-mime-display-button-message/rfc822) (defalias 'vm-mime-display-internal-message/rfc822 #[(layout) "\306!\2030`\307\310\311!@!\210\312c\210\212\nb\210\313\307 \f#\210)\214\n`}\210\314 \210)\315!\210*\202\216\316!b\210\317\320\"\321\322\323\324 !$@\211%\325H\326H)#!q\210&\203X\327\307!\210'(\330\307\"\210\331\307!\210p)\332\216\333\334!\210\335 \210\336 \203|\337 \210\340 \210*\307*\341+\206\207p\342,C\343$\210\342\207" [layout buffer-read-only start vm-visible-headers vm-invisible-header-regexp vm-mail-buffer vectorp nil vm-mime-insert-mime-headers vm-mm-layout-parts 10 vm-reorder-message-headers vm-decode-mime-encoded-words vm-mime-display-internal-multipart/mixed vm-extent-start-position vm-extent-property vm-mime-layout generate-new-buffer format "message from %s/%s" buffer-name 1 0 set-buffer-multibyte vm-mime-burst-layout set-buffer-modified-p ((byte-code "p=\204\301!\203q\210\301\207" [vm-sbe-buffer buffer-name] 2)) vm-goto-new-folder-frame-maybe folder vm-mode vm-should-generate-summary vm-goto-new-summary-frame-maybe vm-summarize vm-display t (vm-mode startup) vm-message-pointer message vm-fsfemacs-mule-p vm-default-folder-type vm-folder-type vm-sbe-buffer buffer-offer-save vm-presentation-buffer this-command] 7]) (fset 'vm-mime-display-internal-message/news 'vm-mime-display-internal-message/rfc822) (defalias 'vm-mime-display-internal-message/delivery-status #[(layout) "\301\302\"\207" [layout vm-mime-display-internal-text/plain t] 3]) (defalias 'vm-mime-retrieve-external-body #[(layout) "\306\307\"\227p\211\310\230\203/\306\311\"\211\204\312\313\n\"\210\314 !\204'\312\315 \"\210\316\317\320\217)\202\n\321\230\203d\f\203d\306\322\"\323\305!\203G \202H\324\211:\204T\312\325\n\"\210\326:\327\":\330: \"*\202\n\331\230\204p\n\332\230\205\333\334!\204|\333\335!\205\306\336\"\306\337\"\306\340\"\341;<=\211\204\231\312\342\n\"\210<\204\243\312\343\n\"\210\n\344\230\203\267\345\346\347<\"\350 \";\202\272\351;\n\352\230\203\346\f\203\346\330=\203\327\353<\354=\355 \260\202\335\356<\357 R \"\203\346\360\202=\203\361;\362<\363=\260=\364 =\"\202\f\365;\366<\367 \260\316\370\371\217,*\207" [layout work-buffer access-method name vm-url-retrieval-methods w3-configuration-directory vm-mime-get-parameter "access-type" "local-file" "name" vm-mime-error "%s access type missing `name' parameter" file-exists-p "file %s does not exist" data (insert-file-contents name) ((error (byte-code "\301\302A\"\207" [data signal vm-mime-error] 3))) "url" "url" boundp "~" "%s access type missing `url' parameter" vm-with-string-as-temp-buffer #[nil "eb\210\300\301\302\303#\205\304\305!\210\202\207" [re-search-forward "[ \n]" nil t delete-char -1] 4] vm-mime-fetch-url-with-programs "ftp" "anon-ftp" fboundp efs-file-handler-function ange-ftp-hook-function "name" "directory" "site" nil "%s access type missing `name' parameter" "%s access type missing `site' parameter" "ftp" read-string format "User name to access %s: " user-login-name "anonymous" "ftp" "ftp:////" "/" "/" "ftp:////" "/" t "/" "@" ":" expand-file-name "/" "@" ":" (insert-file-contents name) ((error (byte-code "\301\302\303\304A\"\"\207" [data signal vm-mime-error format "%s"] 5))) url user site directory] 8 "\ Fetch an external body into the current buffer. LAYOUT is the MIME layout struct for the message/external-body object."]) (defalias 'vm-mime-display-internal-message/external-body #[(layout) "\305!@\306\307\"\227\310\211\311\216 \312=\203-\313\f!\203-\314\313\f!\"\211\203-\n\202@\315\316\f!!\315\317\f!!=\203@\320\321\322\217\210)\f\205H\323\f!,\207" [layout work-buffer ob access-method child-layout vm-mm-layout-parts vm-mime-get-parameter "access-type" nil ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) "mail-server" vm-mm-layout-id vm-mime-find-leaf-content-id-in-layout-folder marker-buffer vm-mm-layout-header-start vm-mm-layout-body-start data (byte-code "\212\306\307\310\311!@\"!\211q\210\312\313!\203)\313\n\203\314\202& \203%\314\202&\315\316\"\210\f\317\230\204A\f\320\230\204A\f\321\230\204A\f\322\230\203H\323 !\210\202\234\f\324\230\203\227\325 \326\"\325 \327\",\211-\204c\330\331\f\"\210\332\307\333-\"!\204q\334\335!\210\336\307\337-\"-,#\210\340 \210\341!\210\342.\343 \210)\344\345!\210\346\347!\210*\202\234\330\350\f\"\210\203\306\342\351d\342/0\352 0/\223*\"\210\353e\342/0\352 0/\223*\"\210)\342\207" [child-layout work-buffer vm-xemacs-mule-p vm-xemacs-file-coding-p access-method layout vm-make-multibyte-work-buffer format "*%s mime object*" vm-mm-layout-type fboundp set-buffer-file-coding-system binary no-conversion t "ftp" "anon-ftp" "local-file" "url" vm-mime-retrieve-external-body "mail-server" vm-mime-get-parameter "server" "subject" vm-mime-error "%s access type missing `server' parameter" y-or-n-p "Send message to %s to retrieve external body? " error "Aborted" vm-mail-internal "mail to MIME mail server %s" mail-text vm-mime-insert-mime-body nil vm-mail-send message "Retrieval message sent. Retry viewing this object after the response arrives." sleep-for 2 "unsupported access method: %s" vm-set-mm-layout-body-end make-marker vm-set-mm-layout-body-start subject server vm-confirm-mail-send buffer pos] 6) ((vm-mime-error (byte-code "\303 A\"\210\304\211\207" [layout data child-layout vm-set-mm-layout-display-error nil] 4))) vm-decode-mime-layout] 4]) (defalias 'vm-mime-fetch-url-with-programs #[(url buffer) "\302>\203\303\304\305\217\203\306\202~\212 q\210\307 \210)\310>\203*\303\311\312\217\203*\306\202~\212 q\210\307 \210)\313>\203C\303\314\315\217\203C\306\202~\212 q\210\307 \210)\316>\203\\\303\317\320\217\203\\\306\202~\212 q\210\307 \210)\321>\203u\303\322\323\217\203u\306\202~\212 q\210\307 \210)\324\306=\205\215\212 q\210\325\326 !)?\207" [vm-url-retrieval-methods buffer wget data (byte-code "\303`` \304\305\306\n&\207" [buffer vm-wget-program url vm-run-command-on-region "-q" "-O" "-"] 9) ((error)) t erase-buffer w3m (byte-code "\303`` \304\n&\207" [buffer vm-w3m-program url vm-run-command-on-region "-dump_source"] 7) ((error)) fetch (byte-code "\303`` \304\305\n&\207" [buffer vm-fetch-program url vm-run-command-on-region "-o" "-"] 8) ((error)) curl (byte-code "\303`` \n%\207" [buffer vm-curl-program url vm-run-command-on-region] 6) ((error)) lynx (byte-code "\303`` \304\n&\207" [buffer vm-lynx-program url vm-run-command-on-region "-source"] 7) ((error)) nil zerop buffer-size] 3]) (defalias 'vm-mime-internalize-local-external-bodies #[(layout) "\306\307\310!@\"\203\210\311\312\"\227\313\230\205\251\314\211\216\315!@\314GS\212\316\317\320\310\f!@\"!\211q\210\321!\210)\322\f!b\210\323 \324\325\326\217\210`\323 Z\\b\210`\327\f!W\203\\`\327\f!|\210\202b\330\f\331 \"\210\332!\322!|\210\n\333Y\203~\n\f\nHI\210\nS\211\202k, \205\206\334 !)\207\335\310!@!\203\250\315!\211\205\246\336 @!\210 A\211\204\231\314)\207\314\207" [layout work-buffer i oldsize child-layout p vm-mime-types-match "message/external-body" vm-mm-layout-type vm-mime-get-parameter "access-type" "local-file" nil vm-mm-layout-parts vm-make-multibyte-work-buffer format "*%s mime object*" vm-mime-retrieve-external-body vm-mm-layout-body-start buffer-size data (insert-buffer-substring work-buffer) ((error (byte-code "\301\302A\"\207" [data signal vm-mime-error] 3))) vm-mm-layout-body-end vm-set-mm-layout-body-end point-marker vm-mm-layout-header-start 0 kill-buffer vm-mime-composite-type-p vm-mime-internalize-local-external-bodies] 6]) (defalias 'vm-mime-display-internal-message/partial #[(layout) "\306!\203\307\310\311\312!\"\313\307$)\207\314\315!\210\307\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211@ABCDEFGHIJKH\316H\317\"\320\321\"\211G\204\\\322\323!\210\212\324\325!!q\210\212\214~\210eb\210\326G\307\327#\203\330 \211C\203\331C!F\306F!\203\f\332FG\"\211\203\f\320\n@\333\"\320\n@\334\"\211\203\314\335 !\211\336W\203\263\322\337 \"\210D\203\311D U\204\314\322\340 D#\210\202\314 D\320\n@\341\"\211\204\332\322\342!\210\335\f!\211\336W\203\351\322\343\f\"\210D\203\374\fDV\203\374\322\344\fD#\210\f\n@DKBK\nA\211\204\224\345F!b\210\202k+D\204\322\346!\210\347K\350\"K\351BK\n\203gB\n@@W\203ZBT\211B\n@@U\204PBJBJ\202,\nA\nA\211\202-A\nA\241\210\nA\211\2040BDW\203}BT\211BJBJ\202gJ\203\260\322\352JA\203\216\353\202\217\354\355\356\357\360JA\206\233J\"\237\361#JA\203\255\362J@P\202\256\363$\210\364\365!q\210L\203\276\366\307!\210MN\367K@A@!\210eb\210\370\307\211\371#\210db\210`@K\203\357\372K@A@!\210KA\211K\204\336@b\210\370\307\373\307#\210\374Ned#\210eb\210\375 c\210db\210\376 c\210\377\307!\210\314\201S!\210pO\201T\216\201U\201V!\210\201W \210\201X \203=\201Y \210\201Z \210*\307P\201[Q\206Jp\327RC\201\\$\210.\327\207" [layout buffer-read-only p-list p-total p-number p-id vectorp nil vm-mime-insert-button vm-mime-sprintf vm-mime-find-format-for-layout #[(layout) "\212\301!)\207" [layout vm-mime-display-internal-message/partial] 2] message "Assembling message..." vm-extent-property vm-mime-layout vm-mime-get-parameter "id" vm-mime-error "message/partial message missing id parameter" marker-buffer vm-mm-layout-body-start search-forward t vm-message-at-point vm-mm-layout vm-mime-find-message/partials "id" "total" string-to-int 1 "message/partial specified part total < 1, %d" "message/partial specified total differs between parts, (%d != %d)" "number" "message/partial message missing number parameter" "message/partial part number < 1, %d" "message/partial part number greater than expected number of parts, (%d > %d)" vm-mm-layout-body-end "total number of parts not specified in any message/partial part" sort #[(p q) "@ @W\207" [p q] 2] 0 "part%s %s%s missing" "s" "" mapconcat identity mapcar int-to-string ", " " and " "" generate-new-buffer "assembled message" set-buffer-multibyte vm-mime-insert-mime-headers vm-reorder-message-headers "\\(Encrypted\\|Content-\\|MIME-Version\\|Message-ID\\|Subject\\|X-VM-\\|Status\\)" vm-mime-insert-mime-body ("Subject" "MIME-Version" "Content-" "Message-ID" "Encrypted") vm-munge-message-separators vm-leading-message-separator vm-trailing-message-separator set-buffer-modified-p part-header-pos prev i m total number o id extent work-buffer missing parts vm-fsfemacs-mule-p vm-default-folder-type vm-folder-type vm-sbe-buffer buffer-offer-save vm-presentation-buffer this-command "Assembling message... done" ((byte-code "p=\204\301!\203q\210\301\207" [vm-sbe-buffer buffer-name] 2)) vm-goto-new-folder-frame-maybe folder vm-mode vm-should-generate-summary vm-goto-new-summary-frame-maybe vm-summarize vm-display (vm-mode startup)] 17]) (fset 'vm-mime-display-button-message/partial 'vm-mime-display-internal-message/partial) (defalias 'vm-mime-display-internal-image-xxxx #[(layout image-type name) "\203\n\305 \n #\207\f\203\306\307!\203\310 \n #\207\f\205#\311 \n #\207" [vm-xemacs-p layout image-type name vm-fsfemacs-p vm-mime-display-internal-image-xemacs-xxxx fboundp image-type-available-p vm-mime-display-internal-image-fsfemacs-21-xxxx vm-mime-display-internal-image-fsfemacs-19-xxxx] 4]) (defalias 'vm-mime-display-internal-image-xemacs-xxxx #[(layout image-type name) "\306 \205 \307!\205 \310 \311\211\211\211\211 \311\312 \3116789:;\313\211\203\212\326\327\330\217\210\f\204\331\332?\"\210\333\334C\335\3369#B\334C\335\337\340\341\342?\"#B\311\335\337\340\341\343?\"#BE!8\331\344!\210\3458\346\"\210\347>\203\317\3508\351\"\210\352c\210\353 \354\355#\210\356`\357Z`S\"7\3607\303 #\210\3607\3618#\210\3607\362<#\210\3607\363\364#\210\3607\365\364#\210.\n\364\207" [image-type vm-mime-display-image-strips-incrementally buffer-read-only keymap do-strips incremental vm-images-possible-here-p vm-image-type-available-p point-marker nil make-sparse-keymap vm-mm-layout-cache vm-mime-display-internal-image-xxxx file-readable-p vm-mime-insert-mime-body vm-mime-transfer-decode-region vm-make-tempfile vm-register-folder-garbage-files write-region 0 put "\n" error-data (byte-code "\306\307\310\311!!\312_ \313\n%\314\211\211\211\313*+,\315\316\317#\210,@+,A\211,*\320,!\210`,\203\210\321\314\322\323\324 \204J,A\204P\314\325\202Q\326#BC!-\327c\210\330`\312Z`S\".\331.\332-#\210\331.\333\313#\210\331.\334#\210. B,A\211,\204;\335\f`\".\331.\333\313#\210\331.\336/#\210\331.\337\313#\210\331.\334#\210\212\340+!q\210\341\342!\210*\"\341\343!\210 #\341\344!\2100$\341\345!\210 \237%)\n\203\335\346+\347\"\210\350+\351\"\210.\314\207" [tempfile image-type incremental first start extent-list vm-make-image-strips font-height face-font default 2 t nil define-key button3 vm-menu-popup-image-menu vm-register-message-garbage-files make-glyph vector string :data "+-----+" "|image|" " \n" vm-make-extent vm-set-extent-property begin-glyph start-open keymap make-extent vm-mime-layout vm-mime-disposable process-buffer make-local-variable vm-image-list vm-image-type vm-image-type-name vm-extent-list set-process-filter vm-process-filter-display-some-image-strips set-process-sentinel vm-process-sentinel-display-image-strips image-list process strips g e layout name] 7) ((vm-image-too-small (byte-code "\301\211\207" [do-strips nil] 2)) (error (byte-code "\302\303\"\210\304\211\207" [error-data do-strips message "Failed making image strips: %s" nil] 4))) message "Creating %s glyph..." make-glyph win vector :file string :data format "[Unknown/Bad %s image encoding]" "[%s image]\n" "" set-glyph-baseline 100 (xbm) set-glyph-face vm-monochrome-image " \n" define-key button3 vm-menu-popup-image-menu vm-make-extent 2 vm-set-extent-property begin-glyph vm-mime-layout vm-mime-disposable t start-open selective-display e g tempfile end start layout vm-imagemagick-convert-program vm-mime-use-image-strips name] 11]) (defalias 'vm-mime-display-internal-image-fsfemacs-21-xxxx #[(layout image-type name) "\306 \205\370\307!\205\370\310\211\211\211\211\211 \310\211,-./\3110!\312N\211-\2035\313-!\204\213\314\216\212\315 \211,q\210`/\3160!\210\317 .\3200/.#\210\321 -1\203a\322\202k2\203j\322\202k\3233\324/.-\310\325%\210)\326\3110!\312-#\210)\327-C!\210)n\204\224\330\331\332\"\2104;\205\2345\211\203\246\333\334\335\217\210 \204\365\336\337\340-\257\341c\210\342`S`\343$\210\344\345!\210\3106\346`S`\310\345\310%6\3476\350\345#\210\3476\3510#\210\3476\352\345#\2107\203\364\3476\3538#\210). \345\207" [image-type vm-mime-display-image-strips-incrementally buffer-read-only do-strips incremental selective-display vm-images-possible-here-p vm-image-type-available-p nil vm-mm-layout-cache vm-mime-display-internal-image-xxxx file-readable-p ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) vm-make-work-buffer vm-mime-insert-mime-body point-marker vm-mime-transfer-decode-region vm-make-tempfile binary no-conversion write-region 0 put vm-register-folder-garbage-files insert-char 10 1 error-data (byte-code "\306\307 \310_ \311\n%\311\312\211\211\211\211 !\"\211#@#A\211#\313#!\210`!#\203i\"\204=#A\204F\312\"\314c\210\202I\315c\210\316`\317Z`\" \320 \321\311#\210 B\322c\210#A\211#\2042\316!`\312\311\312% \320 \323$#\210\320 \324\311#\210%\203\217\320 \325&#\210\212\326 !q\210\327\330!\210\f\327\331!\210 \327\332!\210'\327\333!\210 \237)\n\203\275\334 \335\"\210\336 \337\"\210.\312\207" [tempfile image-type incremental overlay-list image-list process vm-make-image-strips frame-char-height 2 t nil vm-register-message-garbage-files "+-----+" "|image|" make-overlay 7 overlay-put evaporate "\n" vm-mime-layout vm-mime-disposable vm-image process-buffer make-local-variable vm-image-list vm-image-type vm-image-type-name vm-overlay-list set-process-filter vm-process-filter-display-some-image-strips set-process-sentinel vm-process-sentinel-display-image-strips o start first strips layout vm-use-menus vm-menu-fsfemacs-image-menu name] 8) ((vm-image-too-small (byte-code "\301\211\207" [do-strips nil] 2)) (error (byte-code "\302\303\"\210\304\211\207" [error-data do-strips message "Failed making image strips: %s" nil] 4))) image :type :file "z" put-text-property display clear-image-cache t make-overlay overlay-put evaporate vm-mime-layout vm-mime-disposable vm-image work-buffer tempfile end start layout vm-xemacs-mule-p vm-xemacs-file-coding-p coding-system-for-write vm-imagemagick-convert-program vm-mime-use-image-strips o vm-use-menus vm-menu-fsfemacs-image-menu] 10]) (defalias 'vm-mime-display-internal-image-fsfemacs-19-xxxx #[(layout image-type name) "\301 \205\302!\205\303\304\215\207" [image-type vm-images-possible-here-p vm-image-type-available-p done (byte-code "\306\211\211\211\211\211\211\203$\307\310 \236A\311\310 \236A\312>\203\313 \202 \314\\\202)\307\310 \236A\307\310 \236A\315\310 \236A\316=\306\211\211\211\211\211\211\211\211\211\211>?@ABCDEFGHIJKLM\317N!\320N\211C\203\263\321C@!\203\263C@JCA@I\322C8@\323C8?\324C8>\325C8>\326 U\203\263 \327 U\203\263\330C8B\202%\331\216\212\332 \211Gq\210J\203\344\321J!\203\344\333J!\210eLd\306OP\334 PO\223*K\202\"`L\335N!\210\336 K\337NLK#\210\340 \211J\nBQ\203\n\341\202R\203\341\202\342S\343LKJ\306\314%\210)\344\345\346\217\211A@@AA@?\326 >\327 @>W\203I>@Z\202N@>\246\347\f!\203Y\f\202]>\fZ? W\203l ?Z\202p? \246\347 !\203{ \202~ Z\347 \322\246!\204\217?S? T\350LKT\351\211\306D\203\242\352\202\243\353\354\355\356@?#\357\355\360@?#\361\362\363\355\364\fT\322\245 \322\245#\365\366&\210@\fT\322\245\322_\\@? \322\245\322_\\?I\204\347\340 \211I\nBQ\203\360\341\202\372R\203\371\341\202\372\342S\343edI\306\314%\210)\367\317N!\320JI@?> \257#\210)\n\203$\370\n!\210)n\204.\371\372\373\"\210\344\374\375\217\210.\351\207" [vm-fsfemacs-mule-p buffer-read-only trash-list vert-pad horiz-pad char-height nil internal-border-width frame-parameters vertical-scroll-bars (t left) vm-fsfemacs-scroll-bar-width 0 background-mode dark vm-mm-layout-cache vm-mime-display-internal-image-xxxx file-exists-p 2 3 4 5 frame-char-width frame-char-height 6 ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) vm-make-work-buffer insert-file-contents make-marker vm-mime-insert-mime-body point-marker vm-mime-transfer-decode-region vm-make-tempfile binary no-conversion write-region error-data (vm-get-image-dimensions origfile) ((error (byte-code "\301\302\"\210\303\304\305\"\207" [error-data message "Failed getting image dimensions: %s" throw done nil] 3))) zerop call-process-region t "-negate" "-matte" "-crop" format "%dx%d+0+0" "-page" "%dx%d+0+0" "-mattecolor" "white" "-frame" "%dx%d+0+0" "-" "-" put vm-register-folder-garbage-files insert-char 10 1 (byte-code "\306\211\211\211\211\211#\203\307#@!\203#\202W\310$%&\311\306'(&\211#@#A\211#\312\313)!\314*$+,-%#\257#\210\315#!\210`#\203\215`\316\317+-\245\"\210\320 `\321\322$\210\323 `\306\311$\324 \325\311#\210 B\326c\210#A\211#\204^\323\f`\306\311\306%\324 \327)#\210\324 \330\311#\210.\203\256\324 \331/#\210\n\203\340\212\332\n!q\210\333\334!\210 \333\335!\210&\333\336!\2100\333\337!\210\237\340\n\341\"\210)\202\350\342 \237&#\210.\306\207" [overlay-list image-list process start i-start o nil file-exists-p vm-make-image-strips t put vm-mm-layout-cache vm-mime-display-internal-image-xxxx vm-register-message-garbage-files insert-char 32 put-text-property face vm-image-placeholder make-overlay overlay-put evaporate "\n" vm-mime-layout vm-mime-disposable vm-image process-buffer make-local-variable vm-image-list vm-image-type vm-image-type-name vm-overlay-list set-process-sentinel vm-process-sentinel-display-image-strips vm-display-image-strips-on-overlay-regions strips workfile char-height image-type hroll vroll layout origfile width height char-width vm-use-menus vm-menu-fsfemacs-image-menu name] 11) ((error (message "Failed making image strips: %s" error-data))) char-width height width dims strips blob reverse vroll hroll work-buffer image workfile origfile end start selective-display layout buffer pos vm-xemacs-mule-p vm-xemacs-file-coding-p coding-system-for-write vm-imagemagick-convert-program] 22)] 2]) (defalias 'vm-get-image-dimensions #[(file) "\305\211\211\306\216\212\307 \211q\210\310 \305\311\305\f%\210eb\210\312\313\305\311#\204(\314\315\316 \"\210\317\320\305\311#\2046\314\321\316 \"\210\322\323\324!!\322\323\325!!* +D\207" [height width work-buffer vm-imagemagick-identify-program file nil ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) vm-make-work-buffer call-process t search-forward " " error "no spaces in 'identify' output: %s" buffer-string re-search-forward "\\b\\([0-9]+\\)x\\([0-9]+\\)\\b" "file dimensions missing from 'identify' output: %s" string-to-int match-string 1 2] 7]) (defalias 'vm-imagemagick-type-indicator-for #[(image-type) "\301=\203\302\207\303=\203\304\207\305=\203\306\207\307=\203 \310\207\311=\203(\312\207\313=\2030\314\207\315=\2038\316\207\317\207" [image-type jpeg "jpeg:" gif "gif:" png "png:" tiff "tiff:" xpm "xpm:" pbm "pbm:" xbm "xbm:" ""] 2]) (defalias 'vm-make-image-strips #[(file min-height image-type async incremental &optional hroll vroll) "\204\306 \204\f\306\307\306\310\n!\307\211\211\211\211\211\211\211\211\211\211)*+,-./0123\3114!\211/@./A@\211-5W\203Q\312\313\307\"\210-5\245)-5\246\211)\245 )\246\306,\314\216\212\315 \211*q\210eb\210,-W\203P\316 +6\203\3407\317\320\321.5\f\\\322 !\203\236\306\202\237\323\\,$\324\320\325.5\f\\\322 !\203\266\306\202\267\323\\#\320\326 #\3274\3301+\331\261\f\2108\203\330\332\3332!\334\261\2102T2\202$\3357\307\211\211\336\320\337.5\f\\\322 !\203\371\306\202\372\323\\,$\340\320\341.5\f\\\322 !\203\306\202\323\\#\342\320\343 #41+P&\f\210+0B0,5\\\f\\\322 !\203<\306\202=\323\\, \306U\203J\306\202L S\202x6\203odb\210\344c\210\345\320\3464\"p9#\347 \350 \"\210\307*6\203| 0\237B\2020\237.\207" [hroll vroll image-type process adjustment remainder 0 nil vm-imagemagick-type-indicator-for vm-get-image-dimensions signal vm-image-too-small ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) vm-make-work-buffer vm-make-tempfile " -crop" format " %dx%d+0+%d" zerop 1 " -page" " %dx%d+0+0" " -roll +%d+%d" " \"" "\" \"" "\"\n" "echo XZXX" int-to-string "XZXX\n" call-process "-crop" "%dx%d+0+%d" "-page" "%dx%d+0+0" "-roll" "+%d+%d" "exit\n" start-process "image strip maker for %s" process-send-string buffer-string quotient work-buffer newfile starty height width dimensions image-list output-type i process-connection-type file min-height async vm-imagemagick-convert-program incremental shell-file-name] 15]) (defalias 'vm-process-sentinel-display-image-strips #[(process what-happened) "\212\306!q\210\307\302!\203+\307\301!\203+ \n \f \310 $\210,\202S\307\311!\203S\312 @!\203S\307\301!\203S   \313 #\210+\314p!)\207" [process vm-image-list vm-extent-list vm-image-type vm-image-type-name type-name process-buffer boundp vm-display-image-strips-on-extents vm-overlay-list overlay-buffer vm-display-image-strips-on-overlay-regions kill-buffer image-type extents strips overlays] 5]) (defalias 'vm-display-image-strips-on-extents #[(strips extents image-type type-name) "\305 \205\\\306 @!\205\\\307\n@!\205\\\310\n@!\205\\\311\312C\313 \314 @#B\312C\313\315\316\317\320\f\"#B\305\313\315\316\317\321\f\"#BE!\322\323\"\210 \324>\203M\325\326\"\210\327\n@\"\210 A\nA\202)\207" [g strips extents image-type type-name nil file-exists-p extent-live-p extent-object make-glyph win vector :file string :data format "[Unknown/Bad %s image encoding]" "[%s image]\n" set-glyph-baseline 50 (xbm) set-glyph-face vm-monochrome-image set-extent-begin-glyph] 10]) (defalias 'vm-display-image-strips-on-overlay-regions #[(strips overlays image-type) "\306\211\211\212\307 @!q\210\310 \214~\210\311\216\306\312\313!\203\"\314\202$\315 \205r\316 @!\205r\317@!\205r\312\313!\203L\320\321\322 @\323\324\257\202X\325\326\327!!\330 @\"\210\331\332@!\317@!\n $\210 AA\202$.\207" [omodified value prop vm-overlay-list buffer-read-only strips nil overlay-buffer buffer-modified-p ((set-buffer-modified-p omodified)) fboundp image-type-available-p display face file-exists-p overlay-end image :type :file :ascent 50 make-face make-symbol "" set-face-stipple put-text-property overlay-start overlays image-type] 7]) (defalias 'vm-process-filter-display-some-image-strips #[(process output) "\306\307\310\311\n#\203\312\313\314\n\"! B\307\225\202\212\315 !q\210\316\305!\203J\316\304!\203J\f \317 %,\202s\316\320!\205s\321@!\205s\316\304!\205s\f\322 $++\207" [i which-strips output process vm-image-list vm-extent-list nil 0 string-match "XZXX\\([0-9]+\\)XZXX" string-to-int match-string 1 process-buffer boundp vm-display-some-image-strips-on-extents vm-overlay-list overlay-buffer vm-display-some-image-strips-on-overlay-regions vm-image-type vm-image-type-name type-name image-type extents strips overlays] 6]) (defalias 'vm-display-some-image-strips-on-extents #[(strips extents image-type type-name which-strips) "\306\211\211 \205q @\f\233 @ \233 \203i\307 @!\203i\310@!\203i\311@!\203i\312\313C\314\315 @#B\313C\314\316\317\320\321\"#B\306\314\316\317\320\322\"#BE!\323\n\324\"\210\325>\203c\326\n\327\"\210\330@\n\"\210 A\211\204\n\306+\207" [eee sss g which-strips strips extents nil file-exists-p extent-live-p extent-object make-glyph win vector :file string :data format "[Unknown/Bad %s image encoding]" "[%s image]\n" set-glyph-baseline 50 (xbm) set-glyph-face vm-monochrome-image set-extent-begin-glyph image-type type-name] 11]) (defalias 'vm-display-some-image-strips-on-overlay-regions #[(strips overlays image-type which-strips) "\306\211\211\211\211\212\307 @!q\210\310 \214~\210\311\216\306\312\313!\203'\314\202)\315\205\206@\233@\233\f\203|\316\f@!\203|\317 @!\203|\312\313!\203c\320\321\322\f@\323\324\257\202o\325\326\327!!\330 \f@\"\210\331\332 @!\317 @!\n $\210A\211\204.\306. \207" [omodified value prop ooo sss vm-overlay-list nil overlay-buffer buffer-modified-p ((set-buffer-modified-p omodified)) fboundp image-type-available-p display face file-exists-p overlay-end image :type :file :ascent 50 make-face make-symbol "" set-face-stipple put-text-property overlay-start buffer-read-only which-strips strips overlays image-type] 8]) (defalias 'vm-mime-display-internal-image/gif #[(layout) "\301\302\303#\207" [layout vm-mime-display-internal-image-xxxx gif "GIF"] 4]) (defalias 'vm-mime-display-internal-image/jpeg #[(layout) "\301\302\303#\207" [layout vm-mime-display-internal-image-xxxx jpeg "JPEG"] 4]) (defalias 'vm-mime-display-internal-image/png #[(layout) "\301\302\303#\207" [layout vm-mime-display-internal-image-xxxx png "PNG"] 4]) (defalias 'vm-mime-display-internal-image/tiff #[(layout) "\301\302\303#\207" [layout vm-mime-display-internal-image-xxxx tiff "TIFF"] 4]) (defalias 'vm-mime-display-internal-image/xpm #[(layout) "\301\302\303#\207" [layout vm-mime-display-internal-image-xxxx xpm "XPM"] 4]) (defalias 'vm-mime-display-internal-image/pbm #[(layout) "\301\302\303#\207" [layout vm-mime-display-internal-image-xxxx pbm "PBM"] 4]) (defalias 'vm-mime-display-internal-image/xbm #[(layout) "\301\302\303#\207" [layout vm-mime-display-internal-image-xxxx xbm "XBM"] 4]) (defalias 'vm-mime-frob-image-xxxx #[(extent &rest convert-args) "\306\307\"\310 !\311N\312\211\312\n:\203\n@\202\n\313\216\212\314 \211q\210\315\316\f\317\312\320\321\322D\"&\323=\211\203Y\324ed\f\312\323%\210\n:\203Q\325\n\233\323\240\210\326\310 !\327\317#\210* \205f\330 \f\"\210\331!-\207" [extent layout blob success tempfile work-buffer vm-extent-property vm-mime-layout vm-mm-layout-cache vm-mime-display-internal-image-xxxx nil ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) vm-make-work-buffer apply call-process t append "-" "-" 0 write-region 5 put vm-image-modified vm-mark-image-tempfile-as-message-garbage-once vm-mime-display-generic vm-imagemagick-convert-program convert-args] 11]) (defalias 'vm-mark-image-tempfile-as-message-garbage-once #[(layout tempfile) "\302!\303N?\205\304 C!\210\305\302!\303\306#\207" [layout tempfile vm-mm-layout-cache vm-message-garbage vm-register-message-garbage-files put t] 4]) (defalias 'vm-mime-rotate-image-left #[(extent) "\301\302\303#\207" [extent vm-mime-frob-image-xxxx "-rotate" "-90"] 4]) (defalias 'vm-mime-rotate-image-right #[(extent) "\301\302\303#\207" [extent vm-mime-frob-image-xxxx "-rotate" "90"] 4]) (defalias 'vm-mime-mirror-image #[(extent) "\301\302\"\207" [extent vm-mime-frob-image-xxxx "-flop"] 3]) (defalias 'vm-mime-brighten-image #[(extent) "\301\302\303#\207" [extent vm-mime-frob-image-xxxx "-modulate" "115"] 4]) (defalias 'vm-mime-dim-image #[(extent) "\301\302\303#\207" [extent vm-mime-frob-image-xxxx "-modulate" "85"] 4]) (defalias 'vm-mime-monochrome-image #[(extent) "\301\302\"\207" [extent vm-mime-frob-image-xxxx "-monochrome"] 3]) (defalias 'vm-mime-revert-image #[(extent) "\304\305\"\306 !\307N\310\n:\203\n@\202\n ;\203$\311\312 \"\210\313\306 !\314\310#\210\315!+\207" [extent layout blob tempfile vm-extent-property vm-mime-layout vm-mm-layout-cache vm-mime-display-internal-image-xxxx nil vm-error-free-call delete-file put vm-image-modified vm-mime-display-generic] 4]) (defalias 'vm-mime-larger-image #[(extent) "\305\306\"\307 !\310N\311\211\n:\203\n@\202\n\312\f!\313\314\315 @\316_!\317\315 A@\316_!Q#,\207" [extent layout blob dims tempfile vm-extent-property vm-mime-layout vm-mm-layout-cache vm-mime-display-internal-image-xxxx nil vm-get-image-dimensions vm-mime-frob-image-xxxx "-scale" int-to-string 2 "x"] 9]) (defalias 'vm-mime-smaller-image #[(extent) "\305\306\"\307 !\310N\311\211\n:\203\n@\202\n\312\f!\313\314\315 @\316\245!\317\315 A@\316\245!Q#,\207" [extent layout blob dims tempfile vm-extent-property vm-mime-layout vm-mm-layout-cache vm-mime-display-internal-image-xxxx nil vm-get-image-dimensions vm-mime-frob-image-xxxx "-scale" int-to-string 2 "x"] 9]) (defalias 'vm-mime-display-internal-audio/basic #[(layout) "\205z\306\307!\204\306\310!\205z\311 \204'\306\307!\205z ?\205z\312 \313>\205z\314 \315\211\211\211\316!\317N\211\204m\320!\210\314 \321 #\210\322 \323\fC!\210\324 \f\315\325%\210\326\316!\317\f#\210 |\210\327\330\331\315\332\fDE\333#\210-\334\207" [vm-xemacs-p native-sound-only-on-console buffer-read-only selective-display tempfile end featurep native-sound nas-sound device-sound-enabled-p device-type (x gtk) point-marker nil vm-mm-layout-cache vm-mime-display-internal-audio/basic vm-mime-insert-mime-body vm-mime-transfer-decode-region vm-make-tempfile vm-register-folder-garbage-files write-region 0 put start-itimer "audioplayer" lambda play-sound-file 1 t start layout] 6]) (defalias 'vm-mime-display-generic #[(layout) "\212\303\304\305\n\303\"+\207" [vm-auto-displayed-mime-content-type-exceptions vm-auto-displayed-mime-content-types layout t nil vm-decode-mime-layout] 3]) (defalias 'vm-mime-display-button-xxxx #[(layout disposable) "\302\303\304!\"\305 $\210\306\207" [layout disposable vm-mime-insert-button vm-mime-sprintf vm-mime-find-format-for-layout vm-mime-display-generic t] 5]) (defalias 'vm-find-layout-extent-at-point #[nil "\203/\306\211\211\211\307`!\211\203, \204,\310\f@\311\"\203%\312\f@\fA\211\204\n,\207 \2058\313`\306\311#\207" [vm-fsfemacs-p found retval o o-list vm-xemacs-p nil overlays-at overlay-get vm-mime-layout t extent-at] 5]) (defalias 'vm-mime-run-display-function-at-point #[(&optional function dispose) "\212\305 \306\211\204\306\202-\n\203 \206\307 \310\" !\202-\f\205- \206+\311 \310\" !+\207" [retval e vm-fsfemacs-p function vm-xemacs-p vm-find-layout-extent-at-point nil overlay-get vm-mime-function extent-property] 4 "\ Display the MIME object at point according to its type." nil]) (defalias 'vm-mime-reader-map-save-file #[nil "\303\212\304\305!) \203\303\211\306\307\217\210))\207" [file vm-mime-delete-after-saving vm-mime-confirm-delete nil vm-mime-run-display-function-at-point vm-mime-send-body-to-file (byte-code "\301\302!!\207" [file vm-delete-mime-object expand-file-name] 3) ((error))] 4 "\ Write the MIME object at point to a file." nil]) (defalias 'vm-mime-reader-map-save-message #[nil "\303\212\304\305!) \205\303\211\306\307\217))\207" [folder vm-mime-delete-after-saving vm-mime-confirm-delete nil vm-mime-run-display-function-at-point vm-mime-send-body-to-folder (vm-delete-mime-object folder) ((error))] 4 "\ Save the MIME object at point to a folder." nil]) (defalias 'vm-mime-reader-map-pipe-to-command #[nil "\300\301!\207" [vm-mime-run-display-function-at-point vm-mime-pipe-body-to-queried-command] 2 "\ Pipe the MIME object at point to a shell command." nil]) (defalias 'vm-mime-reader-map-pipe-to-printer #[nil "\300\301!\207" [vm-mime-run-display-function-at-point vm-mime-send-body-to-printer] 2 "\ Print the MIME object at point." nil]) (defalias 'vm-mime-reader-map-display-using-external-viewer #[nil "\300\301!\207" [vm-mime-run-display-function-at-point vm-mime-display-body-using-external-viewer] 2 "\ Display the MIME object at point with an external viewer." nil]) (defalias 'vm-mime-reader-map-display-using-default #[nil "\300\301!\207" [vm-mime-run-display-function-at-point vm-mime-display-body-as-text] 2 "\ Display the MIME object at point using the `default' face." nil]) (defalias 'vm-mime-reader-map-display-object-as-type #[nil "\300\301!\207" [vm-mime-run-display-function-at-point vm-mime-display-object-as-type] 2 "\ Display the MIME object at point as some other type." nil]) (defalias 'vm-mime-set-image-stamp-for-type #[(e type) "\203 \304 \n\"\207 \205\305 \n\"\207" [vm-xemacs-p e type vm-fsfemacs-p vm-mime-xemacs-set-image-stamp-for-type vm-mime-fsfemacs-set-image-stamp-for-type] 3]) (defalias 'vm-mime-xemacs-set-image-stamp-for-type #[(e type) "\306 \205\202\307\310!\205\202\311 \312V\205\202\311 \313V\314\315\211\211\211\316\317\215\211\205;\2038\320 8\202; A@\211\205E\321 \"\211\205R\322\n!\205R\nJ\211\206h \205h\323\324\310\325\326 \"#\327D!\n\203w\322\n!\204w\n\fL\210\f\205\200\330\f\".\207" [vm-image-directory p sym file glyph tuples vm-images-possible-here-p vm-image-type-available-p xpm device-bitplanes 7 15 (("text" "document-simple.xpm" "document-colorful.xpm") ("image" "mona_stamp-simple.xpm" "mona_stamp-colorful.xpm") ("audio" "audio_stamp-simple.xpm" "audio_stamp-colorful.xpm") ("video" "film-simple.xpm" "film-colorful.xpm") ("message" "message-simple.xpm" "message-colorful.xpm") ("application" "gear-simple.xpm" "gear-colorful.xpm") ("multipart" "stuffed_box-simple.xpm" "stuffed_box-colorful.xpm")) nil done (byte-code "\203\302@@ \"\203\303\304@\"\210\202A\211\204\305\207" [tuples type vm-mime-types-match throw done nil] 4) 2 intern boundp make-glyph vector :file expand-file-name [nothing] set-extent-begin-glyph colorful dir vm-image-obarray e] 8]) (defalias 'vm-mime-fsfemacs-set-image-stamp-for-type #[(e type) "\306 \205z\307\310!\205z\311\312!\203\312 \313V\202\314\315\316\317\320\215\211\2055 \2032\321 8\2025 A@\211\205>\322 \f\"\211\205y\212\316\323#!q\210\324#!b\210\325c\210\326#`S\327#!#\210\330`S`\331\332\333\334\335\336\337\340 \236ABC\341\310\342 \257 $*,\207" [vm-image-directory file tuples colorful dir buffer-read-only vm-images-possible-here-p vm-image-type-available-p xpm fboundp display-planes 15 t (("text" "document-simple.xpm" "document-colorful.xpm") ("image" "mona_stamp-simple.xpm" "mona_stamp-colorful.xpm") ("audio" "audio_stamp-simple.xpm" "audio_stamp-colorful.xpm") ("video" "film-simple.xpm" "film-colorful.xpm") ("message" "message-simple.xpm" "message-colorful.xpm") ("application" "gear-simple.xpm" "gear-colorful.xpm") ("multipart" "stuffed_box-simple.xpm" "stuffed_box-colorful.xpm")) nil done (byte-code "\203\302@@ \"\203\303\304@\"\210\202A\211\204\305\207" [tuples type vm-mime-types-match throw done nil] 4) 2 expand-file-name overlay-buffer overlay-start "x" move-overlay overlay-end put-text-property display image :ascent 80 :color-symbols "background" background-color frame-parameters :type :file e] 14]) (defalias 'vm-mime-insert-button #[(caption action layout disposable) "`\306\306\307\310!\203\311 \203#\310\n\311 C\"\210\202#\312\n\311 \"n\204*\313c\210 \314\261\210\315K\316=\203A\316\f`\306\317\306%\202R\320\f`\"\321 \322\317#\210\321 \323\317#\210\324 \325!!@\"\210\326 \327\330#\210\326 \331\n#\210\326 \330\317#\210\326 \302\n#\210\326 \332\333#\210\326 \334\317#\210\326 \335\"#\210\326 \336##\210\326 \337!#\210\326 \340$#,\207" [vm-mime-reader-map buffer-read-only keymap e start caption nil fboundp set-keymap-parents current-local-map append "\n" "\n" vm-make-extent make-overlay t make-extent set-extent-property start-open end-open vm-mime-set-image-stamp-for-type vm-mm-layout-type vm-set-extent-property mouse-face highlight local-map balloon-help vm-mouse-3-help vm-button vm-mime-disposable face vm-mime-layout vm-mime-function layout disposable vm-mime-button-face action] 6]) (defalias 'vm-mime-rewrite-failed-button #[(button error-string) "\304`\305\n!b\210\306\307 \"c\210\310\n \311\n!#\210`\311\n!|*\207" [buffer-read-only start button error-string nil vm-extent-start-position format "DISPLAY FAILED -- %s\n" vm-set-extent-endpoints vm-extent-end-position] 5]) (defalias 'vm-mime-send-body-to-file #[(layout &optional default-filename file) "\306!\204 \307\310\" \204\311\312\" \203\313 !\314\211\n\314%&\204k \204k\315 \203:\316\317 \"\202;\320\f #&\321&\f\"&\322&!\204T\323\211\202+ \204^\324\325&\"\210\321 &\"&\323\211\203.\212\326\216'\203w\327\202\201(\203\200\327\202\201\330)\331 \211%q\210\314*\332!?+\333\334!\203\320\332!\203\271\334'\203\251\330\202\263(\203\262\330\202\263\335\314\"\210\202\320\334'\203\303\327\202\315(\203\314\327\202\315\330\323\"\210\336!\210\337ed#\210\340&!\203\353\341\342!\204\353\324\343!\210\314,\344ed&\314\211%\210)&.\207" [layout default-filename vm-mime-attachment-save-directory done dir use-dialog-box vectorp vm-extent-property vm-mime-layout vm-mime-get-disposition-parameter "filename" file-name-nondirectory nil read-file-name format "Write MIME body to file (default %s): " "Write MIME body to file: " expand-file-name file-directory-p t error "%s is a directory" ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) binary no-conversion vm-make-work-buffer vm-mime-text-type-layout-p fboundp set-buffer-file-coding-system raw-text vm-mime-insert-mime-body vm-mime-transfer-decode-region file-exists-p y-or-n-p "File exists, overwrite? " "Aborted" write-region work-buffer file vm-xemacs-mule-p vm-xemacs-file-coding-p coding-system-for-read selective-display buffer-file-type jka-compr-compression-info-list] 7]) (defalias 'vm-mime-send-body-to-folder #[(layout &optional default-filename) "\306!\204 \307\310\"\311\312!@\311\313\n\314\"\204)\313\n\315\"\204)\316\f\"\202\256\212\317\216 \2034\320\202>!\203=\320\202>\321 \203F\320\202P!\203O\320\202P\321\"#\322 \211q\210\311$\323%\324\325!\203|\325 \203o\321\202y!\203x\321\202y\326\311\"\210\327!\210\330ed#\210eb\210\331\332!c\210db\210\333\332!c\210\334\311!\210\335\323!\210\323\211&'\336\337!*\340 \210 ,+\207" [layout file type work-buffer default-filename vm-xemacs-mule-p vectorp vm-extent-property vm-mime-layout nil vm-mm-layout-type vm-mime-types-match "message/rfc822" "message/news" vm-mime-send-body-to-file ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) binary no-conversion vm-make-work-buffer t fboundp set-buffer-file-coding-system raw-text vm-mime-insert-mime-body vm-mime-transfer-decode-region vm-leading-message-separator mmdf vm-trailing-message-separator set-buffer-modified-p vm-mode call-interactively vm-save-message vm-quit-no-change vm-xemacs-file-coding-p coding-system-for-write coding-system-for-read selective-display buffer-file-type vm-convert-folder-types vm-check-folder-types] 5]) (defalias 'vm-mime-pipe-body-to-command #[(command layout &optional discard-output) "\306!\204 \307\310\" \203\311\202\312\313!\314\212\315 !\203& q\210\316 \210\317\216\320 \314\nq\210 \2038\321\314!\210\322!\210\323ed#\210 \205K!\324=\325!?\205h\326\"\203\\\327\202f#\203e\327\202f\330BC\325!?$% \331ed&\206{\332\314 \314'(&\210,\315 !\203\253 q\210\333\334 !\204\242\335 \324)C\336$\210\202\253\335\314\211)C\337$\210+\324\207" [layout discard-output work-buffer output-buffer selective-display vm-fsfemacs-mule-p vectorp vm-extent-property vm-mime-layout 0 get-buffer-create "*Shell Command Output*" nil bufferp erase-buffer ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) vm-make-work-buffer set-buffer-multibyte vm-mime-insert-mime-body vm-mime-transfer-decode-region t vm-mime-text-type-layout-p "." binary no-conversion call-process-region "sh" zerop buffer-size vm-display (vm-pipe-message-to-command) (vm-pipe-message-to-command) pop-up-windows vm-mutable-windows vm-xemacs-mule-p vm-xemacs-file-coding-p binary-process-input process-coding-system-alist shell-file-name shell-command-switch command this-command] 9]) (defalias 'vm-mime-pipe-body-to-queried-command #[(layout &optional discard-output) "\303\304!\305 \n#)\207" [command layout discard-output read-string "Pipe object to command: " vm-mime-pipe-body-to-command] 4]) (defalias 'vm-mime-pipe-body-to-queried-command-discard-output #[(layout) "\301\302\"\207" [layout vm-mime-pipe-body-to-queried-command t] 3]) (defalias 'vm-mime-send-body-to-printer #[(layout) "\303\304\305C \244\306#\n\"\207" [vm-print-command vm-print-command-switches layout vm-mime-pipe-body-to-command mapconcat identity " "] 5]) (defalias 'vm-mime-display-body-as-text #[(button) "\304\305\306\307\310\"!\311\312\313#\210\311\310 #\210\314 \315\"\210\316!b\210\317\313\"+\207" [button layout vm-auto-displayed-mime-content-type-exceptions vm-auto-displayed-mime-content-types ("text/plain") nil copy-sequence vm-extent-property vm-mime-layout vm-set-extent-property vm-mime-disposable t vm-set-mm-layout-type ("text/plain" "charset=us-ascii") vm-extent-start-position vm-decode-mime-layout] 6]) (defalias 'vm-mime-display-object-as-type #[(button) "\306\307\310\311\"\307\312\313!\314 !\315\311\n#\210\316\n! \240\210\317!b\210\320\306\"-\207" [button type layout old-layout vm-auto-displayed-mime-content-type-exceptions vm-auto-displayed-mime-content-types t nil vm-extent-property vm-mime-layout read-string "View as MIME type: " copy-sequence vm-set-extent-property vm-mm-layout-type vm-extent-start-position vm-decode-mime-layout] 6]) (defalias 'vm-mime-display-body-using-external-viewer #[(button) "\303\304\"\305\306!b\210\307\310\n!@!\204\311\312\310\n!@\"\202\"\313\n!*\207" [button vm-mime-external-content-type-exceptions layout vm-extent-property vm-mime-layout nil vm-extent-start-position vm-mime-find-external-viewer vm-mm-layout-type error "No viewer defined for type %s" vm-mime-display-external-generic] 4]) (defalias 'vm-mime-convert-body-then-display #[(button) "\302\303\304\"!\211\205 \305\306\307#\210\305\304 #\210\310!b\210\311\307\")\207" [button layout vm-mime-convert-undisplayable-layout vm-extent-property vm-mime-layout vm-set-extent-property vm-mime-disposable t vm-extent-start-position vm-decode-mime-layout] 5]) (defalias 'vm-mime-get-button-layout #[(e) "\300\301!\207" [vm-mime-run-display-function-at-point #[(e) "\301\302\"\207" [e vm-extent-property vm-mime-layout] 3]] 2]) (defalias 'vm-mime-scrub-description #[(string) "\302\212\303\216\304 \211q\210 c\210\305\306\302\307#\203\310\311!\210\202\312 +\207" [work-buffer string nil ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) vm-make-work-buffer re-search-forward "[ \n]+" t replace-match " " buffer-string] 5]) (defalias 'vm-mime-layout-contains-type #[(layout type) "\305\306 !@\"\203\f \207\307 !\310\211\f\2032\n\2042\311\f@\"\211\203+\312\202\fA\211\204 +\207" [type layout done result p vm-mime-types-match vm-mm-layout-type vm-mm-layout-parts nil vm-mime-layout-contains-type t] 5]) (defalias 'vm-mime-find-digests-in-layout #[(layout) "C\304\211\211\2037\305 @!@\306\307\n\"\203! @C\244\2020\310\n!\2030 \311\312 @!!\244 A\211\204 +\207" [layout result layout-type layout-list nil vm-mm-layout-type string-match "^multipart/digest\\|message/\\(rfc822\\|news\\)" vm-mime-composite-type-p copy-sequence vm-mm-layout-parts] 5]) (defalias 'vm-mime-plain-message-p #[(m) "\305 \306\216\307 !\310\311 !\312=\205:\313 !?\206:\314\315\316 !@\"\205:\317 \320\"\206,\321\322\f!)\205:\323\324\325 !\",\207" [save-match-data-internal m case-fold-search o charset match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) vm-mm-layout t vm-mm-encoded-header none vectorp vm-mime-types-match "text/plain" vm-mm-layout-type vm-mime-get-parameter "charset" "us-ascii" vm-mime-default-face-charset-p string-match "^\\(7bit\\|8bit\\|binary\\)$" vm-mm-layout-encoding] 4]) (defalias 'vm-mime-text-type-p #[(type) "\302\303\304 \"\206 \303\305 \")\207" [case-fold-search type t string-match "^text/" "^message/"] 3]) (defalias 'vm-mime-text-type-layout-p #[(layout) "\301\302\303!@\"\206\301\304\303!@\"\207" [layout vm-mime-types-match "text" vm-mm-layout-type "message"] 4]) (defalias 'vm-mime-charset-internally-displayable-p #[(name) "\203\306 \307>\203\310 \n\"\206>\311 !\207 \203+\f\312>\203+\310 \n\"\206>\311 !\207\313 \203;\311 !\206>\310 \"\207\311 !\207" [vm-xemacs-mule-p name vm-mime-mule-charset-to-coding-alist vm-fsfemacs-mule-p window-system vm-mime-charset-font-alist device-type (x gtk mswindows) vm-string-assoc vm-mime-default-face-charset-p (x mac win32 w32) vm-multiple-fonts-possible-p] 3]) (defalias 'vm-mime-default-face-charset-p #[(charset) "\303=\204:\205\304 \"\205\304 \n\"?\207" [vm-mime-default-face-charsets charset vm-mime-default-face-charset-exceptions t vm-string-member] 3]) (defalias 'vm-mime-find-message/partials #[(layout id) "\306\307!\310\307!@!\2032\311!\306\211\203.\312\f@ \"\211\203' \n\244\fA\211\204*\202G\313\314 @\"\203G\315\316\" \232\203G\nB\n*\207" [layout type list o parts id nil vm-mm-layout-type vm-mime-composite-type-p vm-mm-layout-parts vm-mime-find-message/partials vm-mime-types-match "message/partial" vm-mime-get-parameter "id"] 4]) (defalias 'vm-mime-find-leaf-content-id-in-layout-folder #[(layout id) "\212\214\305\211\306\n!\211\307H\310HJ)\211\307H\311H)q\210~\210eb\210\312\f\305\313#\203G\314 \211\203G\315 !\316!\203\317\f\"\211\203db\210\202,\207" [o m layout message id nil vm-mm-layout-message 1 5 9 search-forward t vm-message-at-point vm-mm-layout vectorp vm-mime-find-leaf-content-id] 5]) (defalias 'vm-mime-find-leaf-content-id #[(layout id) "\303\304!\305\306\215*\207" [layout type list nil vm-mm-layout-type done (byte-code "\304\305!@!\203,\306!\307\211\205*\310\n@ \"\211\203\"\311\312 \"\210\nA\211\204\307*\207\313! \232\2058\311\312\"\207" [layout o parts id vm-mime-composite-type-p vm-mm-layout-type vm-mm-layout-parts nil vm-mime-find-leaf-content-id throw done vm-mm-layout-id] 4)] 3]) (defalias 'vm-message-at-point #[nil "`\305 \2036 \2046\n @\211\306H\306H)Y\203/\n @\211\306H\307H)X\203/\310\202 A\211\204\n @+\207" [vm-message-list done point mp message nil 0 5 t] 4]) (defalias 'vm-mime-make-multipart-boundary #[nil "\303\304\305\"\306\307\310!\210 GW\203) \n\311\312\307 \313\"!\nG\246HI\210T\211\202\f *\207" [i boundary vm-mime-base64-alphabet make-string 10 97 0 random t vm-abs lsh -8] 8]) (defalias 'vm-mime-extract-filename-suffix #[(layout) "\304\305\"\206 \306\307\"\310\211\211\203\"\311\312 \"\203\" \313\224\313\225O\n+\207" [layout i suffix filename vm-mime-get-disposition-parameter "filename" vm-mime-get-parameter "name" nil string-match "\\.[^.]+$" 0] 4]) (defalias 'vm-mime-find-filename-suffix-for-type #[(layout) "\305!@\306 \n\203'\307\n@@\f\"\203 \n@A\306\211\202\n\nA\211\204 +\207" [layout vm-mime-attachment-auto-suffix-alist alist suffix type vm-mm-layout-type nil vm-mime-types-match] 4]) (defalias 'vm-mime-attach-file #[(file type &optional charset description no-suggested-filename) "\204\305\306!\210\307 !\203\305\310 \"\210\311 !\204\305\312 \"\210\313 !\204)\305\314 \"\210\n\2032\315\nPC \203:\316 !\317 \f\n \320%\207" [vm-send-using-mime file charset description type error "MIME attachments disabled, set vm-send-using-mime non-nil to enable." file-directory-p "%s is a directory, cannot attach" file-exists-p "No such file: %s" file-readable-p "You don't have permission to read %s" "charset=" vm-mime-scrub-description vm-mime-attach-object nil] 6 "\ Attach a file to a VM composition buffer to be sent along with the message. The file is not inserted into the buffer and MIME encoded until you execute `vm-mail-send' or `vm-mail-send-and-exit'. A visible tag indicating the existence of the attachment is placed in the composition buffer. You can move the attachment around or remove it entirely with normal text editing commands. If you remove the attachment tag, the attachment will not be sent. First argument, FILE, is the name of the file to attach. Second argument, TYPE, is the MIME Content-Type of the file. Optional third argument CHARSET is the character set of the attached document. This argument is only used for text types, and it is ignored for other types. Optional fourth argument DESCRIPTION should be a one line description of the file. Nil means include no description. Optional fifth argument NO-SUGGESTED-FILENAME non-nil means that VM should not add a filename to the Content-Disposition header created for the object. When called interactively all arguments are read from the minibuffer. This command is for attaching files that do not have a MIME header section at the top. For files with MIME headers, you should use vm-mime-attach-mime-file to attach such a file. VM will extract the content type information from the headers in this case and not prompt you for it in the minibuffer." (let ((last-command last-command) (this-command this-command) (charset nil) description file default-type type) (if (null vm-send-using-mime) (error "MIME attachments disabled, set vm-send-using-mime non-nil to enable.")) (setq file (vm-read-file-name "Attach file: " nil nil t) default-type (or (vm-mime-default-type-from-filename file) "application/octet-stream") type (completing-read (format "Content type (default %s): " default-type) vm-mime-type-completion-alist) type (if (> (length type) 0) type default-type)) (if (vm-mime-types-match "text" type) (setq charset (completing-read "Character set (default US-ASCII): " vm-mime-charset-completion-alist) charset (if (> (length charset) 0) charset))) (setq description (read-string "One line description: ")) (if (string-match "^[ ]*$" description) (setq description nil)) (list file type charset description nil))]) (defalias 'vm-mime-attach-mime-file #[(file type) "\204\303\304!\210\305 !\203\303\306 \"\210\307 !\204\303\310 \"\210\311 !\204)\303\312 \"\210\313 \n\314\211\315%\207" [vm-send-using-mime file type error "MIME attachments disabled, set vm-send-using-mime non-nil to enable." file-directory-p "%s is a directory, cannot attach" file-exists-p "No such file: %s" file-readable-p "You don't have permission to read %s" vm-mime-attach-object nil t] 6 "\ Attach a MIME encoded file to a VM composition buffer to be sent along with the message. The file is not inserted into the buffer until you execute vm-mail-send or vm-mail-send-and-exit. A visible tag indicating the existence of the attachment is placed in the composition buffer. You can move the attachment around or remove it entirely with normal text editing commands. If you remove the attachment tag, the attachment will not be sent. The first argument, FILE, is the name of the file to attach. When called interactively the FILE argument is read from the minibuffer. The second argument, TYPE, is the MIME Content-Type of the object. This command is for attaching files that have a MIME header section at the top. For files without MIME headers, you should use vm-mime-attach-file to attach the file." (let ((last-command last-command) (this-command this-command) file type) (if (null vm-send-using-mime) (error "MIME attachments disabled, set vm-send-using-mime non-nil to enable.")) (setq file (vm-read-file-name "Attach file: " nil nil t) default-type (or (vm-mime-default-type-from-filename file) "application/octet-stream") type (completing-read (format "Content type (default %s): " default-type) vm-mime-type-completion-alist) type (if (> (length type) 0) type default-type)) (list file type))]) (defalias 'vm-mime-attach-buffer #[(buffer type &optional charset description) "\305!\211\204 \306\307\"\210 \204\306\310!\210\n\203\311\nPC \203&\312 !\313\f\n \314%\207" [buffer vm-send-using-mime charset description type get-buffer error "Buffer %s does not exist." "MIME attachments disabled, set vm-send-using-mime non-nil to enable." "charset=" vm-mime-scrub-description vm-mime-attach-object nil] 6 "\ Attach a buffer to a VM composition buffer to be sent along with the message. The buffer contents are not inserted into the composition buffer and MIME encoded until you execute `vm-mail-send' or `vm-mail-send-and-exit'. A visible tag indicating the existence of the attachment is placed in the composition buffer. You can move the attachment around or remove it entirely with normal text editing commands. If you remove the attachment tag, the attachment will not be sent. First argument, BUFFER, is the buffer or name of the buffer to attach. Second argument, TYPE, is the MIME Content-Type of the file. Optional third argument CHARSET is the character set of the attached document. This argument is only used for text types, and it is ignored for other types. Optional fourth argument DESCRIPTION should be a one line description of the file. Nil means include no description. When called interactively all arguments are read from the minibuffer. This command is for attaching files that do not have a MIME header section at the top. For files with MIME headers, you should use vm-mime-attach-mime-file to attach such a file. VM will extract the content type information from the headers in this case and not prompt you for it in the minibuffer." (let ((last-command last-command) (this-command this-command) (charset nil) description file default-type type buffer buffer-name) (if (null vm-send-using-mime) (error "MIME attachments disabled, set vm-send-using-mime non-nil to enable.")) (setq buffer-name (read-buffer "Attach buffer: " nil t) default-type (or (vm-mime-default-type-from-filename buffer-name) "application/octet-stream") type (completing-read (format "Content type (default %s): " default-type) vm-mime-type-completion-alist) type (if (> (length type) 0) type default-type)) (if (vm-mime-types-match "text" type) (setq charset (completing-read "Character set (default US-ASCII): " vm-mime-charset-completion-alist) charset (if (> (length charset) 0) charset))) (setq description (read-string "One line description: ")) (if (string-match "^[ ]*$" description) (setq description nil)) (list buffer-name type charset description))]) (defalias 'vm-mime-attach-message #[(message &optional description) "\204\306\307!\210 :\204\310\311! \211\312H\313HJ)\211\211\312H\314H)\212\nq\210 \2030\315\316!\210\317\f \211\320H\312H) \211\320H\321H)#\210eb\210\322\316\211/#\210)0\203Z\3230!0\324\n\325\3160\316%\210\326\327!\210\3301 C\331\332\333\316\334\335p\336E\337\nDEE\"+\207\310\340!\3162\212\nq\210\341 34\342$2eb\210\343c\2105\203\243\344\202\244\3452\346\261\210\347\350`d\"\351\261\210)0\203\277\3230!0\324\n\352\3532\354QC\316\342%\210\326\327!\210\3301\355 !\331\332\333\316\334\335p\356E\337\nDEE\"*\207" [vm-send-using-mime message buf m folder vm-fsfemacs-mule-p error "MIME attachments disabled, set vm-send-using-mime non-nil to enable." generate-new-buffer "*attached message*" 1 5 9 set-buffer-multibyte nil vm-insert-region-from-buffer 0 4 vm-reorder-message-headers vm-mime-scrub-description vm-mime-attach-object "message/rfc822" make-local-variable vm-forward-list forwarding add-hook kill-buffer-hook lambda if eq (current-buffer) kill-buffer "*attached messages*" vm-mime-encapsulate-messages t "MIME-Version: 1.0\n" "Content-Type: multipart/digest; boundary=\"" "Content-Type: multipart/digest;\n boundary=\"" "\"\n" "Content-Transfer-Encoding: " vm-determine-proper-content-transfer-encoding "\n\n" "multipart/digest" "boundary=\"" "\"" copy-sequence (current-buffer) vm-internal-unforwarded-header-regexp description vm-system-state boundary vm-mime-digest-headers vm-mime-digest-discard-header-regexp vm-mime-avoid-folding-content-type] 9 "\ Attach a message from a folder to a VM composition buffer to be sent along with the message. The message is not inserted into the buffer and MIME encoded until you execute `vm-mail-send' or `vm-mail-send-and-exit'. A visible tag indicating the existence of the attachment is placed in the composition buffer. You can move the attachment around or remove it entirely with normal text editing commands. If you remove the attachment tag, the attachment will not be sent. First argument, MESSAGE, is either a VM message struct or a list of message structs. When called interactively a message number is read from the minibuffer. The message will come from the parent folder of this composition. If the composition has no parent, the name of a folder will be read from the minibuffer before the message number is read. If this command is invoked with a prefix argument, the name of a folder is read and that folder is used instead of the parent folder of the composition. If this command is invoked on marked message (via `vm-next-command-uses-marks') the marked messages in the selected folder will be attached as a MIME message digest. Optional second argument DESCRIPTION is a one-line description of the message being attached. This is also read from the minibuffer if the command is run interactively." (let ((last-command last-command) (this-command this-command) (result 0) mlist mp default prompt description folder) (if (null vm-send-using-mime) (error "MIME attachments disabled, set vm-send-using-mime non-nil to enable.")) (cond ((or current-prefix-arg (null vm-mail-buffer) (not (buffer-live-p vm-mail-buffer))) (let ((dir (if vm-folder-directory (expand-file-name vm-folder-directory) default-directory)) file) (let ((last-command last-command) (this-command this-command)) (setq file (read-file-name "Attach message from folder: " dir nil t))) (save-excursion (set-buffer (let ((coding-system-for-read (vm-binary-coding-system))) (find-file-noselect file))) (setq folder (current-buffer)) (vm-mode) (setq mlist (vm-select-marked-or-prefixed-messages 0))))) (t (setq folder vm-mail-buffer) (save-excursion (set-buffer folder) (setq mlist (vm-select-marked-or-prefixed-messages 0))))) (if (null mlist) (save-excursion (set-buffer folder) (setq default (and vm-message-pointer (vm-number-of (car vm-message-pointer))) prompt (if default (format "Yank message number: (default %s) " default) "Yank message number: ")) (while (zerop result) (setq result (read-string prompt)) (and (string= result "") default (setq result default)) (setq result (string-to-int result))) (if (null (setq mp (nthcdr (1- result) vm-message-list))) (error "No such message.")))) (setq description (read-string "Description: ")) (if (string-match "^[ ]*$" description) (setq description nil)) (list (or mlist (car mp)) description))]) (defalias 'vm-mime-attach-object-from-message #[(composition) "\204\306\307!\210\310 \210\311 \210\312\211\211\211\211\211%\313 \211%\205(\314%\315\"\316\216 \2045\306\317!\202\221\212\320 \211q\210\321 !\210\322c\210`\323 !\210\324 \nd#\210eb\210\325\312\211\326#\210\327c\210&q\210\330\f\331 !@\331 !A\332 !\333%\210\334&!\211\203}\335 `\"\210\f\312\336\337\340\312\341\342p\343E\344 DEE\").\207" [vm-send-using-mime w start buf work-buffer layout error "MIME attachments disabled, set vm-send-using-mime non-nil to enable." vm-check-for-killed-summary vm-error-if-folder-empty nil vm-find-layout-extent-at-point vm-extent-property vm-mime-layout ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) "No MIME object found at point." vm-make-work-buffer vm-mime-insert-mime-headers "\n" vm-mime-insert-mime-body vm-mime-transfer-decode-region vm-reorder-message-headers "Content-Transfer-Encoding:" "Content-Transfer-Encoding: binary" vm-mime-attach-object vm-mm-layout-type vm-mm-layout-description t vm-get-buffer-window set-window-point add-hook kill-buffer-hook lambda if eq (current-buffer) kill-buffer e composition] 9 "\ Attach a object from the current message to a VM composition buffer. The object is not inserted into the buffer and MIME encoded until you execute `vm-mail-send' or `vm-mail-send-and-exit'. A visible tag indicating the existence of the object is placed in the composition buffer. You can move the object around or remove it entirely with normal text editing commands. If you remove the object tag, the object will not be sent. First argument COMPOSITION is the buffer into which the object will be inserted. When this function is called interactively COMPOSITION's name will be read from the minibuffer." (let ((last-command last-command) (this-command this-command)) (list (read-buffer "Attach object to buffer: " (vm-find-composition-buffer) t)))]) (defalias 'vm-mime-attach-object #[(object type params description mimed &optional no-suggested-filename) "\306=\204\n\307\310!\210\311\312!\203\307\313!\210\314\211\211\211\211 C45`\212\315 \210`)W\2031\315 \210`5\316\31767\206>\320#\211\321\261\210`S46;\203\2008\204\200\322\3237\"\204d\322\3247\"\203j\325C\202m\326C9\204\203 \327\3306!\331QC\244\202\203\332C:\203\352\33354\334\314$\210\33354\335\336$\210\33354\337;$\210\33354\340\n$\210\33354\3417$\210\33354\3426$\210\33354\343<$\210\33354\344=$\210\33354\345 $\210\33354\3468$\202_>\205_\34754\"\350 7\206\376\351\"\210\352 \353\336#\210\352 \337;#\210\352 \354\336#\210\355 1?\203#\3561\357\360#\210\352 \3611#\210\352 \362\363#\210)\352 \340\n#\210\352 \3417#\210\352 \3426#\210\352 \343<#\210\352 \344=#\210\352 \345 #\210\352 \3468#.\207" [major-mode vm-mime-forward-local-external-bodies fb disposition tag-string e mail-mode error "Command must be used in a VM Mail mode buffer." vm-mail-mode-get-header-contents "MIME-Version" "Can't attach MIME object to already encoded MIME buffer." nil mail-text format "[ATTACHMENT %s, %s]" "MIME file" "\n" vm-mime-types-match "application" "model" "attachment" "inline" "filename=\"" file-name-nondirectory "\"" "unspecified" put-text-property front-sticky rear-nonsticky t face vm-mime-forward-local-refs vm-mime-type vm-mime-object vm-mime-parameters vm-mime-description vm-mime-disposition vm-mime-encoded make-extent vm-mime-set-image-stamp-for-type "text/plain" set-extent-property start-open duplicable make-sparse-keymap define-key button3 vm-menu-popup-attachment-menu keymap balloon-help vm-mouse-3-help end start object type mimed no-suggested-filename vm-fsfemacs-p vm-mime-button-face params description vm-xemacs-p vm-popup-menu-on-mouse-3] 7]) (defalias 'vm-mime-attachment-forward-local-refs-at-point #[nil "\203 \304`\305\"\211@)\207\n\205\306`\307\310#\311 \305\"\211@*\207" [vm-fsfemacs-p fb vm-xemacs-p e get-text-property vm-mime-forward-local-refs extent-at nil vm-mime-type extent-property] 5]) (defalias 'vm-mime-set-attachment-forward-local-refs-at-point #[(val) "\203\305`\306\"\211\n\240)\207 \205!\307`\310\311#\312\f\306\"\211\n\240*\207" [vm-fsfemacs-p fb val vm-xemacs-p e get-text-property vm-mime-forward-local-refs extent-at nil vm-mime-type extent-property] 5]) (defalias 'vm-mime-attachment-disposition-at-point #[nil "\203\304`\305\"\306 @!)\207\n\205#\307`\310\305#\311 \305\"\306 @!*\207" [vm-fsfemacs-p disp vm-xemacs-p e get-text-property vm-mime-disposition intern extent-at nil extent-property] 4]) (defalias 'vm-mime-set-attachment-disposition-at-point #[(sym) "\203\305`\306\"\211\307\n!\240)\207 \205%\310`\311\306#\312\f\306\"\211\307\n!\240*\207" [vm-fsfemacs-p disp sym vm-xemacs-p e get-text-property vm-mime-disposition symbol-name extent-at nil extent-property] 5]) (defalias 'vm-disallow-overlay-endpoint-insertion #[(overlay after start end &optional old-size) "\204\304\207 \305\n!U\203\306\n \307\n!#\207 \307\n!U\205%\306\n\305\n! #\207" [after start overlay end nil overlay-start move-overlay overlay-end] 5]) (defalias 'vm-mime-fake-attachment-overlays #[(start end) "\306\211\306\211\211\212\214}\210 \204c\307\f\310\"\311\f\310\"\211\204*d\312 \203^\313\f\"\314 \315\316#\210\314 \317\320#\210\321!\211\203X\314 \n@\nA@#\210\nAA\211\204G B\f\202.\207" [start o props object pos done nil get-text-property vm-mime-object next-single-property-change t make-overlay overlay-put insert-in-front-hooks (vm-disallow-overlay-endpoint-insertion) insert-behind-hooks (vm-disallow-overlay-endpoint-insertion) text-properties-at o-list end] 7]) (defalias 'vm-mime-default-type-from-filename #[(file) "\305\306 \203# \204#\307 @@\f\"\203\305\202 A\211\204\n \205* @A+\207" [vm-mime-attachment-auto-type-alist done case-fold-search alist file t nil string-match] 4]) (defalias 'vm-remove-mail-mode-header-separator #[nil "\212eb\210\301\302\303Q\304\305#\205\306\224\306\225|\210\305)\207" [mail-header-separator re-search-forward "^" "$" nil t 0] 4]) (defalias 'vm-add-mail-mode-header-separator #[nil "\212eb\210\301\302\303\304#\205\305\304\211#)\207" [mail-header-separator re-search-forward "^$" nil t replace-match] 4]) (defalias 'vm-mime-transfer-encode-region #[(encoding beg end crlf) "\306\205\307\212\nb\210\310\311\307\306#*\307\212\nb\210\310\312\307\306#*\313\314 \"\2034\315\n#\210\316\202\213\f\204C \204C\313\317 \"\204\213\313\320 \"\204\213\313\321 \"\204\213\322=\203e\323\n\307\f$\210\324\202\213\325=\203y\315\n#\210\326\202\213\f\204\201 \203\213\323\n\307\f$\210\327 \227+\207" [vm-mime-composition-armor-from-lines case-fold-search beg armor-dot armor-from encoding t nil re-search-forward "^From " "^\\.\n" string-match "^binary$" vm-mime-base64-encode-region "base64" "^7bit$" "^base64$" "^quoted-printable$" quoted-printable vm-mime-qp-encode-region "quoted-printable" base64 "base64" "quoted-printable" end crlf vm-mime-8bit-text-transfer-encoding] 6]) (defalias 'vm-mime-transfer-encode-layout #[(layout) "\305!\306!@\307 \310 !\2038 \311>\204\"\312\313 \"\203\"\314\f\203V\315\f@!\316\232\2031\317\fA\211\202#\312\320 \"\203G \321>\204G\314\322\323!\324!\325!\326!$\n\306!@\227\232?\205\202\212\214\327!b\210`\330!}\210\331\332\211\333#\210\n\334\232\204\200\335\n\336\261\210\n*,\207" [layout vm-mime-8bit-text-transfer-encoding encoding type list vm-mm-layout-parts vm-mm-layout-type "7bit" vm-mime-composite-type-p (quoted-printable base64) vm-mime-types-match "message/partial" quoted-printable vm-mime-transfer-encode-layout "8bit" "8bit" "message/partial" (quoted-printable base64) vm-mime-transfer-encode-region vm-mm-layout-encoding vm-mm-layout-body-start vm-mm-layout-body-end vm-mime-text-type-layout-p vm-mm-layout-header-start vm-mm-layout-header-end vm-reorder-message-headers nil "Content-Transfer-Encoding:" "7bit" "CONTENT-TRANSFER-ENCODING: " "\n"] 7]) (defalias 'vm-mime-text-description #[(start end) "\212b\210\301\302!\203\303\202\304\305\306\307#\203\310\202\311)\207" [start looking-at "[ \n]*-- \n" ".signature" re-search-forward "^-- \n" nil t "message body and .signature" "message body text"] 4]) (defalias 'vm-delete-mime-object #[(&optional saved-file) "\306 \210\203\307!\204\310\311!\210q\210\202! \312>\204!\310\313!\210\314 \210\315 \210\n\2034\316\317pC\"\210\202'\320 \210\321 @!\203O @\211\322H\323HJ)\204O\310\324!\210 \203V q\210\32567\203\325\211\21189:\326`!\211:\203\3008\204\300:@9\3279\330\"\2116\203\267\33186\3326!\211\323H\333H)=\203\235\310\334!\210;\203\260\335\336\3376\"!\204\260\310\340!\210\3416<\"\210:A\211:\204p8\204\311\310\342!\210\331\325=>\212\343 deZV\325\211?@\211A\203\364\344 e\325\223\211@\203\364\344 d\325\223?\345\216\3469!b\210\347\336\3506\"\261\210`\3519!|.\n\202\256B\205\256\352`\325\330#\211C\204&\310\353!\202\255\354C\330\"\2116\3326!\211\323H\333H)=\203A\310\355!\210;\203T\335\336\3566\"!\204T\310\357!\210\331\325\211=D>\212\343 deZV\325\211EF\211G\203\202\344 e\325\223\211F\203\202\344 d\325\223E\360\216\361C!b\210`D\362\336\3636\"\261\210`\364C!|\210\365CD`#\210.\3416<\"))\207" [vm-mail-buffer major-mode vm-folder-read-only vm-message-pointer message vm-presentation-buffer vm-follow-summary-cursor buffer-name error "Folder buffer has been killed." (vm-mode vm-virtual-mode) "No VM folder buffer associated with this buffer" vm-check-for-killed-summary vm-check-for-killed-presentation signal folder-read-only vm-error-if-folder-empty vm-virtual-message-p 4 1 "Can't edit unmirrored virtual messages." nil overlays-at overlay-get vm-mime-layout t vm-mm-layout-message 16 "Can't delete only MIME object; use vm-delete-message instead." y-or-n-p vm-mime-sprintf "Delete %t? " "Aborted" vm-mime-discard-layout-contents "No MIME button found at point." buffer-size make-marker ((byte-code "~\210\203 \n}\210 \303\211\223\210\n\303\211\223\210\303\207" [#1=#:vm-sr-clip #2=#:vm-sr-min #3=#:vm-sr-max nil] 3)) overlay-start "Deleted " "%d\n" overlay-end extent-at "No MIME button found at point." extent-property "Can't delete only MIME object; use vm-delete-message instead." "Delete %t? " "Aborted" ((byte-code "~\210\203 \n}\210 \303\211\223\210\n\303\211\223\210\303\207" [#4=#:vm-sr-clip #5=#:vm-sr-min #6=#:vm-sr-max nil] 3)) extent-start-position "Deleted " "%d\n" extent-end-position set-extent-endpoints layout vm-fsfemacs-p found o o-list vm-mime-confirm-delete saved-file buffer-read-only inhibit-read-only #3# #2# #1# vm-xemacs-p e opos #6# #5# #4#] 5 "\ Delete the contents of MIME object referred to by the MIME button at point. The MIME object is replaced by a text/plain object that briefly describes what was deleted." nil]) (defalias 'vm-mime-discard-layout-contents #[(layout &optional file) "\212\306\307\310!\307\211 \211@\311H\312H)q\210\313 deZV\307\211AB\211C\203<\314 e\307\223\211B\203<\314 d\307\223A\315\216~\210\316!\203J\317!\320!b\210D\204h\321c\210\322\323 \"\210\324\325\326\"\261\210\202\333\327D\330\261\210\331c\210\332\333!@\261\210\333!A\203\222\333!AE\334\335\336E\337#\261\210)\340c\210\341!\203\254\341!E\342\335\336E\343#\344\261\210)\345!\203\275\346\345!\347\261\210\202\306\350 \351\n\352\261\210\353c\210\354\325\355\"\261\210\356D\357\360 \361\261\210`\362!|\210\363 \306\"\210 \307F\211@\364H\365FI\210* \307F\211@\364H\366FI\210* \306G\211@\367H\370GI\210* \211@\311H\371H)\372=\203\251\307H \211@\365H\311H)b\210\373I \211@\365H\364H\206H\374@!\210@\365H\364H)\306#\203g\311\224\204g\365\224b\210\375J!\203g\376 \377 |\210\202/ \211@\365H\201LH) \211@\365H\364H\206\210\374@!\210@\365H\364H)ZH \211@\365H\311H)b\210J\201M\201NH!\201O\261\210)\201P\310!!\210D\203\345\214\320!\362!}\210\201Q GS\211K\365Y\205\341K KHI\210KS\211K\202\312*\202.\201R\201S\"\210\201T\201U\"\210\201V\201W\"\210\201X\307\"\210\201Y\325\201Z\"\"\210\201[\307\"\210\201\\\307\"\210\201]\307\"\210\201^\307\".\n\207" [layout new-layout newid m buffer-read-only inhibit-read-only t nil vm-mm-layout-message 1 9 buffer-size make-marker ((byte-code "~\210\203 \n}\210 \303\211\223\210\n\303\211\223\210\303\207" [#1=#:vm-sr-clip #2=#:vm-sr-min #3=#:vm-sr-max nil] 3)) vm-mm-layout-is-converted vm-mm-layout-unconverted-layout vm-mm-layout-header-start "Content-Type: text/plain; charset=us-ascii\n\n" vm-set-mm-layout-body-start point-marker "[Deleted " vm-mime-sprintf "%d]\n" "Content-Type: message/external-body; access-type=local-file; name=\"" "\"\n" "Content-Transfer-Encoding: 7bit\n\n" "Content-Type: " vm-mm-layout-qtype "; " mapconcat identity "; " "\n" vm-mm-layout-qdisposition "Content-Disposition: " "; " "\n" vm-mm-layout-id "Content-ID: " "\n" vm-make-message-id "Content-ID: " "\n" "Content-Transfer-Encoding: binary\n\n" "[Deleted " "%d]\n" "[Saved to " " on " system-name "]\n" vm-mm-layout-body-end vm-set-edited-flag-of 3 0 10 4 2 7 From_-with-Content-Length re-search-forward vm-find-and-set-text-of vm-match-header vm-matched-header-start vm-matched-header-end message #3# #2# #1# file p count val length vm-content-length-search-regexp vm-content-length-header i 5 " " int-to-string "\n" vm-mark-for-summary-update vm-mime-parse-entity-safe vm-set-mm-layout-type ("text/x-vm-deleted") vm-set-mm-layout-qtype ("text/x-vm-deleted") vm-set-mm-layout-encoding "7bit" vm-set-mm-layout-id vm-set-mm-layout-description "Deleted %d" vm-set-mm-layout-disposition vm-set-mm-layout-qdisposition vm-set-mm-layout-parts vm-set-mm-layout-display-error] 6]) (defalias 'vm-mime-encode-composition #[nil "\304 \210\305p\306\216\n\203\307 \210\202# \203\310 \210\202#\311\312\313 \"\210\314\211+\207" [mybuffer unwind-needed vm-xemacs-p vm-fsfemacs-p buffer-enable-undo t ((byte-code "\203 :\203\np=\203\303\304 \"\303\207" [unwind-needed buffer-undo-list mybuffer primitive-undo 1] 3)) vm-mime-xemacs-encode-composition vm-mime-fsfemacs-encode-composition error "don't know how to MIME encode composition for %s" emacs-version nil] 3 "\ MIME encode the current mail composition buffer. Attachment tags added to the buffer with vm-mime-attach-file are expanded and the approriate content-type and boundary markup information is added." nil]) (defalias 'vm-mime-xemacs-encode-composition #[nil "\214~\210\306=\204 \307\310!\210\311\312!\203\307\313!\210\314\211\211\315\301!\205! \314\211\211\211\211\211\211\211\211\211\211\211\211\211@ABCDEFGHIJKLM\316 \210\317\314`d#E\320\321E\322#E\323E\324\"\211EG\325U\205\214\326\327!\205\214\330\225\331E@!U\205\214\212\332E@!b\210\326\333!)LE\204\371`d}\210J\203\245\334N\335ed\"\210)\336ed\"AO\203\267\337edP#\210\340ed\"B\341Bed\322$B~\210\342 \210eb\210\343\314\211\344#\210\345c\210J\203\346\346A\347\261\210\202\355\350A\351\261\210\352B\353\261\210\354 \202\360E\203\255E@FL\204\212\331F!\355\356\331F!\322#)=\203$`\331F!|\210\202\217`\331F!}\210J\2039\357N\335ed\"\210)\336ed\"AO\203K\337edP#\210\340ed\"B\341Bed\322$B\360ed\"\361 KBKJ\203u\362A\363\261\210\202|\364A\365\261\210 \203\206\366 \367\261\210\370B\371\261\210~\210\331F!b\210``}\210\372F\373\"\374 !\203\254\375 !\210\202 ;\203\376\372F\377\"!\203\327O\203\306\201W\202\360Q\203\321\201W\202\360\201X\202\360O\203\342\201Y\202\360Q\203\355\201Y\202\360\201W\314\211O\203\375\201Y\202 Q\203\201Y\202 \201WPRST\201Z !\210,\372F\201[\"\211H\203\221\201\\\314\201]\201^D\201_#G\372F\377\"\206G\201`G!@C\372F\201a\"\206Z\201bG!A@\372F\201c\"@I\372F\201d\"\372F\201e\"@\201f\232\204\207\372F\201e\"\202\215\201gG!\202\313\372F\377\"C\372F\201a\"@\372F\201c\"@I\372F\201d\"\372F\201e\"@\201h\232?\205\312\372F\201e\"\201i\201jC\"\203\340H\203\346\201kG!\202\347ed\"B\341BH\203\374\201kG!\202\375ed\322$BM\206 B\201l\232M\202\250\201mC!\203{eH\204Ieb\210\201nC\201o\261\210\201pc\210\201\\\314\201q\201rD\201s#G\322HG\203ZI\204Z\201tG!\210\201uG!BM\206mB\201v\232Mdb\210~\210\n`}\210\202\250G\203\214I\204\214\201tG!\210H\203\234\201uG!B\202\250\201wed\"\210\201xBL\204ceb\210\361 KBKH\203\333\343\314\201y\314#\210\201kG!Sb\210\326\201z!\203\333\201{\325!\210\201|C\261\210@\203U\203\201}\201~\201@\201\200#\201\201\261\210\202\"\201\202\201~\201@\201\203#\201\204\261\210\202\"\201\205c\210 \2030\201\206 \201\207\261\210\f\203X\201\210\f@\261\210\fA\203S\201\211\201~\201\fA\201\212#\261\210\201\213c\210\201\214B\201\215\261\210db\210~\210\212\331F!b\210\326\201\216!\204\204\322V\307\201\217\201\220\"\210))\331F!\332F!|\210\201\221F!\210\326\201\222!\203\244\201{\325!\210EA\211E\204\376L\204\272\326\201\223!\203\301`d|\210\202EJ\203\321\201\224N\335`d\"\210)\336`d\"AO\203\343\337`dP#\210\340`d\"B\341B`d\322$B\360`d\"M\206B\201\225\232M\361 KBKJ\203\201\226A\201\227\261\210\202)\201\230A\201\231\261\210 \2037\201\232 \201\233\261\210\201\234B\201\235\261\210db\210\201\236 D\316 \210\355\201\237\201\240D!\201\241Q\314\322#\203n\201\236 D\316 \210\202Ndb\210L\204\201\201\242D\201\243\261\210K\203\237K@b\210\201\244D\201\245\261\210KA\211K\204\206L\203\360H\203\360\201\246G!b\210\343\314\201\247\314#\210\201\250G!b\210\326\201\251!\203\317\201{\325!\210db\210\375p\201\246G!\201kG!#\210\201\246G!\201kG!|\210eb\210\342 \210\343\314\211\201\252#\210\354 \210\201\253c\210L\204$U\203\201\254\202\201\255D\201\256\261\210\202k\201\257C\261\210@\203fU\203N\201\260\201~\201@\201\261#\201\262\261\210\202k\201\263\201~\201@\201\264#\201\265\261\210\202k\201\266c\210L\203~ \203~\201\267 \201\270\261\210L\203\316\f\203\316\201\271\f@\261\210\fA\203\311U\203\261\201\272\201~\201\fA\201\273#\201\274\261\210\202\316\201\275\201~\201\fA\201\276#\201\277\261\210\202\316\201\300c\210L\203\340\201\301B\201\302\261\202\360M\203\354\201\303c\202\360\201\304c.\207" [major-mode enriched-mode opoint-min object disposition description mail-mode error "Command must be used in a VM Mail mode buffer." vm-mail-mode-get-header-contents "MIME-Version:" "Message is already MIME encoded." nil boundp mail-text extent-list vm-delete #[(e) "\301\302\"\207" [e extent-property vm-mime-object] 3] t sort #[(e1 e2) "\302!\302 !W\207" [e1 e2 extent-end-position] 3] 1 looking-at "[ \n]*" 0 extent-start-position extent-end-position "[ \n]*\\'" "" enriched-encode vm-determine-proper-charset encode-coding-region vm-determine-proper-content-transfer-encoding vm-mime-transfer-encode-region vm-remove-mail-mode-header-separator vm-reorder-message-headers "\\(Content-Type:\\|Content-Transfer-Encoding\\|MIME-Version:\\)" "MIME-Version: 1.0\n" "Content-Type: text/enriched; charset=" "\n" "Content-Type: text/plain; charset=" "\n" "Content-Transfer-Encoding: " "\n" vm-add-mail-mode-header-separator re-search-forward "[ \n]*" "" vm-mime-text-description point-marker "Content-Type: text/enriched; charset=" "\n" "Content-Type: text/plain; charset=" "\n" "Content-Description: " "\n" "Content-Transfer-Encoding: " "\n\n" extent-property vm-mime-object bufferp insert-buffer-substring vm-mime-text-type-p vm-mime-type params charset encoding type boundary e-list e layout already-mimed forward-local-refs enriched boundary-positions just-one 8bit enriched-initial-annotation vm-xemacs-mule-p buffer-file-coding-system vm-xemacs-file-coding-p jka-compr-compression-info-list format-alist coding-system-for-read vm-mime-avoid-folding-content-type debug-on-error no-conversion raw-text binary insert-file-contents vm-mime-encoded vm-mime-parse-entity "text/plain" "charset=us-ascii" "7bit" vm-mm-layout-type vm-mime-parameters vm-mm-layout-qtype vm-mime-forward-local-refs vm-mime-description vm-mime-disposition "unspecified" vm-mm-layout-qdisposition "unspecified" vm-mime-types-match "text" vm-mm-layout-body-start "8bit" vm-mime-composite-type-p "Content-Type: " "\n" "Content-Transfer-Encoding: 7bit\n\n" "text/plain" "charset=us-ascii" "7bit" vm-mime-internalize-local-external-bodies vm-mime-transfer-encode-layout "8bit" vm-mime-base64-encode-region "base64" ("Content-ID:") "\n" delete-char "Content-Type: " "; " mapconcat identity "; " "\n" ";\n " ";\n " "\n" "\n" "Content-Description: " "\n" "Content-Disposition: " ";\n " ";\n " "\n" "Content-Transfer-Encoding: " "\n\n" "\\[ATTACHMENT" "assertion failed: %S" (looking-at "\\[ATTACHMENT") detach-extent "\n" "[ \n]*\\'" "" "8bit" "Content-Type: text/enriched; charset=" "\n" "Content-Type: text/plain; charset=" "\n" "Content-Description: " "\n" "Content-Transfer-Encoding: " "\n\n" vm-mime-make-multipart-boundary "^--" regexp-quote "\\(--\\)?$" "\n--" "--\n" "\n--" "\n" vm-mm-layout-header-start ("Content-ID:") vm-mm-layout-header-end "\n" "\\(Content-Type:\\|MIME-Version:\\|Content-Transfer-Encoding\\)" "MIME-Version: 1.0\n" "Content-Type: multipart/mixed; boundary=\"" "Content-Type: multipart/mixed;\n boundary=\"" "\"\n" "Content-Type: " "; " "; " "\n" ";\n " ";\n " "\n" "\n" "Content-Description: " "\n" "Content-Disposition: " "; " "; " "\n" ";\n " ";\n " "\n" "\n" "Content-Transfer-Encoding: " "\n" "Content-Transfer-Encoding: 8bit\n" "Content-Transfer-Encoding: 7bit\n"] 19]) (defalias 'vm-mime-fsfemacs-encode-composition #[nil "\214~\210\306=\204 \307\310!\210\311\312!\203\307\313!\210\314\211\211\315\301!\205! \314\211\211\211\211\211\211\211\211\211\211\211\211\211\211@ABCDEFGHIJKLMN\316 \210\317`d\"F\320\321F\322#F\323F\324\"\211FG\325U\205\216\326\327!\205\216\330\225\331F@!U\205\216\212\332F@!b\210\326\333!)MF\204`d}\210K\203\247\334O\335ed\"\210)\336ed\"BP\203\321\337BQ\"A@\211R\204\311\307\340B\"\210\202\320\341edR#\210)\342ed\"C\343Ced\322$C~\210\344 \210eb\210\345\314\211\346#\210\347c\210K\203\350B\351\261\210\202\352B\353\261\210\354C\355\261\210\356 \202\331F\203wF@GM\2044\212\331G!\357\360\331G!\322#)=\203>`\331G!|\210\202\326`\331G!}\210K\203c\361O\212db\210\362\363!\210\335e`S\"\210db\210\364\365!\210*\336ed\"BP\203\215\337BQ\"A@\211R\204\205\307\366B\"\210\202\214\341edR#\210)\342ed\"C\343Ced\322$C\367ed\"@\370 LBLK\203\270\371B\372\261\210\202\277\373B\374\261\210@\203\313\375@\376\261\210\377C\201]\261\210~\210\331G!b\210``}\210\201^G\201_\"\314\201`\f!\203+\201a S\322\212\fq\210T\203 \201b\202U\203\201b\202\201cV\201dedS\314\330%\210)S*\f;\203\306\362\201e!\210\365u\210\201f\201^G\201g\"!\203eT\203T\201c\202~U\203_\201c\202~\201h\202~T\203p\201b\202~U\203{\201b\202~\201c\314\211T\203\213\201b\202\231U\203\226\201b\202\231\201c\201iWVXYZ\201j\201k\201l\217\210-\n\203\277\201m\201n\f\"\210db\210\364\365!\210\201^G\201o\"\211I\203N\201p\314\201q\201rD\201s#H\201^G\201g\"\206\371\201tH!@D\201^G\201u\"\206\201vH!AA\201^G\201w\"@J\201^G\201x\"@\201^G\201y\"@\201z\232\204D\201^G\201y\"\202J\201{H!\202\227\201^G\201g\"D\201^G\201u\"A\201^G\201w\"@J\201^G\201x\"@\201^G\201y\"@\201|\232?\205\226\201^G\201y\"\201}\201~D\"\203\336\342I\203\262\201H!\202\263ed\"C\343CI\203\310\201H!\202\311ed\322$CN\206\331C\201\200\232N\202t\201\201D!\203GeI\204eb\210\201\202D\201\203\261\210\201\204c\210\201p\314\201\205\201\206D\201\207#H\322IH\203&J\204&\201\210H!\210\201\211H!CN\2069C\201\212\232Ndb\210~\210 `}\210\202tH\203XJ\204X\201\210H!\210I\203h\201\211H!C\202t\201\213ed\"\210\201\214CM\204/eb\210\370 LBLI\203\245\345\314\201\215\314#\210\201H!Sb\210\326\201\216!\203\245\364\325!\210\201\217D\261\210A\203\347[\203\317\201\220\201\221\201\222A\201\223#\201\224\261\210\202\354\201\225\201\221\201\222A\201\226#\201\227\261\210\202\354\201\230c\210@\203\374\201\231@\201\232\261\210 \203$\201\233 @\261\210 A\203\201\234\201\221\201\222 A\201\235#\261\210\201\236c\210\201\237C\201\240\261\210db\210~\210\212\331G!b\210\326\201\241!\204P\322\\\307\201\242\201\243\"\210))\331G!\332G!|\210\201\244G!\210\326\201\245!\203n\364\325!\210FA\211F\204M\204\204\326\201\246!\203\213`d|\210\202,K\203\233\201\247O\335`d\"\210)\336`d\"BP\203\307\337BQ\"A@\211R\204\277\307\201\250B\"\210\202\306\341`dR#\210)\342`d\"C\343C`d\322$C\367`d\"@N\206\347C\201\251\232N\370 LBLK\203\201\252B\201\253\261\210\202\201\254B\201\255\261\210@\203\201\256@\201\257\261\210\201\260C\201\261\261\210db\210\201\262 E\316 \210\357\201\263\201\264E!\201\265Q\314\322#\203U\201\262 E\316 \210\2025db\210M\204h\201\266E\201\267\261\210L\203\206L@b\210\201\270E\201\271\261\210LA\211L\204mM\203\327I\203\327\201\272H!b\210\345\314\201\273\314#\210\201\274H!b\210\326\201\275!\203\264\364\325!\210db\210\201\276p\201\272H!\201H!#\210\201\272H!\201H!|\210eb\210\344 \210\345\314\211\201\277#\210\356 \210\201\300c\210M\204 [\203\375\201\301\202\201\302E\201\303\261\210\202R\201\304D\261\210A\203M[\2035\201\305\201\221\201\222A\201\306#\201\307\261\210\202R\201\310\201\221\201\222A\201\311#\201\312\261\210\202R\201\313c\210M\203g@\203g\201\314@\201\315\261\210M\203\267 \203\267\201\316 @\261\210 A\203\262[\203\232\201\317\201\221\201\222 A\201\320#\201\321\261\210\202\267\201\322\201\221\201\222 A\201\323#\201\324\261\210\202\267\201\325c\210M\203\311\201\326C\201\327\261\202\331N\203\325\201\330c\202\331\201\331c.\207" [major-mode enriched-mode delete-object opoint-min object disposition mail-mode error "Command must be used in a VM Mail mode buffer." vm-mail-mode-get-header-contents "MIME-Version:" "Message is already MIME encoded." nil boundp mail-text vm-mime-fake-attachment-overlays vm-delete #[(o) "\301\302\"\207" [o overlay-get vm-mime-object] 3] t sort #[(e1 e2) "\302!\302 !W\207" [e1 e2 overlay-end] 3] 1 looking-at "[ \n]*" 0 overlay-start overlay-end "[ \n]*\\'" "" enriched-encode vm-determine-proper-charset vm-string-assoc "Can't find a coding system for charset %s" encode-coding-region vm-determine-proper-content-transfer-encoding vm-mime-transfer-encode-region vm-remove-mail-mode-header-separator vm-reorder-message-headers "\\(Content-Type:\\|Content-Transfer-Encoding\\|MIME-Version:\\)" "MIME-Version: 1.0\n" "Content-Type: text/enriched; charset=" "\n" "Content-Type: text/plain; charset=" "\n" "Content-Transfer-Encoding: " "\n" vm-add-mail-mode-header-separator re-search-forward "[ \n]*" "" insert-before-markers "\n" delete-char -1 "Can't find a coding system for charset %s" vm-mime-text-description point-marker "Content-Type: text/enriched; charset=" "\n" "Content-Type: text/plain; charset=" "\n" "Content-Description: " "\n" "Content-Transfer-Encoding: " description params charset encoding type boundary o-list o layout already-mimed forward-local-refs enriched boundary-positions just-one 8bit enriched-initial-annotation vm-fsfemacs-mule-p vm-mime-mule-charset-to-coding-alist coding-system tempfile vm-xemacs-mule-p vm-xemacs-file-coding-p buffer-file-coding-system file-name-buffer-file-type-alist jka-compr-compression-info-list format-alist coding-system-for-read vm-mime-avoid-folding-content-type debug-on-error "\n\n" overlay-get vm-mime-object bufferp vm-make-tempfile binary no-conversion write-region " " vm-mime-text-type-p vm-mime-type raw-text (("." . t)) data (insert-file-contents object) ((error (byte-code "\203 \303\304 \"\210\n\305\232\204\306\n@\nA\"\210\303\207" [delete-object object data vm-error-free-call delete-file (error "Invalid search bound (wrong side of point)") signal] 3))) vm-error-free-call delete-file vm-mime-encoded vm-mime-parse-entity "text/plain" "charset=us-ascii" "7bit" vm-mm-layout-type vm-mime-parameters vm-mm-layout-qtype vm-mime-forward-local-refs vm-mime-description vm-mime-disposition "unspecified" vm-mm-layout-qdisposition "unspecified" vm-mime-types-match "text" vm-mm-layout-body-start "8bit" vm-mime-composite-type-p "Content-Type: " "\n" "Content-Transfer-Encoding: 7bit\n\n" "text/plain" "charset=us-ascii" "7bit" vm-mime-internalize-local-external-bodies vm-mime-transfer-encode-layout "8bit" vm-mime-base64-encode-region "base64" ("Content-ID:") "\n" "Content-Type: " "; " mapconcat identity "; " "\n" ";\n " ";\n " "\n" "\n" "Content-Description: " "\n" "Content-Disposition: " ";\n " ";\n " "\n" "Content-Transfer-Encoding: " "\n\n" "\\[ATTACHMENT" "assertion failed: %S" (looking-at "\\[ATTACHMENT") delete-overlay "\n" "[ \n]*\\'" "" "Can't find a coding system for charset %s" "8bit" "Content-Type: text/enriched; charset=" "\n" "Content-Type: text/plain; charset=" "\n" "Content-Description: " "\n" "Content-Transfer-Encoding: " "\n\n" vm-mime-make-multipart-boundary "^--" regexp-quote "\\(--\\)?$" "\n--" "--\n" "\n--" "\n" vm-mm-layout-header-start ("Content-ID:") vm-mm-layout-header-end "\n" insert-buffer-substring "\\(Content-Type:\\|MIME-Version:\\|Content-Transfer-Encoding\\)" "MIME-Version: 1.0\n" "Content-Type: multipart/mixed; boundary=\"" "Content-Type: multipart/mixed;\n boundary=\"" "\"\n" "Content-Type: " "; " "; " "\n" ";\n " ";\n " "\n" "\n" "Content-Description: " "\n" "Content-Disposition: " "; " "; " "\n" ";\n " ";\n " "\n" "\n" "Content-Transfer-Encoding: " "\n" "Content-Transfer-Encoding: 8bit\n" "Content-Transfer-Encoding: 7bit\n"] 20]) (defalias 'vm-mime-fragment-composition #[(size) "\214~\210\306\307!\210\310\211\311 \312\310\211\211\211\211\211+,-.\313 \210/\314=\203.\315\2020//\316\317\310\320\321D\322#!\210)eb\210`\323\324!\210`Speb\210`m\204\325\310\325\326\217\210`\327\330 \331\332+!Q!\211.B. q\210\333\334!\210\310\335\n\f #\210eb\210\336\310\211\337#\210\340c\210\3410\203\222\342\202\223\343,+#c\2100\203\251\341\344+\"c\210\202\260\341\345+\"c\210`-B-\346c\210db\2101\347\261\210\335\n #\210+T+\nq\210`\202P+S+\350 \210.22\2032@q\210-@b\210\351+p\"\2102A2-A-\202\341\nq\210)\306\352!\210.\237. \207" [end start master-buffer header-end header-start b message "Fragmenting message..." nil vm-mime-make-multipart-boundary 1 vm-remove-mail-mode-header-separator 8bit quoted-printable vm-mime-transfer-encode-layout vm-mime-parse-entity "text/plain" "charset=us-ascii" "7bit" search-forward "\n\n" (byte-code "\301Z\302]u\210\303 \207" [size 150 2000 beginning-of-line] 2) ((end-of-buffer)) generate-new-buffer buffer-name " part " int-to-string make-local-variable vm-send-using-mime insert-buffer-substring vm-reorder-message-headers "\\(Content-Type:\\|MIME-Version:\\|Content-Transfer-Encoding\\)" "MIME-Version: 1.0\n" format "Content-Type: message/partial; id=%s; number=%d" "Content-Type: message/partial;\n id=%s;\n number=%d" "; total=" ";\n total=" "\nContent-Transfer-Encoding: 7bit\n" "\n" vm-add-mail-mode-header-separator prin1 "Fragmenting message... done" n id total-markers buffers vm-mime-8bit-text-transfer-encoding vm-mime-avoid-folding-content-type mail-header-separator bufs] 11]) (fset 'vm-mime-preview-composition 'vm-preview-composition) (defalias 'vm-mime-composite-type-p #[(type) "\301\302\"\206\301\303\"\206\301\304\"\207" [type vm-mime-types-match "message/rfc822" "message/news" "multipart"] 3]) (defalias 'vm-mime-sprintf #[(format layout) "\305 \"\211\204\306!\210\305 \" \307\nA!*\207" [format vm-mime-compiled-format-alist match layout vm-mime-layout assoc vm-mime-compile-format eval] 4]) (defalias 'vm-mime-compile-format #[(format) "\303\304\" A@B\nB\211)\207" [format return-value vm-mime-compiled-format-alist vm-mime-compile-format-1 0] 3]) (defalias 'vm-mime-compile-format-1 #[(format start-index) "\204\306\307\211\211\211\307\211=>\310\307!\210=\204\314=\204\241\311\312< #\203\241<\313\224H\306\225 \314>\203\200 \315U\203^\316 ?\317\216\320<\313\225\"\211@A@ B@@+\202 \321U\203m\322\323D B\202 \324U\203|\325\323D B\202 \326U\203\213\327\323D B\202 \330U\203\232\331\323D B\202 \332U\203\251\333\323D B\202 \334U\203\270\335\323D B\202 \336U\203\307\337\323D B\202 \340U\203\326\341\323D B\202 \342U\203\345\343\323D B\202 \344U\203\364\345\323D B\202 \346U\203\347\323D B\202 \350U\203\351\323D B\352\224\203:\353\224\203: <\353\224H\354=\203(\355\202)\356 @\357<\353\224\353\225O!E\240\210\202]\353\224\203] <\353\224H\354=\203N\360\202O\361 @\357<\353\224\353\225O!E\240\210\362\224\203r \363 @\357<\364\224\364\225O!E\240\210\365< \306\224O\fBB\202\234 \366=\203\215\367\370=\202\216\371< \206\225\306\306\224O\fBB\n\202=\204\263< "] 3]) (defalias 'vm-mf-event-for-default-action #[(layout) "\300 \203\301\207\302\207" [vm-mouse-support-possible-here-p "Click mouse-2" "Press RETURN"] 1]) (defalias 'vm-mf-default-action #[(layout) "\206=\306\307\n!\204\310\311\n!@!\203# \311\n!@\312\313\215*\2028\314\311\n!@!\211\2037\315\316 A@\"\2028\317)\206=\320\207" [vm-mf-default-action cons layout vm-mime-default-action-string-alist type p nil vm-mime-can-display-internal vm-mime-find-external-viewer vm-mm-layout-type done (byte-code "\203\302@@ \"\203\303\304@A\"\210\202A\211\204\305\207" [p type vm-mime-types-match throw done nil] 4) vm-mime-can-convert format "convert to %s and display" "save to a file" "burn in the raging fires of hell forever"] 3]) (provide 'vm-mime)