[Mew-dist 08726] Re: Unable to back to previous page on XEmacs-21.2.13

[Kazu Yamamoto ( 山本和彦 )]

From: Shigeki Uno <shigeki at example.com>
Subject: [Mew-dist 08719] Unable to back to previous page on XEmacs-21.2.13
Date: Fri, 7 May 1999 03:19:43 +0900

>      space keyを叩いてメールを読んでいきますが、前頁に戻りたい時に
>      delete keyを叩いても戻れません。例えば、私はmew-distは+ML/Mew
>      というfolderで管理していますが、上記の状況だとmini-bufferには
>      Buffer is read-only: #<buffer "+ML/Mew">と表示されてbeep音が
>      鳴るだけで、戻れません。

下記のパッチを当てて下さい。Emacs と XEmacs では define-key の仕様が違
うようです。

だれか、XEmacs 20.4 でこのパッチが正しく動くが調べてもらえないでしょう
か？

>      M-x mew 又は C-u M-x mewでmewを起動しようとすると、mini-buffer
>      に[no match]と表示され、beep音がなるだけでmewが起動できません。

(setq debug-on-error t) を評価した後に、M-x mew とするとこのエラーを捕
まえられませんかね？ もし、捕まえられたら、*Backtrace* バッファを送っ
て下さい。

--かず
-------------- next part --------------
Index: mew-summary.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-summary.el,v
retrieving revision 1.145
diff -c -r1.145 mew-summary.el
*** mew-summary.el	1999/04/26 09:21:30	1.145
--- mew-summary.el	1999/05/07 03:12:34
***************
*** 91,97 ****
    (define-key mew-summary-mode-map ","    'mew-summary-display-asis)
    (define-key mew-summary-mode-map "<"    'mew-summary-display-top)
    (define-key mew-summary-mode-map ">"    'mew-summary-display-bottom)
!   (define-key mew-summary-mode-map "\177" 'mew-summary-prev-page)
    (define-key mew-summary-mode-map "\r"   'mew-summary-scroll-up)
    (define-key mew-summary-mode-map "-"    'mew-summary-scroll-down)
    (define-key mew-summary-mode-map "\e\r" 'mew-summary-scroll-down)
--- 91,99 ----
    (define-key mew-summary-mode-map ","    'mew-summary-display-asis)
    (define-key mew-summary-mode-map "<"    'mew-summary-display-top)
    (define-key mew-summary-mode-map ">"    'mew-summary-display-bottom)
!   (if mew-xemacs-p
!       (define-key mew-summary-mode-map 'backspace 'mew-summary-prev-page)
!     (define-key mew-summary-mode-map "\177" 'mew-summary-prev-page))
    (define-key mew-summary-mode-map "\r"   'mew-summary-scroll-up)
    (define-key mew-summary-mode-map "-"    'mew-summary-scroll-down)
    (define-key mew-summary-mode-map "\e\r" 'mew-summary-scroll-down)