* elmo-msgdb.el (elmo-msgdb-rename-path): Fix.

* elmo-imap4.el (elmo-imap4-rename-folder): Send select command
 before rename command.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index a853a0c..6b1bd54 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,10 @@
+2001-02-16  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-msgdb.el (elmo-msgdb-rename-path): Fix.
+
+       * elmo-imap4.el (elmo-imap4-rename-folder): Send select command
+       before rename command.
+
 2001-02-14  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * elmo2.el (elmo-buffer-cache-message): Added argument `unread'.

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index cc6ab2a..aa0c58a 100644 (file)
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -622,6 +622,8 @@ BUFFER must be a single-byte buffer."
 
 (defun elmo-imap4-rename-folder (old-spec new-spec)
   (let ((session (elmo-imap4-get-session old-spec)))
+    (elmo-imap4-session-select-mailbox session
+                                      (elmo-imap4-spec-mailbox old-spec))
     (elmo-imap4-send-command-wait session "close")
     (elmo-imap4-send-command-wait
      session

diff --git a/elmo/elmo-msgdb.el b/elmo/elmo-msgdb.el
index 80833b9..b4cbcf4 100644 (file)
--- a/elmo/elmo-msgdb.el
+++ b/elmo/elmo-msgdb.el
@@ -817,8 +817,8 @@ Header region is supposed to be narrowed."
        (elmo-delete-directory path t))))
 
 (defun elmo-msgdb-rename-path (old-folder new-folder &optional old-spec new-spec)
-  (let* ((old (directory-file-name (elmo-msgdb-expand-path old-spec)))
-        (new (directory-file-name (elmo-msgdb-expand-path new-spec)))
+  (let* ((old (directory-file-name (elmo-msgdb-expand-path old-folder)))
+        (new (directory-file-name (elmo-msgdb-expand-path new-folder)))
         (new-dir (directory-file-name (file-name-directory new))))
     (if (not (file-directory-p old))
        ()