[xyzzy:02621] Re: Den8 View buffer

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

Ｔｏｙさん、こんにちは。

    Tue, 18 May 1999 12:40:42 +0900 の
   “[xyzzy:02591] Re: Den8 View buffer”
    への返事です.

| 3. 次々次々メールを見直してて，２０００番ぐらいまで行ったときに，
|    ３００番台のメールが読みたくなった。
|    C-pC-pC-p.................あーーっ，もーーっ！！！
| ………という過去(っていってもここ数日)が…。
| 
| こういう場合みなさんはどうなさってたのでしょうか？

C-s で" 0300"をサーチするとか。


で、作るの飽きたのでとりあえずこんだけ(^^;
他のも同じパターンでいけると思います。

(defmacro your-den8-stay-here (&body body)
  `(let ((#1=#:w (selected-window)))
     (unwind-protect
	 (progn ,@body)
       (set-window #1#))))

(setf (get 'your-den8-stay-here 'lisp-indent-hook) 'defun)

(defun your-den8-next-page-or-message ()
  (interactive)
  (your-den8-stay-here
    (den8-next-page-or-message)))

(defun your-den8-next-unread ()
  (interactive)
  (your-den8-stay-here
    (den8-next-unread)))

(defun your-den8-next-message ()
  (interactive)
  (your-den8-stay-here
    (den8-summary-jump-to-mail)
    (den8-next-message)))

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