From: yoichi <yoichi>
Date: Sun, 26 Sep 2004 14:15:06 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-folder-delete): Clear current-mailbox after
X-Git-Tag: wl-2_12-root~76
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8892b861bf7f716d1610e2446d10fcf95ddc43c8;p=elisp%2Fwanderlust.git

* elmo-imap4.el (elmo-folder-delete): Clear current-mailbox after
deletion.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 74f0f18..2ffde2e 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2004-09-26  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* elmo-imap4.el (elmo-folder-delete): Clear current-mailbox after
+	deletion.
+
 2004-09-24  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-mime.el (elmo-mime-display-as-is-internal): Insert decoded
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 4bfcebe..6c60bb4 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -2085,7 +2085,8 @@ Return nil if no complete line has arrived."
 	   session
 	   (list "delete "
 		 (elmo-imap4-mailbox
-		  (elmo-imap4-folder-mailbox-internal folder))))))
+		  (elmo-imap4-folder-mailbox-internal folder)))))
+	(elmo-imap4-session-set-current-mailbox-internal session nil))
       (elmo-msgdb-delete-path folder)
       t)))