From: teranisi <teranisi>
Date: Thu, 12 Oct 2000 07:35:53 +0000 (+0000)
Subject: * elmo-localdir.el (elmo-localdir-list-folders-subr): Bind
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=66785ec382fd9ef2e960296d8e187f24b656d40f;p=elisp%2Fwanderlust.git

* elmo-localdir.el (elmo-localdir-list-folders-subr): Bind
`w32-get-true-file-link-count' as t.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index c940f7e..13c2ed8 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,8 @@
 2000-10-12  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* elmo-localdir.el (elmo-localdir-list-folders-subr): Bind
+	`w32-get-true-file-link-count' as t.
+
 	* elmo-imap4.el (elmo-imap4-read): Abolished.
 	(Renamed to `elmo-read' and moved to elmo-util.el)
 	All other related portions are changed.
diff --git a/elmo/elmo-localdir.el b/elmo/elmo-localdir.el
index f6bc0e6..89a4c43 100644
--- a/elmo/elmo-localdir.el
+++ b/elmo/elmo-localdir.el
@@ -170,6 +170,7 @@
 
 (defun elmo-localdir-list-folders-subr (folder &optional hierarchy)
   (let ((case-fold-search t)
+	(w32-get-true-file-link-count t) ; for Meadow
 	folders curdir dirent relpath abspath attr
 	subprefix subfolder)
     (condition-case ()