[mew-dist 22468] Re: Invalid regexp:"Trailing backslash" というメッセージ

[Hideyuki SHIRAI ( 白井秀行 )]

From: taskeshi noro <tashi at example.com> さん曰く
Subject: [mew-dist 22438] Invalid regexp:"Trailing backslash" というメッセージ
Message-ID: <200212060453.AA00006 at example.com>
Date: Fri, 06 Dec 2002 13:53:11 +0900

> Invalid regexp:"Trailing backslash" というメッセージが出て、
> 困っています。
> 
> operating system : Windows XP professional edition
> XEmacs : v21.4 (patch 8)

XEmacs for Win32 はまったく使ったことがないので、良くわからない
のですが、

>   mew-draft-find-and-switch("c:\\cygwin\\home\\tashi\\Mail\\draft\\1")

これが dos 的なパス表示になっているから、というのが根本原因です。

期待している値
(expand-file-name mew-mail-path)
=> "c:/cygwin/home/tashi/Mail"

野呂さんの環境の値
(expand-file-name mew-mail-path)
=> "c:\\cygwin\\home\\tashi\\Mail"

これ、前者にならないんですか？ XEmacs for Win32 って。> 識者の方

だけど、以下のパッチは必要だと思います。これだけで、野呂さんのそ
の他の動作が動くかどうかはわかりません。

# 通常考えられないけど (setq mew-mail-path "~/.Mail") で
# /home/hoge/xMail にマッチしちゃうとか ^^;

--- ../../kazu/mew/mew-func.el	Fri Dec  6 18:04:52 2002
+++ mew-func.el	Mon Dec  9 17:20:30 2002
@@ -557,8 +557,9 @@
     (mew-string-to-local folder)))
 
 (defun mew-path-to-folder (path)
-  (let ((regex (concat "^" (file-name-as-directory
-			    (expand-file-name mew-mail-path)))))
+  (let ((regex (concat "^"
+		       (regexp-quote (file-name-as-directory
+				      (expand-file-name mew-mail-path))))))
     (if (string-match regex path)
 	(mew-string-to-local (substring path (match-end 0)))
       path)))

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