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