* wl-message.el (wl-message-next-page): Bind `window-pixel-scroll-increment'

 to nil while scrolling up.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 2e9c732..e8080ac 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-01-29  Katsumi Yamaoka    <yamaoka@jpl.org>
+
+       * wl-message.el (wl-message-next-page): Bind
+       `window-pixel-scroll-increment' to nil while scrolling up.
+
 2001-01-27  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * wl-draft.el (wl-draft-reply-list-symbol): Remove FROM argument.

diff --git a/wl/wl-message.el b/wl/wl-message.el
index f90ca1d..297e4a3 100644 (file)
--- a/wl/wl-message.el
+++ b/wl/wl-message.el
@@ -286,7 +286,11 @@
          (wl-message-narrow-to-page 1)
          (setq ret-val nil))
       (condition-case ()
-         (scroll-up lines)
+         (static-if (boundp 'window-pixel-scroll-increment)
+             ;; XEmacs 21.2.20 and later.
+             (let (window-pixel-scroll-increment)
+               (scroll-up lines))
+           (scroll-up lines))
        (end-of-buffer
         (goto-char (point-max))))
       (setq ret-val nil))