[Mew-dist 13897] Re: b54

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。ほんのちょっとだけ、冒険してみました。

From: KAMEI Ken-ichi <mule at example.com> さん曰く
Subject: [Mew-dist 13895] Re: b54
Message-ID: <20000822.140700.01371365.mule at example.com>
Date: Tue, 22 Aug 2000 14:05:54 +0900

亀井> 亀井です。
亀井> 
亀井> >>> <20000822134300W.yamagus at example.com> から引用します．
亀井> yamagus> もしかして file-attributes の返すリンクカウントが使われていませんか?
亀井> 
亀井> をぉ！ 正解のようです。

そういえば、山口さんってば、昔これで苦労していましたよね。言われ
るまですっかり忘れていました。

亀井> meadow 固有というお話ですが、これを制御する変数を追加して欲しいです。
亀井> # mew-w32-folder-true-count とかなんとか

たしかそのときに対応がしてあったので、気になって見てみると、今回
の改造のときに、w32-get-true-file-link-count の使い方を勘違いさ
れたようです。

# Win32 には symbolic link なんてもともとないもんね。

付属のパッチの様にするのが正解だと思います。で、これじゃ遅いなぁ
という人は『数字だけの folder を作らない』という前提で、

(setq mew-folder-list-skip-pattern mew-regex-message-files)

とすれば良い、ということで。

-- 
白井秀行 (mailto:shirai at example.com)
-------------- next part --------------
--- mew.el.orig	Fri Aug 18 13:58:55 2000
+++ mew.el	Tue Aug 22 16:21:07 2000
@@ -309,7 +309,7 @@
 	  ()
 	(setq dirs (cons file dirs))
 	(if (or (and mew-folder-list-skip-pattern
-		     (not (string-match mew-folder-list-skip-pattern ent)))
+		     (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)))))
-------------- next part --------------
--- mew-func.el.orig	Fri Aug 18 03:13:57 2000
+++ mew-func.el	Tue Aug 22 15:54:08 2000
@@ -611,7 +611,8 @@
 ;; Functions to get other attributes are implemented in C level.
 
 (defmacro mew-file-get-links (file)
-  (` (nth 1 (file-attributes (, file)))))
+  (` (let ((w32-get-true-file-link-count t)) ;; for Meadow
+       (nth 1 (file-attributes (, file))))))
 
 (defmacro mew-file-get-time (file)
   (` (nth 5 (file-attributes (, file)))))
@@ -646,8 +647,7 @@
 (defmacro mew-file-chase-links (file)
   "Chase links in FILENAME until a name that is not a link.
 Does not examine containing directories for links."
-  (` (let ((w32-get-true-file-link-count t) ;; for Meadow
-	   (ret (, file)) exp)
+  (` (let ((ret (, file)) exp)
        (while (setq exp (file-symlink-p ret))
 	 (setq ret (expand-file-name exp (file-name-directory ret))))
        ret)))