From: teranisi <teranisi>
Date: Tue, 17 Oct 2000 02:47:46 +0000 (+0000)
Subject: Fixed last change.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=refs%2Fheads%2Fbeta;p=elisp%2Fwanderlust.git

Fixed last change.
---

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 5fa37cb..dc912db 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -681,12 +681,12 @@ you."
 						       (elmo-imap4-mailbox
 							mailbox))))
 	      (setq msgdb (elmo-msgdb-load (elmo-string folder)))
-	      (if (elmo-imap4-read-response session tag)
-		  (elmo-imap4-session-set-current-mailbox-internal
-		   session mailbox)))
-	  (and session
-	       (elmo-imap4-session-set-current-mailbox-internal session nil))
-	  (message "Select mailbox %s failed" mailbox))
+	      (setq response (elmo-imap4-read-response session tag)))
+	  (if response
+	      (elmo-imap4-session-set-current-mailbox-internal session mailbox)
+	    (and session
+		 (elmo-imap4-session-set-current-mailbox-internal session nil))
+	    (message "Select mailbox %s failed" mailbox)))
 	msgdb)
     (elmo-msgdb-load (elmo-string folder))))