* 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 (file)
--- 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 (file)
--- 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 ()