[Mew-dist 16379] Multibyte character folder name and mew-dir-messages

[Kyotaro HORIGUCHI]

堀口です.

 いつからかわかりませんが漢字入りの名前のフォルダでソートができな
くなりました.

 せめて切り替えられるようにしてほしいのですがどうでしょうか.


Mew-1.95b104/105 へのパッチです.

--- mew-vars.el.orig	Thu Feb 15 00:08:16 2001
+++ mew-vars.el	Thu Feb 15 14:24:56 2001
@@ -806,4 +806,8 @@
 Otherwise, Mew doesn't add Sender:.")
 
+(defvar mew-use-multibyte-folder-name nil
+  "If non-nil, Mew takes care of multibyte characters in folder names,
+but slows directory scan.")
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
--- mew-func.el.orig	Wed Feb 14 14:35:22 2001
+++ mew-func.el	Thu Feb 15 14:25:08 2001
@@ -502,7 +502,9 @@
 
 (defsubst mew-dir-messages (dir)
-  (let ((default-file-name-coding-system nil) ;; this make scan faster
-	(file-name-coding-system nil))
-    (directory-files dir nil mew-regex-message-files 'no-sort)))
+  (if mew-use-multibyte-folder-name
+      (directory-files dir nil mew-regex-message-files 'no-sort)
+    (let ((default-file-name-coding-system nil) ;; this make scan faster
+	  (file-name-coding-system nil))
+      (directory-files dir nil mew-regex-message-files 'no-sort))))
 
 (defun mew-folder-new-message (folder &optional num-only)

-- 
堀口恭太郎