From: yoichi <yoichi>
Date: Fri, 21 Jun 2002 10:31:07 +0000 (+0000)
Subject: * wl-message.el (wl-message-prev-page): When it is called without
X-Git-Tag: elmo-mark-root~74
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=203bd7296a422d93eb25052cc6cf250ad4383a25;p=elisp%2Fwanderlust.git

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

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)