From 47acf3921b235e3628a6cd6de9fc4564c2148ad3 Mon Sep 17 00:00:00 2001 From: okada Date: Mon, 21 Jan 2002 21:12:11 +0000 Subject: [PATCH] * elmo-imap4.el (elmo-folder-rename-internal): Change current mailbox to new-folder. --- elmo/ChangeLog | 5 +++++ elmo/elmo-imap4.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) 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 + + * elmo-imap4.el (elmo-folder-rename-internal): Change current + mailbox to new-folder. + 2002-01-21 Yuuichi Teranishi * 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)) -- 1.7.10.4