* 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 (file)
--- 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 (file)
--- 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.