[mew-dist 22034] Re: folder search

[Kazu Yamamoto ( 山本和彦 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Subject: [mew-dist 22019] Re: folder search

> どうもありがとうございます。しかし、まさかそのまま入っちゃうとは
> 思っていなかったので、その後の修正をほったらかしていました。追加
> のパッチをお願いします。

マージしました。

> この mew-local-folder< な並び方って、mew-local-folder-insert()
> での binary search のためなのでしょうか？コード見てもわからなかっ
> たので。

むむむ。なぜだろう？

とりあえず、以下のパッチを宛て、1Z でフォルダの一覧を作り直し、生活し
てみて問題がないか検証して下さい。

--かず

Index: mew-local.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-local.el,v
retrieving revision 1.51
diff -c -r1.51 mew-local.el
*** mew-local.el	2002/10/24 08:15:03	1.51
--- mew-local.el	2002/10/25 08:22:40
***************
*** 100,107 ****
  	  (setq ret (cons (mew-local-folder-entry ent nil make-list) ret))
  	  (setq dirs (cdr dirs))) ;; skip subfolder
  	 (t
- 	  (setq ret (nconc (mew-local-folder-make-alist (car dirs) ent make-list) ret))
  	  (setq ret (cons (mew-local-folder-entry (file-name-as-directory ent) dir make-list) ret))
  	  (setq dirs (cdr dirs)))))
         (t
  	(if (string-match mew-regex-ignore-folders ent)
--- 100,107 ----
  	  (setq ret (cons (mew-local-folder-entry ent nil make-list) ret))
  	  (setq dirs (cdr dirs))) ;; skip subfolder
  	 (t
  	  (setq ret (cons (mew-local-folder-entry (file-name-as-directory ent) dir make-list) ret))
+ 	  (setq ret (nconc (mew-local-folder-make-alist (car dirs) ent make-list) ret))
  	  (setq dirs (cdr dirs)))))
         (t
  	(if (string-match mew-regex-ignore-folders ent)