[mew-dist 28037] Re: mew-summary-rename-folder に失敗する

[Hayashi Masahiro ( 林 雅博 )]

林です。

今の状態だとやっぱり落ちてしまいます。


--
 Hayashi Masahiro

Index: mew-func.el
===================================================================
RCS file: /cvsmew/mew/mew-func.el,v
retrieving revision 1.188
diff -u -r1.188 mew-func.el
--- mew-func.el	4 Jan 2008 08:06:46 -0000	1.188
+++ mew-func.el	6 Jan 2008 04:21:03 -0000
@@ -824,7 +824,8 @@
 
 (defun mew-rename-directory (src dst)
   (let ((parent (mew-parent-directory (directory-file-name dst))))
-    (mew-make-directory parent)
+    (unless (file-directory-p parent)
+      (mew-make-directory parent))
     (rename-file src dst)))
 
 (defun mew-make-directory (path)