;ELC   
;;; compiled by jwz@thalidomide on Sun May 15 00:42:35 1994
;;; from file /th/jwz/emacs19/lisp/vm/vm-page.el
;;; emacs version 19.10 Lucid (beta23).
;;; bytecomp version 2.24; 26-Apr-94.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs 19."))

(fset 'vm-scroll-forward #[(&optional arg) "À Á«Å!¬…ÆÇ!«ƒqˆÈ ˆÉ ˆÊp!¬¤`ÌpÍÎÐD$ˆÊp!Ò!dU«†Óe\"ˆ)Í)¬‘\n¬ŽÕ=«ÂÖdÊp!\"«º\n¬¨Êp!ÁÒ!ÌÁ‰ØÐD$ˆÊp!‰«‡Ó\"ˆ*Õ=«ƒÙ ˆÚ ˆ‚MpÜÁ‰‰‰‰ !\"Õ=«ƒÙ ˆãÊ!!ä!Ò!ÌÁ‰åÐD$ˆÊ!!‰¬†Ææ!ˆª‰ä!Z Ó\"ˆç èŽé!ˆ* \\*ë,!‰í=¬uî=¬‹/«‡ð ˆñÜ!ˆ*!qˆî=«…ò ˆª›ó=«Š\"ô ˆ)ª‹õ,!ÜV«ƒÚ ˆ.*6®‚7?­‚ø ‡" [vm-follow-summary-cursor nil was-invisible mp-changed vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty vm-get-buffer-window point vm-display t (vm-scroll-forward vm-scroll-backward) this-command reading-message w window-start set-window-start vm-system-state previewing pos-visible-in-window-p old-w-start (vm-scroll-forward vm-scroll-backward) vm-show-current-message vm-howl-if-eom vm-message-pointer 0 result old-w-height old-w h-diff msg-buf vmp reading window-height (vm-scroll-forward vm-scroll-backward) "current window configuration hides the message buffer." selected-window ((select-window old-w)) select-window next-screen-context-lines vm-scroll-forward-internal arg tryagain next-message vm-honor-page-delimiters vm-narrow-to-page scroll-up vm-next-message end-of-message vm-emit-eom-blurb prefix-numeric-value vm-startup-message-displayed vm-inhibit-startup-message vm-display-startup-message] 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 N scrolls forward N lines." "P"])
(byte-code "ÀÁMˆÂÃMˆÄÅM‡" [vm-scroll-forward-internal #[(arg) "À	!Â ÅÆÇ*‡" [prefix-numeric-value arg selected-window w direction error-data (byte-code "À	!ˆÂ‡" [scroll-up arg nil] 2) ((error (byte-code "ÁW«ˆeÂ@!V¬ÁY«»d@ÁHÄHU¬±Å ˆÁY«ŒÆÇ!ˆÈ	`\"ˆÊ‡n¬‹ŠÁyˆË!)¬„ÆÍ!ˆÁyˆÈ	`\"ˆÎ‡@Ð=­«‚Ò‡Ó	`\"ˆÔ‡" [direction 0 vm-text-of vm-message-pointer 4 vm-widen-page forward-page 1 set-window-start w nil looking-at page-delimiter -1 tryagain error-data end-of-buffer vm-auto-next-message next-message set-window-point end-of-message] 3)))] 3] vm-howl-if-eom #[nil "Àp!‰­’ŠÂ‹)­Œ@ÄHÅHdU­‚Æ )‡" [vm-get-buffer-window w ((byte-code "ÀÁÂ‡" [nil (byte-code "ÀÂ!ˆŠÄ‹ˆ*Å‡" [0 next-screen-context-lines select-window w ((byte-code "ÀÂÀ!ˆ)À‡" [nil scroll-in-place-replace-original scroll-up] 2)) nil] 2) ((error t))] 3)) vm-message-pointer 0 4 vm-emit-eom-blurb] 3] vm-emit-eom-blurb #[nil "@ÁHÂH«ÃÄ@ÅHÆH@ÁHÂH#‡ÃÇ@ÅHÆH\"‡" [vm-message-pointer 3 7 message "End of message %s from %s" 1 0 "End of message %s"] 5]] 2)
(fset 'vm-scroll-backward #[(arg) "À	¬ƒÂªš	:«†	@[Cª	§«„	[ªˆ	9«ƒÃª	!‡" [vm-scroll-forward arg - nil] 2 "\
Scroll backward a screenful of text.
Prefix N scrolls backward N lines." "P"])
(byte-code "ÀÁMˆÂÃMˆÄÅMˆÆÇMˆÈÉM‡" [vm-highlight-headers #[nil "À «šÁÂ!ˆ®Â@ÆHÆH@ÆHÇHÈ#)‡ÉÊ!­ïË‰Î ‰@‰«–Ï@Ð\"«†Ñ@!ˆA‰¬jA‰«–Ï@Ð\"«†Ñ@!ˆA‰¬jebˆÒ ­¢Ò!«—ÓÔ Õ \"ÊÖ#ˆÊÐÈ#ˆØ bˆªZ*‡" [vm-lucid-emacs-p require highlight-headers vm-highlighted-header-regexp highlight-headers-regexp vm-message-pointer 0 5 t fboundp overlay-put nil p o-lists overlay-lists overlay-get vm-highlight delete-overlay vm-match-header make-overlay vm-matched-header-contents-start vm-matched-header-contents-end face vm-highlighted-header-face vm-matched-header-end] 5] vm-unhighlight-region #[(start end) "À «‚Á‡ÂÃ!­†ÃÆÇ$‡" [vm-lucid-emacs-p nil fboundp put-text-property start end face default] 5] vm-highlight-region #[(start end face) "À «‚Á‡ÂÃ!­‡ÃÆ$‡" [vm-lucid-emacs-p nil fboundp put-text-property start end face] 5] vm-preview-current-message #[nil "À\n«…Ã@!ˆ~ˆÅ@!Ç=¬Ÿ@ÈHÉHŠÊ@!bˆË!«„ªÈyˆ`)^ª†@ÈHÉH}ˆÌ ˆÍ@Î\"ˆ«Ž@ÐHÈH«†Í@Ï\"ˆ«Ž@ÐHÒH«†Í@Ñ\"ˆ«ƒÔ ˆÊ@!bˆÕp!‰«×e\"ˆØÊ@!\"ˆ)«”¬“@ÐHÈH¬‹@ÐHÒH¬ƒÚ ‡Û ‡" [previewing vm-system-state vm-real-buffers vm-make-virtual-copy vm-message-pointer vm-vheaders-of vm-preview-lines t 0 4 vm-text-of natnump vm-highlight-headers vm-run-message-hook vm-select-message-hook vm-select-new-message-hook 2 vm-select-unread-message-hook 1 vm-honor-page-delimiters vm-narrow-to-page vm-get-buffer-window w set-window-start set-window-point vm-preview-read-messages vm-show-current-message vm-update-summary-and-mode-line] 5] vm-show-current-message #[nil "ŠŠebˆ~ˆ`@ÁHÂH}ˆ)«ŒÄ!«„ÆÇ!ˆÈ ˆ)Ép!«¥Ê@ÌHÁH«†Í@Î\"ˆ@ÌHÇH«†Ï@Î\"ˆÐ ˆÑ ‡Ð ‡" [vm-message-pointer 0 4 vm-honor-page-delimiters looking-at page-delimiter forward-page 1 vm-narrow-to-page vm-get-buffer-window showing vm-system-state 2 vm-set-new-flag nil vm-set-unread-flag vm-update-summary-and-mode-line vm-howl-if-eom] 3]] 2)
(fset 'vm-expose-hidden-headers #[nil "À ˆ	«Â	!¬…ÃÄ!«ƒ	qˆÅ ˆÆ ˆÇpÈÉÊ$ˆe@ÌHÌHUÎ ˆdbˆ~ˆ«Š`Ï@!}ˆªŠ`@ÌHÌH}ˆebˆÐÒp!‰«†Óe\"ˆ«œÔ!Ï@!U«¬ŒÕ@ÌHÌH\"ˆ)­‚× )‡" [vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty vm-display t (vm-expose-hidden-headers) (vm-expose-hidden-headers reading-message) vm-message-pointer 0 exposed vm-widen-page vm-vheaders-of nil w vm-get-buffer-window set-window-point window-start set-window-start vm-honor-page-delimiters vm-narrow-to-page] 6 "\
Toggle exposing and hiding message headers that are normally not visible." nil])
(byte-code "ÀÁMˆÂÃM‡" [vm-widen-page #[nil "eÀ	@!V¬‹d	@ÂHÃHU?­¡Ä	@!	@ÅHÂH¬ˆ	@ÅHÆH«†À	@!ª†	@ÂHÃH}‡" [vm-text-of vm-message-pointer 0 4 vm-vheaders-of 2 1] 3] vm-narrow-to-page #[nil "ŠÀ‰edn¬‹ŠÅyˆÆ!)¬„ÈÉ!ˆ`ÈÊ!ˆÅyˆ`}-‡" [nil omax omin max min 0 looking-at page-delimiter forward-page -1 1] 4]] 2)
(fset 'vm-beginning-of-message #[nil "À ˆ	«Â	!¬…ÃÄ!«ƒ	qˆÅ ˆÆ ˆÇ ˆÈ ˆÉpÊËÌ$ˆÍ ÏŽÐÑp!!ˆebˆ*­‚Ó ‡" [vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty vm-widen-page push-mark vm-display t (vm-beginning-of-message) (vm-beginning-of-message reading-message) selected-window osw ((byte-code "Á =¬„Â!ˆÁ‡" [osw selected-window select-window] 2)) select-window vm-get-buffer-window vm-honor-page-delimiters vm-narrow-to-page] 5 "\
Moves to the beginning of the current message." nil])
(fset 'vm-end-of-message #[nil "À ˆ	«Â	!¬…ÃÄ!«ƒ	qˆÅ ˆÆ ˆÈ=«ƒÉ ˆÊË ˆÌ ˆÍpÎÏÐ$ˆÑ ÓŽÔÕp!!ˆdbˆ*­‚× ‡" [vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty vm-system-state previewing vm-show-current-message reading vm-widen-page push-mark vm-display t (vm-end-of-message) (vm-end-of-message reading-message) selected-window osw ((byte-code "Á =¬„Â!ˆÁ‡" [osw selected-window select-window] 2)) select-window vm-get-buffer-window vm-honor-page-delimiters vm-narrow-to-page] 5 "\
Moves to the end of the current message, exposing and flagging it read
as necessary." nil])