(defun vm-scroll-forward (&optional arg) "\ 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." (interactive "P") (byte-code "ň   ! q !) !?)ʼn p=FF @HH!qp!?))X ʉ =e Yj r Y  @HH!    !=?!) !?!!!Z p= @HH!q!\\  !=ň=?\" !*)))=7 !W=L!  )W!VW .+b?h " [mp-changed was-invisible do-next-message vm-mail-buffer vm-summary-buffer nil vm-sbe-buffer major-mode vm-message-list vm-message-pointer t vm-system-state vmp msg-buf h-diff w old-w result vm-window-configuration next-screen-context-lines arg vm-honor-page-delimiters vm-startup-message-displayed vm-inhibit-startup-message vm-follow-summary-cursor buffer-name vm-sanity-check-modification-flag bufferp vm-error-if-folder-empty vm-virtual-mode marker-buffer 0 ((byte-code "p=?!q" [vm-sbe-buffer buffer-name] 2)) get-buffer-window vm-display-current-message-buffer previewing vm-show-current-message vm-howl-if-eom reading paging-message vm-set-window-configuration error "paging-message configuration hides the message buffer." window-height selected-window ((byte-code "p=?!q" [vm-sbe-buffer buffer-name] 2)) ((byte-code "!" [old-w select-window] 2)) select-window vm-scroll-forward-internal tryagain next-message vm-narrow-to-page scroll-up vm-next-message auto-next-message end-of-message vm-emit-eom-blurb prefix-numeric-value vm-display-startup-message] 32)) (defun vm-scroll-forward-internal (arg) (byte-code " ! Ǐ*" [direction arg w prefix-numeric-value selected-window error-data (byte-code "!" [arg nil scroll-up] 2) ((error (byte-code "W e @!VYd @!\"U Y5! `\"ÂRnB !)?H! `\"҂k @=keԂk `\"և" [direction vm-message-pointer w nil page-delimiter error-data vm-auto-next-message 0 vm-text-of /= vm-text-end-of vm-widen-page forward-page 1 set-window-start beginning-of-line looking-at -1 tryagain end-of-buffer next-message set-window-point end-of-message] 14)))] 5)) (defun vm-howl-if-eom nil (byte-code " p =  @HH!qɎp! 6ˋ)6 @!dU6 *)))" [vmp vm-message-pointer vm-sbe-buffer major-mode vm-message-list w vm-virtual-mode marker-buffer 0 ((byte-code "p=?!q" [vm-sbe-buffer buffer-name] 2)) get-buffer-window ((byte-code "" [nil (byte-code " !ŋ))" [next-screen-context-lines w nil 0 select-window ((byte-code "!" [nil scroll-up] 2))] 2) ((error (byte-code "" [t] 1)))] 3)) vm-text-end-of vm-emit-eom-blurb] 5)) (defun vm-emit-eom-blurb nil (byte-code "@HH@!#" [vm-message-pointer message "End of message %s from %s" 1 0 vm-su-full-name] 5)) (defun vm-scroll-backward (arg) "\ Scroll backward a screenful of text. Prefix N scrolls backward N lines." (interactive "P") (byte-code "? Ă\"9\":!@[C\"!" [arg nil t vm-scroll-forward -] 2)) (defun vm-preview-current-message nil (byte-code "ˉp =  @HH!qώp!))?/ =/!?5! p =N N @HH!qӎ @! @! @!b!yz!`)^ @!\" @!bp!   e\" @ \")))))? ? @HH? @HH? " [vm-system-state vm-sbe-buffer major-mode vm-message-list vm-message-pointer t vmp vm-preview-lines vm-honor-page-delimiters w vm-preview-read-messages previewing vm-virtual-mode marker-buffer 0 ((byte-code "p=?!q" [vm-sbe-buffer buffer-name] 2)) get-buffer-window one-window-p vm-display-current-message-buffer ((byte-code "p=?!q" [vm-sbe-buffer buffer-name] 2)) widen narrow-to-region vm-vheaders-of vm-text-end-of vm-text-of forward-line natnump vm-narrow-to-page set-window-start vm-highlight-headers 2 1 vm-show-current-message vm-update-summary-and-mode-line] 21)) (defun vm-show-current-message nil (byte-code "ɉ p =  @HH!q͎ eb ` @!\")B!?! )))) @HHX @\"f @HHf @\" " [vm-system-state vmp vm-message-pointer vm-sbe-buffer major-mode vm-message-list vm-honor-page-delimiters page-delimiter nil showing vm-virtual-mode marker-buffer 0 ((byte-code "p=?!q" [vm-sbe-buffer buffer-name] 2)) widen narrow-to-region vm-text-end-of looking-at forward-page 1 vm-narrow-to-page 2 vm-set-new-flag vm-set-unread-flag vm-update-summary-and-mode-line] 11)) (defun vm-expose-hidden-headers nil "\ Toggle exposing and hiding message headers that are normally not visible." (interactive) (byte-code "ˆ !q !\" !?\"‰ p=?? @HH!qҎ e @HHU db f` @!\"o` @HH\"eb p!   e\"  ! @!U? @HH\") *)))" [vm-mail-buffer vm-summary-buffer nil vmp vm-message-pointer vm-sbe-buffer major-mode vm-message-list exposed w vm-honor-page-delimiters vm-follow-summary-cursor buffer-name bufferp vm-error-if-folder-empty vm-virtual-mode marker-buffer 0 ((byte-code "p=?!q" [vm-sbe-buffer buffer-name] 2)) vm-widen-page widen narrow-to-region vm-vheaders-of get-buffer-window set-window-point window-start set-window-start vm-narrow-to-page] 19)) (defun vm-widen-page nil (byte-code "e@!Vd@!\"6@!@HH'@HH1@!5@!\"" [vm-message-pointer vm-text-of /= vm-text-end-of narrow-to-region vm-vheaders-of 2 0 1] 9)) (defun vm-narrow-to-page nil (byte-code "edn !)?!`! ` \",)" [min max omin omax page-delimiter nil beginning-of-line looking-at forward-page -1 1 narrow-to-region] 8)) (defun vm-beginning-of-message nil "\ Moves to the beginning of the current message." (interactive) (byte-code "ˆ !q !\" !?\"‰ p=?? @HH!qЎ  ebT )))) " [vm-mail-buffer vm-summary-buffer nil vmp vm-message-pointer vm-sbe-buffer major-mode vm-message-list vm-honor-page-delimiters vm-follow-summary-cursor buffer-name bufferp vm-error-if-folder-empty vm-virtual-mode marker-buffer 0 ((byte-code "p=?!q" [vm-sbe-buffer buffer-name] 2)) vm-widen-page push-mark vm-narrow-to-page vm-display-current-message-buffer] 11)) (defun vm-end-of-message nil "\ Moves to the end of the current message, exposing and flagging it read as necessary." (interactive) (byte-code "ˆ !q !\" !?\"‰ =. щ p=MM @HH!qՎ  db b ))))!" [vm-mail-buffer vm-summary-buffer nil vm-system-state vmp vm-message-pointer vm-sbe-buffer major-mode vm-message-list vm-honor-page-delimiters t vm-follow-summary-cursor buffer-name bufferp vm-error-if-folder-empty previewing vm-show-current-message reading vm-virtual-mode marker-buffer 0 ((byte-code "p=?!q" [vm-sbe-buffer buffer-name] 2)) vm-widen-page push-mark vm-narrow-to-page vm-display-current-message-buffer] 12))