From 03a8fed83e9c6900a814c09c5b79f27893ee1ccc Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 17 Oct 2000 02:47:46 +0000 Subject: [PATCH] Fixed last change. --- wl/wl-summary.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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)))) -- 1.7.10.4