[mew-dist 28037] Re: mew-summary-rename-folder に失敗する
Hayashi Masahiro ( 林 雅博 )
mhayashi1120 at example.com
2008年 1月 6日 (日) 13:36:55 JST
林です。
今の状態だとやっぱり落ちてしまいます。
--
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)
Mew-dist メーリングリストの案内