[mew-dist 27111] mew-summary-next|previous-line()

[Hideyuki SHIRAI ( 白井秀行 )]

今の今までまったく違和感を感じていなかったんですが、summary の表
示上で複数の char-width() が混じっているところで
mew-summary-next|previous-line() を連続して動かす(*1) と、徐々に
右の方にカーソルが動いていってしまい、少々気持ちが悪いです。

(*1) C-n や C-p を押しっぱなしにしておく

もっと本格的な直し方はあると思うのですが、安直にやるなら、こんな
感じでどうでしょう。

(defvar mew-summary-line-column nil)

(defun mew-summary-next-line (&optional arg)
  "Go to the next line."
  (interactive "p")
  (or arg (setq arg 1))
  (if (< arg 0)
      (mew-summary-previous-line (- arg))
    (let ((col (or (and (eq last-command this-command)
			mew-summary-line-column)
		   (setq mew-summary-line-column (current-column)))))
      (while (> arg 0)
	(forward-line)
    ......

(defun mew-summary-previous-line (&optional arg)
  "Go to the previous line."
  (interactive "p")
  (or arg (setq arg 1))
  (if (< arg 0)
      (mew-summary-next-line (- arg))
    (let ((col (or (and (eq last-command this-command)
			mew-summary-line-column)
		   (setq mew-summary-line-column (current-column)))))
      (while (> arg 0)
	(forward-line -1)
    ......

# P.S.
#
# mew-nmz 使っていただいているみなさん Mew5 に追従出来なくてごめ
# んなさい。モチベーションは下がっていませんので、秋風が吹く頃ま
# でにはなんとか。。。 (__)

-- 
白井秀行 (mailto:shirai at example.com)