From: teranisi <teranisi>
Date: Fri, 27 Oct 2000 08:06:12 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-imap4-session-select-mailbox): Return response
X-Git-Tag: wl-2_4-root~63
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b4d6477123dc6b4abb061a544937f953eacee692;p=elisp%2Fwanderlust.git

* elmo-imap4.el (elmo-imap4-session-select-mailbox): Return response
 value if selecting folder succceeded.
(Advised by MII Kazuyoshi <mii@isl.ntt.co.jp> for prom-wl.)
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 5b3bb07..d0d9d49 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2000-10-27  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-imap4.el (elmo-imap4-session-select-mailbox): Return response
+	value if selecting folder succceeded.
+	(Advised by MII Kazuyoshi <mii@isl.ntt.co.jp> for prom-wl.)
+
 2000-10-26  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* elmo-util.el (elmo-make-directory): Fixed permission lateral
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index dcb2f31..c90ead4 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -676,7 +676,7 @@ If optional argument FORCE is non-nil, select mailbox even if current mailbox
 is same as MAILBOX.
 If second optional argument NO-ERROR is non-nil, don't cause an error when
 selecting folder was failed.
-Returns t if selecting folder succeed. Otherwise, nil is returned."
+Returns response value if selecting folder succeed. "
   (when (or force
 	    (not (string=
 		  (elmo-imap4-session-current-mailbox-internal session)
@@ -702,7 +702,7 @@ Returns t if selecting folder succeed. Otherwise, nil is returned."
 	    (error (or
 		    (elmo-imap4-response-error-text response)
 		    (format "Select %s failed" mailbox))))))
-      result)))
+      (and result response))))
 
 (defun elmo-imap4-check-validity (spec validity-file)
 ;;; Not used.