[xyzzy:02628] Re: Den8 View buffer

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

山本さん、こんにちは。

    Wed, 19 May 1999 15:15:47 +0900 の
   “[xyzzy:02624] Re: Den8 View buffer”
    への返事です.

| 今の問題は、*Den8 View* バッファがセレクトされていてサマリのカー
| ソル位置が動いている状態から my-den8-next-message を実行すると、
| 何処からか古いカーソル位置を引っ張り出して来てしまうため、期待し
| た動きになりません。

特に気にならなかったんでよく分からないんですが、
そうなるんであればこうでしょうか。

(defun my-den8-next-message (&optional (n 1))
  (interactive "p")
  (let ((mail (save-window-excursion
		(pop-to-buffer "*Den8 Summary*")
		(save-excursion
		  (and (forward-line n)
		       (looking-at "^. \\([0-9][0-9][0-9][0-9]\\) ")
		       (parse-integer (buffer-substring
				       (match-beginning 1)
				       (match-end 1))))))))
    (if mail
	(my-den8-jump-to-message mail)
      (plain-error "~:[前~;次~]のメールはありません" (plusp n)))))

--
亀井哲弥(Tetsuya Kamei)
kamei@xxxxxxxxxxxx/JCA00343@xxxxxxxxxxx