[Mew-dist 13908] Re: b54

[NAKAGAWA Takayuki]

中川＠ OS/2 ユーザ残党です。

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [Mew-dist 13907] Re: b54
Date: Wed, 23 Aug 2000 10:38:34 +0900
Message-ID: <20000823.103744.127161200.kazu at example.com>

中>   例えば、~/Mail/foo の下に symlink があって他に subdirectory がない場
中> 合、foo の link count は 2 のままなので、symlink は追いかけてくれない
中> と思います。~/Mail 直下からの symlink か、他に subdirectory があれば大
中> 丈夫。
山> 確認です。数字だけからなるディレクトリがないとします。
山> 	(setq mew-folder-list-skip-pattern "^[0-9]+$")
山> と設定すれば、望み通りのディレクトリのリストができあがりますか？

  OS/2 上で（数字だけからなるディレクトリはありません）
	(setq mew-folder-list-skip-pattern "^[0-9]+$")
  を評価し、
	C-u Z (mew-status-update)
	g (mew-summary-goto-folder)
  で TAB を叩いてできた *Mew completions* バッファを見ると、"+" だけ、
及び同じフォルダーが複数回入っているのが変です。

山> 制約のある Windows や OS/2 では、mew-folder-list-skip-pattern を通常設
山> 定してもらうものだと考えています。

  mew-folder-list-skip-pattern を nil にしても全く変わりありません。

  link count が 2 でないサブフォルダに降りていって、実はその下がなかっ
た場合に返る nil の扱いがおかしいんじゃないかと思います。

diff -u -a "g:/usr/local/emacs-20.x/site-lisp/mew-1.95b54/mew.el~" "g:/usr/local/emacs-20.x/site-lisp/mew-1.95b54/mew.el"
--- g:/usr/local/emacs-20.x/site-lisp/mew-1.95b54/mew.el~	Fri Aug 18 13:58:54 2000
+++ g:/usr/local/emacs-20.x/site-lisp/mew-1.95b54/mew.el	Wed Aug 23 11:33:38 2000
@@ -312,7 +312,8 @@
 		     (not (string-match mew-folder-list-skip-pattern ent)))
 		(and (mew-file-get-links ent) ;; necessary
 		     (/= (mew-file-get-links ent) 2)))
-	    (setq dirs (cons (mew-dir-list2 file) dirs)))))
+	    (let ((subdirs (mew-dir-list2 file)))
+	      (if subdirs (setq dirs (cons subdirs dirs)))))))
     (nreverse dirs)))
 
 (defmacro mew-folder-make-list (dirs prefix)

  で（一部順番は違うものの）1.94b2 と同じ *Mew completions* が出来まし
た。OS/2 では全サブディレクトリに降りていってしまうので高速化の効果は
ありませんが。

ではでは。

--
  中川貴之  (株)日立製作所 エンタープライズサーバ事業部 Ｎセ２Ｇ