[mew-dist 21214] mew-summary-folder-cache-newp with mew-touch-folder (was: mew-summary-ls-all-folders)

[Hideyuki SHIRAI ( 白井秀行 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com> 曰く
Subject: [mew-dist 21213] Re: mew-summary-ls-all-folders
Message-ID: <20020722.100421.65680172.shirai at example.com>
Date: Mon, 22 Jul 2002 10:04:21 +0900 (JST)

白井> P.S.
白井> これ作っていたときに、ふと気付いたバグ(仕様？)を思い出してしまっ
白井> たので、その話は、また、後程。

mew-touch-folder-p => t だけど、なんらかの原因でその folder に
mew-summary-touch-file が存在しないとき(*1)の話です。

mew-summary-folder-dir-newp() において、t1 は
(mew-file-get-time "存在しないファイル") => nil となり、また、
(mew-compare-times nil t2) => nil となるため、自動 update してく
れません。(と数年前から思っていたりする ^^;;;)

そのため、上記の条件の時で、かつ、その folder に message が存在
するときは update するようにしてみました。

(*1) いままで mew-touch-folder-p => nil だったけど t に変えた、
   とか、新しく手動で folder を作って、msg を copy したとか。

-- 
白井秀行 (mailto:shirai at example.com)

Index: mew-scan.el
===================================================================
RCS file: /cvsroot/shirai/mew/mew/mew-scan.el,v
retrieving revision 1.126
diff -u -r1.126 mew-scan.el
--- mew-scan.el	30 May 2002 00:23:04 -0000	1.126
+++ mew-scan.el	22 Jul 2002 01:21:15 -0000
@@ -572,7 +572,10 @@
 	       (mew-file-get-time dir)))
 	 (cache (expand-file-name mew-summary-cache-file dir))
 	 (t2 (mew-file-get-time cache)))
-    (mew-compare-times t1 t2)))
+    (if (and mew-touch-folder-p (null t1)
+	     (mew-dir-messages (mew-expand-folder dir)))
+	t
+      (mew-compare-times t1 t2))))
 
 (defsubst mew-summary-folder-cache-newp ()
   (let* ((folder (mew-summary-folder-name 'ext))