[Mew-dist 15928] mew-virtual-cache-valid-p()

[Hideyuki SHIRAI ( 白井秀行 )]

mew-virtual-cache-valid-p() なのですが、現状では、今いる folder
と thread folder の時間を比較しているため、

1. +ml/mew-dist で ++ml/mew-dist という thread folder をつくる。
2. "g" => "+inbox" で +inbox などへ行く。
3. その folder(+inbox) から "g" => "++ml/mew-dist" へ戻ろうとする。
4. "++ml/mew-dist is old." と言われて悲しい。

となります。この関数はthread のときしか使いませんから、こんな感
じにしてはいかかでしょうか。

## 関数名が内容と一致しないような気もする。
## mew(-summary)-thread-cache-valid-p() かしら。

-- 
白井秀行 (mailto:shirai at example.com)

--- mew-thread.el.orig	Tue Jan  9 19:15:23 2001
+++ mew-thread.el	Tue Jan 16 10:37:17 2001
@@ -187,10 +187,15 @@
 			     ))
 
 (defsubst mew-virtual-cache-valid-p (vfolder)
-  (equal mew-summary-buffer-folder-cache-time
-	 (save-excursion
-	   (set-buffer vfolder)
-	   mew-summary-buffer-folder-cache-time)))
+  (let ((ofld (substring vfolder 1)))
+    (if (get-buffer ofld)
+	(save-excursion
+	  (equal (progn
+		   (set-buffer ofld)
+		   mew-summary-buffer-folder-cache-time)
+		 (progn
+		   (set-buffer vfolder)
+		   mew-summary-buffer-folder-cache-time))))))
 
 (defsubst mew-virtual-thread-p (vfolder)
   (save-excursion