;ELC   
;;; Compiled by nelhage@localhost.localdomain on Sun Dec 11 02:47:33 2005
;;; from file /home/nelhage/Desktop/vm-7.19/vm-page.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-page.el' was compiled for Emacs 19 or later"))

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


(defalias 'vm-scroll-forward #[(&optional arg) "\306 \307\211\203 \310!\204 \311\312!\210q\210\202% \f\313>\204% \311\314!\210\315 \210\316 \210\317 \210\205J 7?\205J \3208@!?\205J 9\205J :\321=;\203T ;q\210`\322p!<=<\203j \323\324<!!\204\212 \325p\326\327>\330D$\210\322p!<\331<!dU\203\210 \332<e\"\210\326*\n\204\247 \204\247 	\204\247 :\321=\203 \333d\322p!\"\203 \204\344 \322p!\307?<\331<!?\212\334\335<!!\210)\336\335<!!\210\325\307\211\337>\330D$\210\322p!\211<\203\343 \332<?\"\210*:\321=\203\372 \340 \210\322p!<\332<e\"\210)\341 \210\202\3768p\342\307\211\211\211\211@?AB<CDE:\321=\203#\340 \210\343:\322D!B\344B!A\331B!?\322D!<\334\335<!!\210\336\335<!!\210\325\307\211\345>\330D$\210\322D!\211<\204g\311\346!\210\202p\344<!AZC\332<?\"\210\347 B\350\216\351<!\210FC\\F\352G!\211@\353=\204\211@\354=\204\314H\203\314\355 \210\331<!E@\211I\342H\356H\206\300\357I!\210I\342H\356H)]b\210\360\342!\210\361\342!\210*Dq\210@\354=\203\336\362 \210\202\374@\363=\203\360E8\364 \210)\202\374\365G!\342V\203\374\341 \210.+J?\205\366 \207" [was-invisible needs-decoding mp-changed vm-mail-buffer major-mode vm-display-using-mime vm-follow-summary-cursor nil 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 vm-mime-plain-message-p previewing vm-get-visible-buffer-window vm-frame-totally-visible-p vm-window-frame vm-display t (vm-scroll-forward vm-scroll-backward) reading-message window-start set-window-start pos-visible-in-window-p vm-select-frame window-frame vm-raise-frame (vm-scroll-forward vm-scroll-backward) vm-show-current-message vm-howl-if-eom 0 reading window-height (vm-scroll-forward vm-scroll-backward) "current window configuration hides the message buffer." selected-window ((select-window old-w)) select-window vm-scroll-forward-internal tryagain next-message vm-narrow-to-page 3 vm-find-and-set-text-of sit-for scroll-up vm-next-message end-of-message vm-emit-eom-blurb prefix-numeric-value vm-display-startup-message vm-mime-decoded vm-message-pointer vm-auto-decode-mime-messages vm-system-state vm-presentation-buffer w point this-command old-w-start result old-w-height old-w h-diff msg-buf vmp next-screen-context-lines arg vm-honor-page-delimiters message vm-startup-message-displayed] 9 "\
Scroll forward a screenful of text.
If the current message is being previewed, the message body is revealed.
If at the end of the current message, moves to the next message iff the
value of vm-auto-next-message is non-nil.
Prefix argument N means scroll forward N lines." "P"])
(defalias 'vm-scroll-forward-internal #[(arg) "\303!\304 \305\306\307\217*\207" [arg w direction prefix-numeric-value selected-window error-data (byte-code "\301!\210\302\207" [arg scroll-up nil] 2) ((error (byte-code "\306W\203  e	@\211\306H\307H\206 \310\n!\210\n\306H\307H)V\2044 \306Y\203e d	@\211\306H\311H)U\204e \312 \210\306Y\203H \313\314!\210\315`\"\210\316\207n\204W \212\317 \210\320\f!)\204[ \313\321!\210\317 \210\315`\"\210\322\207@\323=\205y \203s \324\207\325`\"\210\326\207" [direction vm-message-pointer message w page-delimiter error-data 0 3 vm-find-and-set-text-of 4 vm-widen-page forward-page 1 set-window-start nil beginning-of-line looking-at -1 tryagain end-of-buffer next-message set-window-point end-of-message vm-auto-next-message] 4)))] 3])
(defalias 'vm-howl-if-eom #[nil "\303p!\211\205 \212\304\213)\205 	@\211\305H\306H)dU\205 \307 )\207" [w vm-message-pointer message get-buffer-window ((byte-code "\300\301\302\217\207" [nil (byte-code "\302\303	!\210\212\304\213\210*\305\207" [next-screen-context-lines w 0 select-window ((byte-code "\301\302\301!\210)\301\207" [scroll-in-place-replace-original nil scroll-up] 2)) nil] 2) ((error t))] 3)) 0 4 vm-emit-eom-blurb] 3])
(defalias 'vm-emit-eom-blurb #[nil "\305\306\304\n;\203 \307\n\310@!\"\203 \311\202 \312@\211\313H\314H)\315\316@\"#*\207" [case-fold-search vm-summary-uninteresting-senders-arrow vm-summary-uninteresting-senders vm-message-pointer message "" nil string-match vm-su-from "End of message %s to %s" "End of message %s from %s" 1 0 vm-summary-sprintf "%F"] 7])
(defalias 'vm-scroll-backward #[(&optional arg) "\301\204	 \302\202) :\203 @[C\202) \247\203 [\202) 9\203( \303\202) !\207" [arg vm-scroll-forward - nil] 2 "\
Scroll backward a screenful of text.
Prefix N scrolls backward N lines." "P"])
(defalias 'vm-scroll-forward-one-line #[(&optional count) "\301!\207" [count vm-scroll-forward] 2 "\
Scroll forward one line.
Prefix arg N means scroll forward N lines.
Negative arg means scroll backward." "p"])
(defalias 'vm-scroll-backward-one-line #[(&optional count) "\301[!\207" [count vm-scroll-forward] 2 "\
Scroll backward one line.
Prefix arg N means scroll backward N lines.
Negative arg means scroll forward." "p"])
(defalias 'vm-highlight-headers #[nil "\203 	\203 \306\307!\210\310\n\206 \307ed\311#*\207\203S \310\312\313ped$\210eb\210\314 \205Q \314\n!\203J \315\316 \317 \"\320\321#\210\320\322\311#\210\323 b\210\202+ )\207\324\325!\205\321 \310\211\326 \211@\211\203\203 \327@\322\"\203z \330@!\210A\211\204k A\211\203\244 \327@\322\"\203\233 \330@!\210A\211\204\214 eb\210\314 \205\320 \314\n!\203\311 \331\316 \317 \"\325\321#\210\325\322\311#\210\323 b\210\202\247 *\207" [vm-xemacs-p vm-use-lucid-highlighting vm-highlighted-header-regexp highlight-headers-regexp highlight-headers-mark-urls e require highlight-headers nil t map-extents #[(e ignore) "\301\302\"\203 \303!\210\304\207" [e extent-property vm-highlight delete-extent nil] 3] vm-match-header make-extent vm-matched-header-contents-start vm-matched-header-contents-end set-extent-property face vm-highlight vm-matched-header-end fboundp overlay-put overlay-lists overlay-get delete-overlay make-overlay vm-highlighted-header-face p o-lists] 6])
(defalias 'vm-energize-urls #[nil "\306\211\211\203% deZV\203% ee\307\245\\Bd\307\245ZdBD\202* edBC\f\203\322 \306\310\311ped$\210\n\205\316 \n@@b\210\312.\n@A\313#\203\306 \314\211\224\204Y 	T\211\202N \315	\224	\225\"\316\317\313#\210/\203r \316\320/#\2100\203@ \321 \212	\224b\210\322\323!)\203\211 \324\202\212 \3251\326\327\330#\2102\203\242 \326\3311#\210\326\332\333#\210\316\334\313#\210\316\335#\210\316\336\337#\210\316\340\313#\210*\202@ \nA\211\204; \306)\202\3033\205\303\341\342!\205\303\306\211\211456\343 \2116@\2114\203\n\3444@\317\"\203\3454@!\2104A\2114\204\362 6A\2114\203+\3444@\317\"\203\"\3454@!\2104A\2114\204\n\205\302\n@@b\210\312.\n@A\313#\203\272\314\211\224\204M	T\211\202B\346	\224	\225\"5\3425\317\313#\210/\203i\3425\320/#\2100\2034\321 \212	\224b\210\322\347!)\203\200\324\202\201\3251\3425\334\313#\210\3425\350\340#\210\351 \2442\203\247\326\3521#\210\326\353\354#\210\3425\355#\210*\2024\nA\211\204/\306++\207" [vm-url-search-limit n search-pairs search-limit vm-xemacs-p e nil 2 map-extents #[(e ignore) "\301\302\"\203 \303!\210\304\207" [e extent-property vm-url delete-extent nil] 3] re-search-forward t 1 make-extent set-extent-property vm-url face make-sparse-keymap looking-at "mailto:" vm-menu-popup-mailto-url-browser-menu vm-menu-popup-url-browser-menu define-key button2 vm-mouse-send-url-at-event button3 "" #[nil "\300`!\207" [vm-mouse-send-url-at-position] 2 nil nil] vm-button keymap balloon-help vm-url-help highlight fboundp overlay-put overlay-lists overlay-get delete-overlay make-overlay "mailto:" mouse-face current-local-map [mouse-3] "" #[nil "\300`!\207" [vm-mouse-send-url-at-position] 2 nil nil] local-map vm-url-regexp vm-highlight-url-face vm-url-browser popup-function vm-popup-menu-on-mouse-3 vm-fsfemacs-p p o o-lists] 6])
(defalias 'vm-energize-headers #[nil "\203\207 \306\307\211\211\211\310\311ped$\210\205\205 eb\210@@@A@J\312\f\307\313#\203} \212\314\224b\210\315 \210)\316\317 \320 \"\321	\322\313#\210\323 \324\n\325\326\307\327\330\331DDF#\210'\203h \324\n\332\326\307\333\330\331DDF#\210\321	\302\n#\210\321	\334\335#\210\321	\336\313#\210\202& A\211\204 \307-\207(\205/\337\340!\205/\341\307\211\211\211\211)*+\342 \211+@\211)\203\305 \343)@\322\"\203\274 \344)@!\210)A\211)\204\255 +A\211)\203\346 \343)@\322\"\203\335 \344)@!\210)A\211)\204\316 \205-eb\210@@@A@J\312\f\307\313#\203%\314\225b\210\212\314\224b\210\315 \210)\345\317 \320 \"*\340*\322#\210\340*\346\336#\210\202\367 A\211\204\352 \307.\207" [vm-xemacs-p e keymap menu regexp search-tuples (("^From:" vm-menu-author-menu) ("^Subject:" vm-menu-subject-menu)) nil map-extents #[(e ignore) "\301\302\"\203 \303!\210\304\207" [e extent-property vm-header delete-extent nil] 3] re-search-forward t 0 vm-match-header make-extent vm-matched-header-contents-start vm-matched-header-contents-end set-extent-property vm-header make-sparse-keymap define-key button2 lambda (interactive) popup-menu quote button3 (interactive) balloon-help vm-mouse-3-help highlight fboundp overlay-put (("^From:" vm-menu-fsfemacs-author-menu) ("^Subject:" vm-menu-fsfemacs-subject-menu)) overlay-lists overlay-get delete-overlay make-overlay mouse-face vm-popup-menu-on-mouse-3 vm-fsfemacs-p p o o-lists] 10])
(defalias 'vm-display-xface #[nil "\203 \303 \207	\205 \n;\205 \304\305!\205 \306 \207" [vm-xemacs-p vm-fsfemacs-p vm-uncompface-program vm-display-xface-xemacs fboundp create-image vm-display-xface-fsfemacs] 2])
(defalias 'vm-display-xface-xemacs #[nil "\306\307\211\211\310\311ped$?\205\253 eb\210\312\313!\204) \314\313!\210\315\313\316\"\210\317\313\320\"\210\321\322\307\306#\205\253 \323\224b\210\324 \210\325\326 P\327\f\"\330	!\203N 	J\202j 	\331\332\333\334BD\332\335\336\337\340#BDD!L\210	J\341	\313\"\210\342@\211'\323H\343H\206\204 \344'\307\211#\210'\323H\343H)@\211'\323H\343H\206\236 \344'\307\211#\210'\323H\343H)\"\345\n\313\306#\210\346\n	\",\207" [h g e case-fold-search vm-xface-cache vm-message-pointer t nil map-extents #[(e ignore) "\301\302\"\205 \303\207" [e extent-property vm-xface t] 3] find-face vm-xface make-face set-face-background "white" set-face-foreground "black" re-search-forward "^X-Face:" 0 vm-match-header "X-Face: " vm-matched-header-contents intern boundp make-glyph global (tty) [nothing] (win) vector xface :data set-glyph-face make-extent 2 vm-reorder-message-headers set-extent-property set-extent-begin-glyph message] 10])
(defalias 'vm-display-xface-fsfemacs #[nil "\300\301\215\207" [done (byte-code "\306\307\211\211\211\310ed\"\211\203' \311@\312\"\203  \313@!\210A\211\204 eb\210\314\315\307\306#\205\257 \316\224b\210\317 \210\320 \321	\"\322\n!\203M \nJ\202d \323	!\211\203_ \nL\210\nJ\202d \324\325\307\"\210@\211\316H\326H\206~ \327\307\211#\210\316H\326H)\307 !\330!\316\\!T\" \331 \312\306#\210\331 \332\306#\210\331 \333\334!f!#\210\331 \335\n#*-\207" [ooo h g i case-fold-search vm-xface-cache t nil overlays-in overlay-get vm-xface delete-overlay re-search-forward "^X-Face:" 0 vm-match-header vm-matched-header-contents intern boundp vm-convert-xface-to-fsfemacs-image-instantiator throw done 2 vm-reorder-message-headers make-overlay overlay-put evaporate after-string char-to-string display vm-message-pointer message o pos] 6)] 2])
(defalias 'vm-convert-xface-to-fsfemacs-image-instantiator #[(data) "\302\211\303\304\215*\207" [retval work-buffer nil done (byte-code "\306\216\212;\204 \307\310\311\"\210\312 \211q\210\nc\210\313\314ed\315\211\311\205# \316&\211\317=\2041 \307\310\311\"\210\203G \307\310\320\321\322\323\324\325\326\327\330\331\332 \257\"\210;\204Q \307\310\311\"\210eb\210\333c\210\314ed\315\211\311&\211\317=\205u \320\321\334\323\324\325\335\327\336\331\332 \257*\207" [vm-uncompface-program work-buffer data vm-uncompface-accepts-dash-x retval vm-icontopbm-program ((byte-code "\203 \301!\210\301\207" [work-buffer kill-buffer] 2)) throw done nil vm-make-work-buffer apply call-process-region t ("-X") 0 image :type xbm :ascent 80 :foreground "black" :background "white" :data buffer-string "/* Width=48, Height=48 */\n" pbm "black" "white"] 14)] 2])
(defalias 'vm-url-help #[(object) "\301\302;\203 \2026 \303=\203 \304\2026 \305=\203 \306\2026 \307=\203) \310\2026 \311=\2033 \312\2026 \313!\"\207" [vm-url-browser format "Use mouse button 2 to send the URL to %s.\nUse mouse button 3 to choose a Web browser for the URL." w3-fetch "Emacs W3" w3-fetch-other-frame "Emacs W3" vm-mouse-send-url-to-mosaic "Mosaic" vm-mouse-send-url-to-netscape "Netscape" symbol-name] 4])
(defalias 'vm-energize-urls-in-message-region #[(&optional start end) "\212\204 	@\211\306H\307H)\204 	@\211\306H\310H)\f\204% \205/ \214~\210}\210\311 ))\207" [start vm-message-pointer message end vm-highlight-url-face vm-url-browser 0 1 4 vm-energize-urls] 3])
(defalias 'vm-highlight-headers-maybe #[nil "\204\f 	\205& \n\205& \214~\210@\211\305H\306H)@\211\305H\307H)}\210\310 )\207" [vm-highlighted-header-regexp vm-xemacs-p vm-use-lucid-highlighting vm-message-pointer message 0 1 4 vm-highlight-headers] 4])
(defalias 'vm-energize-headers-and-xfaces #[nil "\2030 \306 \2030 \214~\210	@\211\307H\310H)	@\211\307H\311H\206) \312\n!\210\n\307H\311H)}\210\313 \210)\205t \f\203> \314\315!\204N \205t \316\317!\205t ;\205t \214~\210	@\211\307H\310H)	@\211\307H\311H\206n \312\n!\210\n\307H\311H)}\210\320 )\207" [vm-use-menus vm-message-pointer message vm-display-xfaces vm-xemacs-p vm-fsfemacs-p vm-menu-support-possible-p 0 1 3 vm-find-and-set-text-of vm-energize-headers featurep xface fboundp create-image vm-display-xface vm-uncompface-program] 4])
(defalias 'vm-narrow-for-preview #[(&optional just-passing-through) "~\210@\211\306H\307H\206 \310	\311\211#\210	\306H\307H)\n\312=\204z @\211\306H\313H)\212@\211\306H\314H\206= \315	!\210	\306H\314H)b\210\316\n!\203J \n\202K \306y\210\204t \f\203t \203t \203t \203t \317@!\204t \311\320c\210\321u\210)`)^\202\203 @\211\306H\313H)}\207" [vm-message-pointer message vm-preview-lines just-passing-through vm-xemacs-p vm-mail-buffer 0 2 vm-reorder-message-headers nil t 4 3 vm-find-and-set-text-of natnump vm-mime-plain-message-p " " -1 vm-auto-decode-mime-messages vm-mime-decode-for-preview buffer-read-only] 5])
(defalias 'vm-preview-current-message #[nil "?\206! 	?\205! \n@\211\306H\307H)?\205! \n@\211\306H\310H)?p\311\216\3121\3132\2036 \314\n@!\210\2123\203N \3153!\204G \316\317!\2103q\210\202Y 4\320>\204Y \316\321!\210\322\n@\323\"\210\203v \n@\211\306H\307H)\203v \322\n@\324\"\210\203\215 \n@\211\306H\310H)\203\215 \322\n@\325\"\210)\326\f!\2105\204\252 \3276!\204\252 7\203\316 \330\n@!\204\316 \331\n@!8\332\n@!\210p\333\216\334p9\"\210*9q\210\3121\326 \210)\202\334 \3139:\203\334 \334:p\"\210\335p!\2107\203:;\203:<\203:\f\204:3\203\3363\337\"?\202?\203:\330\n@!\204:\307=\203%\340\n@!\210\341 \210\342 \210\343 \210\202C\344=B\313>=\345\346\347\217\210\326 \210*\202C\350 \210\342 \210\343 \210?\203O\f\204O\351 \210\n@\211\307H\352H\206c\353!\210\307H\352H)b\210\354p!\211@\203\217\355@e\"\210\356@\n@\211\307H\352H\206\214\353!\210\307H\352H)\"\210)\f\203\231\357 \202\233\360 +\207" [vm-preview-lines vm-preview-read-messages vm-message-pointer message just-passing-through vm-sbe-buffer 2 0 1 ((byte-code "p=\204 \301!\203 q\210\301\207" [vm-sbe-buffer buffer-name] 2)) previewing nil vm-make-virtual-copy buffer-name error "Folder buffer has been killed." (vm-mode vm-virtual-mode) "No VM folder buffer associated with this buffer" vm-run-message-hook vm-select-message-hook vm-select-new-message-hook vm-select-unread-message-hook vm-narrow-for-preview natnump vm-mime-plain-message-p vm-mm-layout vm-make-presentation-copy ((byte-code "p=\204 \301!\203 q\210\301\207" [vm-sbe-buffer buffer-name] 2)) vm-replace-buffer-in-windows vm-unbury-buffer vm-buffer-variable-value vm-mime-decoded vm-decode-mime-message-headers vm-energize-urls vm-highlight-headers-maybe vm-energize-headers-and-xfaces "message/external-body" data (byte-code "\301 \210\203 \302\303\304#\210\304\207" [vm-mail-buffer vm-decode-mime-message vm-set-buffer-variable vm-mime-decoded nil] 4) ((vm-mime-error (byte-code "@	A@\211\304H\305\nI\210*\303\306	A@\"\207" [vm-message-pointer data layout message 1 16 "%s"] 4))) vm-energize-urls-in-message-region vm-narrow-to-page 3 vm-find-and-set-text-of vm-get-visible-buffer-window set-window-start set-window-point vm-show-current-message vm-update-summary-and-mode-line vm-system-state vm-real-buffers vm-mail-buffer major-mode vm-mime-display-function vm-fill-paragraphs-containing-long-lines vm-display-using-mime layout vm-presentation-buffer vm-presentation-buffer-handle vm-auto-decode-mime-messages vm-mime-decode-for-preview vm-auto-displayed-mime-content-type-exceptions vm-mime-external-content-types-alist vm-honor-page-delimiters w] 5])
(defalias 'vm-show-current-message #[nil "\203% 	\203% \n\203 \306\n\303\"?\202 ?\203% \307\f@!\204% \310\311\312\217\210\313!\203\221 \307\f@!\203\221 \f@\211\314H\315H)\f@\211\314H\316H\206S \317!\210\314H\316H)Z\320V\211(\203a \321\322!\210\305\f@\211\314H\316H\206z \317!\210\314H\316H)\f@\211\314H\315H)#\210(\203\220 \321\323!\210)p)\324\216\212\212eb\210~\210`\f@\211\314H\315H)}\210)*\203\276 \325+!\203\273 \326\327!\210\330 \210)\331p!\203!\212\332\n\203\323 \333\n\334\332#\210\n\203\347 \335\n!\204\341 \336\337!\210\nq\210\202\362 ,\340>\204\362 \336\341!\210\f@\211\342H\314H)\203\343\f@\344\"\210\f@\211\342H\327H)\203\345\f@\344\"\210)\346 \210\347 \202#\346 *\207" [vm-display-using-mime vm-auto-decode-mime-messages vm-mail-buffer vm-mime-decoded vm-message-pointer vm-fill-paragraphs-containing-long-lines vm-buffer-variable-value vm-mime-plain-message-p data (vm-decode-mime-message) ((vm-mime-error (byte-code "@	A@\211\304H\305\nI\210*\303\306	A@\"\207" [vm-message-pointer data layout message 1 16 "%s"] 4))) natnump 0 4 3 vm-find-and-set-text-of 12000 message "Searching for paragraphs to fill..." "Searching for paragraphs to fill... done" ((byte-code "p=\204 \301!\203 q\210\301\207" [vm-sbe-buffer buffer-name] 2)) looking-at forward-page 1 vm-narrow-to-page vm-get-visible-buffer-window showing vm-set-buffer-variable vm-system-state buffer-name error "Folder buffer has been killed." (vm-mode vm-virtual-mode) "No VM folder buffer associated with this buffer" 2 vm-set-new-flag nil vm-set-unread-flag vm-update-summary-and-mode-line vm-howl-if-eom needmsg vm-sbe-buffer vm-honor-page-delimiters page-delimiter major-mode] 6])
(defalias 'vm-expose-hidden-headers #[nil "\306 \210\203 \307!\204 \310\311!\210q\210\202! 	\312>\204! \310\313!\210\314 \210\315 \210\316 \210\n\2031 \nq\210\317p\320\321\322$\210e@\211\323H\323H)U\324 \210db\210~\210\203m `@\211\323H\325H\206g \326\f\327\211#\210\f\323H\325H)}\210\202y `@\211\323H\323H)}\210eb\210\327\330p!\211\203\216 \331e\"\210\203\304 \332!@\211\323H\325H\206\255 \326\f\327\211#\210\f\323H\325H)U\203\304 \204\304 \333@\211\323H\323H)\"\210)\205\314 \334 )\207" [vm-mail-buffer major-mode vm-presentation-buffer vm-message-pointer message exposed 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 vm-display t (vm-expose-hidden-headers) (vm-expose-hidden-headers reading-message) 0 vm-widen-page 2 vm-reorder-message-headers nil vm-get-visible-buffer-window set-window-point window-start set-window-start vm-narrow-to-page w vm-honor-page-delimiters] 6 "\
Toggle exposing and hiding message headers that are normally not visible." nil])
(defalias 'vm-widen-page #[nil "e@\211\302H\303H\206 \304	!\210	\302H\303H)V\204) d@\211\302H\305H)U?\205z @\211\302H\306H\206? \307	\310\211#\210	\302H\306H)@\211\306H\302H)\204X @\211\306H\311H)\203p @\211\302H\303H\206l \304	!\210	\302H\303H)\202y @\211\302H\305H)}\207" [vm-message-pointer message 0 3 vm-find-and-set-text-of 4 2 vm-reorder-message-headers nil 1] 5])
(defalias 'vm-narrow-to-page #[nil "\203+ 	\203 \306	!\204b \n\307``\"\310	\311#\210\310	\312#\210\313	\314\315#\210)\202b \f\203b 	\2039 \316	!\204b \n\317!\204J \320!\321\322\"\210\323``\"\310	\311#\210\310	\324#\210\325	\326\315#\210)\212\315\211	 !n\204{ \212\327 \210\330\"!)\204 \331\332!\210`!\331\333!\210m\204\215 \327 \210`#@\211$\334H\335H)U\204\260 \310%\336\311\"#\210\337``#\210\202\267 \310%\315#\210` ! },\207" [vm-fsfemacs-p vm-page-end-overlay vm-page-continuation-glyph g vm-xemacs-p e overlay-buffer make-overlay vm-set-extent-property vm-glyph before-string overlay-put evaporate nil extent-end-position glyphp make-glyph set-glyph-face italic make-extent begin-glyph set-extent-property detachable beginning-of-line looking-at forward-page -1 1 0 4 vm-extent-property vm-set-extent-endpoints max min page-delimiter vm-message-pointer message vm-begin-glyph-property] 7])
(defalias 'vm-beginning-of-message #[nil "\306 \210\203 \307!\204 \310\311!\210q\210\202! 	\312>\204! \310\313!\210\314 \210\315 \210\316 \210\n\2031 \nq\210\317 \210\320 \210\321p\322\323\324$\210p\325\216\326 \327\216\330\331p!!\210eb\210,\205W \332 \207" [vm-mail-buffer major-mode vm-presentation-buffer vm-sbe-buffer osw vm-honor-page-delimiters 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 vm-widen-page push-mark vm-display t (vm-beginning-of-message) (vm-beginning-of-message reading-message) ((byte-code "p=\204 \301!\203 q\210\301\207" [vm-sbe-buffer buffer-name] 2)) selected-window ((byte-code "\301 =\204 \302!\210\301\207" [osw selected-window select-window] 2)) select-window vm-get-visible-buffer-window vm-narrow-to-page] 5 "\
Moves to the beginning of the current message." nil])
(defalias 'vm-end-of-message #[nil "\306 \210\203 \307!\204 \310\311!\210q\210\202! 	\312>\204! \310\313!\210\314 \210\315 \210\316 \210\n\2031 \nq\210\317=\203: \320 \210\321\322 \210\323 \210\324p\325\326\327$\210p\330\216\331 \332\216\333\334p!!\210db\210,\205c \335 \207" [vm-mail-buffer major-mode vm-presentation-buffer vm-system-state vm-sbe-buffer osw 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 previewing vm-show-current-message reading vm-widen-page push-mark vm-display t (vm-end-of-message) (vm-end-of-message reading-message) ((byte-code "p=\204 \301!\203 q\210\301\207" [vm-sbe-buffer buffer-name] 2)) selected-window ((byte-code "\301 =\204 \302!\210\301\207" [osw selected-window select-window] 2)) select-window vm-get-visible-buffer-window vm-narrow-to-page vm-honor-page-delimiters] 5 "\
Moves to the end of the current message, exposing and flagging it read
as necessary." nil])
(defalias 'vm-move-to-next-button #[(count) "\305 \210\203 \306!\204 \307\310!\210q\210\202! 	\311>\204! \307\312!\210\313 \210\314 \210\315 \210\n\2031 \nq\210\316=\203: \317 \210\320\321 \210\322p\323\324\325$\210\326\327p!!\210\330\216\331\332\f!\f\333Y\")\207" [vm-mail-buffer major-mode vm-presentation-buffer vm-system-state count 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 previewing vm-show-current-message reading vm-widen-page vm-display t (vm-move-to-next-button) (vm-move-to-next-button reading-message) select-window vm-get-visible-buffer-window ((byte-code "\203 \301 \210\301\207" [vm-honor-page-delimiters vm-narrow-to-page] 1)) vm-move-to-xxxx-button vm-abs 0] 5 "\
Moves to the next button in the current message.
Prefix argument N means move to the Nth next button.
Negative N means move to the Nth previous button.
If there is no next button, an error is signaled and point is not moved.

A button is a highlighted region of text where pressing RETURN
will produce an action.  If the message is being previewed, it is
exposed and marked as read." "p"])
(defalias 'vm-move-to-previous-button #[(count) "\305 \210\203 \306!\204 \307\310!\210q\210\202! 	\311>\204! \307\312!\210\313 \210\314 \210\315 \210\n\2031 \nq\210\316=\203: \317 \210\320\321 \210\322p\323\324\325$\210\326\327p!!\210\330\216\331\332\f!\f\333W\")\207" [vm-mail-buffer major-mode vm-presentation-buffer vm-system-state count 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 previewing vm-show-current-message reading vm-widen-page vm-display t (vm-move-to-previous-button) (vm-move-to-previous-button reading-message) select-window vm-get-visible-buffer-window ((byte-code "\203 \301 \210\301\207" [vm-honor-page-delimiters vm-narrow-to-page] 1)) vm-move-to-xxxx-button vm-abs 0] 5 "\
Moves to the previous button in the current message.
Prefix argument N means move to the Nth previous button.
Negative N means move to the Nth next button.
If there is no previous button, an error is signaled and point is not moved.

A button is a highlighted region of text where pressing RETURN
will produce an action.  If the message is being previewed, it is
exposed and marked as read." "p"])
(defalias 'vm-move-to-xxxx-button #[(count next) "`\203	 \306\202\n \307	\203 \203 \304\202# \310\202# \203\" \311\202# \312	\2033 \203/ \303\202< \313\202< \203; \314\202< \315\316\317V\203z  \204z `\203Y \317\202Z \320\\!b\210\321`!\211\203C \322\n\323\"\203r S\f\n!b\210\202C \n\203\205 \324\n!b\202\214 b\210\325\326!-\207" [next vm-xemacs-p e next-extent-change extent-end-position endp eobp bobp extent-start-position overlay-end overlay-start previous-extent-change next-overlay-change previous-overlay-change nil 0 -1 vm-extent-at vm-extent-property vm-button vm-extent-start-position error "No more buttons" old-point count] 6])
(provide 'vm-page)