From: okada <okada>
Date: Mon, 21 Jan 2002 21:12:11 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-folder-rename-internal): Change current
X-Git-Tag: wl-2_9_6~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=47acf3921b235e3628a6cd6de9fc4564c2148ad3;p=elisp%2Fwanderlust.git

* elmo-imap4.el (elmo-folder-rename-internal): Change current
mailbox to new-folder.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 007bec6..6fef336 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2002-01-22  Kenichi OKADA  <okada@opaopa.org>
+
+	* elmo-imap4.el (elmo-folder-rename-internal): Change current
+	mailbox to new-folder.
+
 2002-01-21  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-imap4.el (elmo-imap4-folder-diff-plugged): If unread is
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 58ba0f7..a26efd5 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -2010,7 +2010,9 @@ Return nil if no complete line has arrived."
 	    (elmo-imap4-folder-mailbox-internal folder))
 	   " "
 	   (elmo-imap4-mailbox
-	    (elmo-imap4-folder-mailbox-internal new-folder))))))
+	    (elmo-imap4-folder-mailbox-internal new-folder))))
+    (elmo-imap4-session-set-current-mailbox-internal
+     session (elmo-imap4-folder-mailbox-internal new-folder))))
 
 (defun elmo-imap4-copy-messages (src-folder dst-folder numbers)
   (let ((session (elmo-imap4-get-session src-folder))