[Mew-dist 06113] Re: mew-message-next-page

[Kazu Yamamoto ( 山本和彦 )]

From: Satoshi Yatagawa <yatagawa at example.com>
Subject: [Mew-dist 06085] mew-message-next-page
Date: Fri, 21 Aug 1998 17:47:46 +0900

> 1行目が表示された状態で順にSPCを押していき、4行目以降を表示させ
> ようとSPCを押しても、4行目以降が期待通り表示されません。
> このとき、mini bufferにはBeginning of bufferと出力されます。

Please apply the following patch which should pacify you...

--Kazu at example.com

Index: mew-message.el
===================================================================
RCS file: /usr/local/cvsroot/Mew/mew/mew-message.el,v
retrieving revision 1.15
diff -c -r1.15 mew-message.el
*** mew-message.el	1998/08/07 16:06:59	1.15
--- mew-message.el	1998/08/22 23:03:32
***************
*** 139,151 ****
    (interactive "P")
    (setq arg (if arg (prefix-numeric-value arg) 0))
    (save-excursion
!     (forward-page -1) ;;Beginning of the current page.
      (forward-char 1)  ;; for compatibility with emacs-19.28 and emacs-19.29
      (widen)
      (cond
       ((> arg 0)	(forward-page arg))
!      ((< arg 0) (forward-page (1- arg)))
!      )
      (forward-page)
      (narrow-to-region
       (point)
--- 139,152 ----
    (interactive "P")
    (setq arg (if arg (prefix-numeric-value arg) 0))
    (save-excursion
!     (condition-case nil
! 	(forward-page -1) ;; Beginning of the current page.
!       (beginning-of-buffer ()))
      (forward-char 1)  ;; for compatibility with emacs-19.28 and emacs-19.29
      (widen)
      (cond
       ((> arg 0)	(forward-page arg))
!      ((< arg 0) (forward-page (1- arg))))
      (forward-page)
      (narrow-to-region
       (point)