[Mew-dist 12024] Re: buffer-visible-p?

[Kazu Yamamoto ( 山本和彦 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [Mew-dist 12018] Re: buffer-visible-p?

> > 特に困っているわけではないのですが、たま〜に「あ、行っちゃった」と思うこ
> > とがあるのでなにか良い関数をしっている人がいましたら、教えてください。
> 
> なるほど。僕は "v" を使うので気付きませんでした。
> 
> 1.95 の方で実装してみます。

やっつけで作ってみました。お試しあれ。

--かず
-------------- next part --------------
? LOG
? LOGLESS
Index: mew-summary.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-summary.el,v
retrieving revision 1.262
diff -c -r1.262 mew-summary.el
*** mew-summary.el	1999/12/28 08:00:38	1.262
--- mew-summary.el	2000/01/07 07:22:28
***************
*** 700,705 ****
--- 700,707 ----
  	  (opart (mew-current-get 'part))
  	  (buf (buffer-name))
  	  (win (selected-window))
+ 	  (displayed (and (get-buffer (mew-buffer-message))
+ 			  (get-buffer-window (mew-buffer-message))))
  	  next prefetch)
       (mew-summary-toggle-disp-msg 'on)
       (unwind-protect
***************
*** 714,721 ****
  		 (progn
  		   (mew-summary-display-message fld msg buf nil)
  		   (setq prefetch t))
! 	       (if (mew-message-next-page)
! 		   (setq next t))))
  	    (part
  	     (if (or (null opart) (not (equal opart part)))
  		 (mew-summary-display-part 
--- 716,725 ----
  		 (progn
  		   (mew-summary-display-message fld msg buf nil)
  		   (setq prefetch t))
! 	       (if (not displayed)
! 		   () ;; keep the page
! 		 (if (mew-message-next-page)
! 		     (setq next t)))))
  	    (part
  	     (if (or (null opart) (not (equal opart part)))
  		 (mew-summary-display-part