[mew-dist 28032] mew-summary-rename-folder に失敗する

[Hayashi Masahiro ( 林 雅博 )]

林と申します。

コピー先が深いディレクトリだと rename-file に失敗してしまうようです。
imap の方はほとんど使っていないのでよくわかりません。

ついでに CVS head だと summary で `c' できないようです。
もしかしてこうでしょうか。

--
 Hayashi Masahiro


Index: mew-summary4.el
===================================================================
RCS file: /cvsmew/mew/mew-summary4.el,v
retrieving revision 1.207
diff -u -r1.207 mew-summary4.el
--- mew-summary4.el	26 Dec 2007 03:13:59 -0000	1.207
+++ mew-summary4.el	31 Dec 2007 19:20:04 -0000
@@ -882,7 +882,7 @@
 	  (case:folder (mew-summary-folder-name 'ext))
 	  (dir (mew-expand-folder case:folder))
 	  (buf (current-buffer))
-	  new-folder new-dir case:new-folder)
+	  new-folder new-dir case:new-folder pdir)
      (cond
       ((mew-folder-localp folder)
        (setq new-folder (mew-input-local-folder folder))
@@ -893,6 +893,9 @@
 	((file-exists-p new-dir)
 	 (message "%s was not moved so %s is existed" folder new-folder))
 	(t
+	 (setq pdir (directory-file-name (file-name-directory (directory-file-name new-dir))))
+	 (unless (file-directory-p pdir)
+	   (mew-make-directory pdir))
 	 (rename-file dir new-dir)
 	 (mew-summary-switch-to-folder new-folder)
 	 (mew-kill-buffer buf)


Index: mew-refile.el
===================================================================
RCS file: /cvsmew/mew/mew-refile.el,v
retrieving revision 1.141
diff -u -r1.141 mew-refile.el
--- mew-refile.el	18 Dec 2007 09:09:43 -0000	1.141
+++ mew-refile.el	31 Dec 2007 19:19:28 -0000
@@ -579,7 +579,8 @@
  (interactive)
  (mew-summary-msg-or-part
   (mew-summary-refilable
-   nil nil nil nil (mew-summary-folder-name))))
+   (mew-summary-refile-body
+    nil nil nil nil (mew-summary-folder-name)))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;