[mhc:01790] Re: mew4:mew-summary-next-line

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxx>]

From: KOIE Hidetaka (鯉江英隆) <hide@xxxxxxxx> さん曰く
Subject: [mhc:01789] mew4:mew-summary-next-line
Message-ID: <20030415.181241.104030017.hide@xxxxxxxx>
Date: Tue, 15 Apr 2003 18:12:41 +0900 (JST)

鯉江> 新しいMew4だとmhcのC-n/C-pが機能しなくなりました。

あら。

鯉江> (defun mew-summary-next-line ()
鯉江>   (interactive)
鯉江>   (beginning-of-line)
鯉江>   (forward-line)
鯉江>   (while (or (looking-at mew-regex-thread-separator)
鯉江> 	     (eq (get-text-property (point) 'invisible) t))
鯉江>     (forward-line))
鯉江>   (if (and (mew-thread-p) mew-use-thread-cursor)
鯉江>       (mew-summary-thread-move-cursor)))

C-n するとバッファの最後まで突き抜けちゃうのかしら。

鯉江> mhc は 各行の先頭にinvisible を付けているので
鯉江> これを拾ってしまって C-n/C-p 使いものにならなくなっているようです。

鯉江> 解決方法は... どうすればいいんでしょう。

Mew 4 では確かめられないのですが、mhc-mew.el で

(defconst mhc-mew/header-string
  (let ((str "0 | "))
    (put-text-property 0 (length str) 'invisible 'mhc str)
    str))                                        ~~~~

(defconst mhc-mew/header-string-review
  (let ((str (concat "0" (char-to-string mew-mark-review) "| ")))
    (put-text-property 0 (length str) 'invisible 'mhc str)
    str))                                        ~~~~

と invisible に 'mhc を設定するとどうでしょうか。

# これなら Mew のバージョンに左右されないのでありがたいかも。

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxxxx)