From: teranisi Date: Thu, 15 Feb 2001 22:19:32 +0000 (+0000) Subject: * elmo-msgdb.el (elmo-msgdb-rename-path): Fix. X-Git-Tag: wl-2_6-root~118 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ca221a6476af9a1778e19f6d6f160bbcff2088d4;p=elisp%2Fwanderlust.git * 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 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,10 @@ +2001-02-16 Yuuichi Teranishi + + * 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 * 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 --- 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 --- 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)) ()