From 203bd7296a422d93eb25052cc6cf250ad4383a25 Mon Sep 17 00:00:00 2001
From: yoichi <yoichi>
Date: Fri, 21 Jun 2002 10:31:07 +0000
Subject: [PATCH] * wl-message.el (wl-message-prev-page): When it is called
 without lines argument, scroll down by
 wl-message-scroll-amount lines. (wl-message-next-page):
 Ditto. * wl-vars.el (wl-message-scroll-amount): Change
 default value to preserve current behavior.

---
 wl/ChangeLog     |    8 ++++++++
 wl/wl-message.el |    6 +++---
 wl/wl-vars.el    |    2 +-
 3 files changed, 12 insertions(+), 4 deletions(-)

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 86299a1..23d654f 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,11 @@
+2002-06-21  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-message.el (wl-message-prev-page): When it is called without
+	lines argument, scroll down by wl-message-scroll-amount lines.
+	(wl-message-next-page): Ditto.
+	* wl-vars.el (wl-message-scroll-amount): Change default value
+	to preserve current behavior.
+
 2002-06-20  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-summary.el (wl-summary-prefetch-msg): Bind
diff --git a/wl/wl-message.el b/wl/wl-message.el
index 1dc1e80..856c6a7 100644
--- a/wl/wl-message.el
+++ b/wl/wl-message.el
@@ -268,7 +268,7 @@ Returns non-nil if top of message."
 	  (recenter))
       (if (not (bobp))
 	  (condition-case nil
-	      (scroll-down lines)
+	      (scroll-down (or lines wl-message-scroll-amount))
 	    (error))
 	(setq top t)))
     (if real-top
@@ -304,8 +304,8 @@ Returns non-nil if bottom of message."
 	  (static-if (boundp 'window-pixel-scroll-increment)
 	      ;; XEmacs 21.2.20 and later.
 	      (let (window-pixel-scroll-increment)
-		(scroll-up lines))
-	    (scroll-up lines))
+		(scroll-up (or lines wl-message-scroll-amount)))
+	    (scroll-up (or lines wl-message-scroll-amount)))
 	(end-of-buffer
 	 (goto-char (point-max))))
       (setq bottom nil))
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index bbc4ae1..b630077 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -1385,7 +1385,7 @@ which appear just before @."
   :group 'wl-draft
   :group 'wl-pref)
 
-(defcustom wl-message-scroll-amount 5
+(defcustom wl-message-scroll-amount nil
   "*Scroll amount by SPC key."
   :type 'integer
   :group 'wl-pref)
-- 
1.7.10.4