[mew-dist 21216] Re: mew-summary-folder-cache-newp with mew-touch-folder

[Hideyuki SHIRAI ( 白井秀行 )]

From:  Hideyuki SHIRAI (白井秀行) <shirai at example.com> 曰く
Subject: [mew-dist 21214] mew-summary-folder-cache-newp with mew-touch-folder (was: mew-summary-ls-all-folders)
Message-ID: <20020722.103303.65681445.shirai at example.com>
Date: Mon, 22 Jul 2002 10:33:03 +0900 (JST)

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

あぁ、その folder(directory) が存在しないとエラーになりそうです
ね。

(defsubst mew-summary-folder-dir-newp ()
  (let* ((folder (mew-summary-folder-name 'ext))
	 (dir (file-chase-links (mew-expand-folder folder)))
	 (t1 (if mew-touch-folder-p
		 (mew-file-get-time
		  (expand-file-name mew-summary-touch-file
				    (mew-expand-folder dir)))
	       (mew-file-get-time dir)))
	 (cache (expand-file-name mew-summary-cache-file dir))
	 (t2 (mew-file-get-time cache)))
    (if (and mew-touch-folder-p (null t1)
	     (file-directory-p dir)
	     (mew-dir-messages (mew-expand-folder dir)))
	t
      (mew-compare-times t1 t2))))

-- 
白井秀行 (mailto:shirai at example.com)