[mew-dist 25827] Patch とか疑問とか

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

# 落ち着いて mew-nmz を見直しています。もうちょっとしたら、また
# パッチを出しますね ^^;;;

で、以下、Mew 本体で気づいた点です。

(1) これ、誤動作はしませんが、冗長です。

Index: mew-scan.el
===================================================================
RCS file: /cvsroot/shirai/mew/mew/mew-scan.el,v
retrieving revision 1.162
diff -u -u -r1.162 mew-scan.el
--- mew-scan.el	2004/12/15 11:35:33	1.162
+++ mew-scan.el	2004/12/26 12:08:46
@@ -706,7 +706,7 @@
 	 (t2 (mew-file-get-time cache)))
     (if (and (null t1)
 	     (file-directory-p dir)
-	     (mew-dir-messages (mew-expand-folder dir)))
+	     (mew-dir-messages dir))
 	t
       (mew-compare-times t1 t2))))

(2) (*) はなにかおかしいのでは？けど、なにが正解なのかがわかりま
    せん。

(defun mew-folder-recursive-match (key folder)
  "Initial substring match for folders.
If FOLDER is a sub-folder of KEY or KEY itself, t is returned."
  ;; file-name-as-directory should be first because
  ;; the path separator may be regex-non-safe.
  (let ((regex (if (string-match "^[+-=%]+$" key)
                                  ~~~~~~~~~ (*)
		   (mew-folder-regex key)
		 (mew-folder-regex (file-name-as-directory key)))))
    (string-match regex (file-name-as-directory folder))))

-- 
白井秀行 (mailto:shirai at example.com)