From: yamaoka <yamaoka>
Date: Mon, 29 Jan 2001 23:53:21 +0000 (+0000)
Subject: * wl-message.el (wl-message-next-page): Bind `window-pixel-scroll-increment'
X-Git-Tag: wl-2_4_1~8
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b4196acf57df3eab653e2ab9a84145ae60c588f2;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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))