Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-page.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 0d2f883870bc
children a145efe76779
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
114 114
115 (defun vm-scroll-forward-internal (arg) 115 (defun vm-scroll-forward-internal (arg)
116 (let ((direction (prefix-numeric-value arg)) 116 (let ((direction (prefix-numeric-value arg))
117 (w (selected-window))) 117 (w (selected-window)))
118 (condition-case error-data 118 (condition-case error-data
119 (progn 119 (progn (scroll-up arg) nil)
120 (if (and (> direction 0) 120 ;; this looks like it should work, but doesn't because the
121 (pos-visible-in-window-p 121 ;; redisplay code is schizophrenic when it comes to updates. A
122 (vm-text-end-of (car vm-message-pointer)))) 122 ;; window position may no longer be visible but
123 (signal 'end-of-buffer nil) 123 ;; pos-visible-in-window-p will still say it is because it was
124 (scroll-up arg)) 124 ;; visible before some window size change happened.
125 nil ) 125 ;; (progn
126 ;; (if (and (> direction 0)
127 ;; (pos-visible-in-window-p
128 ;; (vm-text-end-of (car vm-message-pointer))))
129 ;; (signal 'end-of-buffer nil)
130 ;; (scroll-up arg))
131 ;; nil )
126 (error 132 (error
127 (if (or (and (< direction 0) 133 (if (or (and (< direction 0)
128 (> (point-min) (vm-text-of (car vm-message-pointer)))) 134 (> (point-min) (vm-text-of (car vm-message-pointer))))
129 (and (>= direction 0) 135 (and (>= direction 0)
130 (/= (point-max) 136 (/= (point-max)
549 (vm-update-summary-and-mode-line)))) 555 (vm-update-summary-and-mode-line))))
550 556
551 (defun vm-show-current-message () 557 (defun vm-show-current-message ()
552 (and vm-display-using-mime 558 (and vm-display-using-mime
553 vm-auto-decode-mime-messages 559 vm-auto-decode-mime-messages
554 (not vm-mime-decoded) 560 (if vm-mail-buffer
561 (not (vm-buffer-variable-value vm-mail-buffer 'vm-mime-decoded))
562 (not vm-mime-decoded))
555 (not (vm-mime-plain-message-p (car vm-message-pointer))) 563 (not (vm-mime-plain-message-p (car vm-message-pointer)))
556 (vm-decode-mime-message)) 564 (vm-decode-mime-message))
557 (vm-save-buffer-excursion 565 (vm-save-buffer-excursion
558 (save-excursion 566 (save-excursion
559 (save-excursion 567 (save-excursion