[mew-dist 20144] mew-touch-folder-check

[Tatsuya Kinoshita]

関数mew-touch-folder-checkを修正するパッチを作りました。

~/Mailが更新直後の場合に、1秒待ってからタイムスタンプを更新・判定
することにより、mew-touch-folder-pが誤ってtになってしまうのを防ぎ
ます。

-- 
木下達也
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.  Copyright is disclaimed.

diff -ur mew.orig/mew.el mew/mew.el
--- mew.orig/mew.el	Wed Jan  9 17:32:57 2002
+++ mew/mew.el	Wed Jan 23 07:21:48 2002
@@ -203,8 +203,12 @@
     (let* ((dir (expand-file-name mew-mail-path))
 	   (file (expand-file-name mew-summary-touch-file dir))
 	   (time1 (mew-file-get-time dir))
-	   time2)
+	   time2 curtime)
       (when (file-writable-p file)
+	(setq curtime (current-time))
+	(if (and (equal (nth 1 curtime) (nth 1 time1))
+		 (equal (nth 0 curtime) (nth 0 time1)))
+	    (sleep-for 1))
 	(write-region "touched by Mew.(test)" nil file nil 'no-msg)
 	(if (file-exists-p file) (delete-file file))
 	(setq time2 (mew-file-get-time dir))