[Mew-dist 13912] Re: mew-dir-list2

[Kyotaro HORIGUCHI]

堀口です.

At Wed, 23 Aug 2000 12:34:51 +0900, Kazu Yamamoto (山本和彦) <kazu at example.com> wrote in <20000823.123348.68561353.kazu at example.com>
> このパッチを当てた mew-dir-list2 で作成されると期待しているのは、シン
> ボリックリンクがある場合も含め、完全にまとものなフォルダリストです。お
> かしいと思ったら、ささいなことでもよいので、教えて下さい。

 動作の問題ではなくて速度の問題なんです.

| (defun mew-dir-list2 (dir)
|   (let ((default-directory (expand-file-name dir default-directory))
| 	  file dirent dirs ent subdirs)
|     (setq dirent (directory-files "." nil mew-regex-files)) ;; MUST sort

 ちょっと汚くなりますが, Windowsではこの部分で [0-9] 以外の文字を
含む名前だけを取り出すようにするとぐっと速くなりそうですがどうで
しょう.


|     (setq dirent (directory-files "." nil mew-regex-folder-canditate)) ;; MUST sort

mew-regex-folder-candidate はこんな感じで...

(setq mew-regex-folder-candidate "^\\([^.]\\|^.[^.]\\).*[^0-9]")

 Windows 以外では 

(setq mew-regex-folder-candidate mew-regex-files)

-- 
堀口恭太郎