* pldap.el (ldap-search-basic): Don't treat exit status 32 as an

error [wl:11327].

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 01f8f77..76c861b 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,8 @@
 2003-01-30  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * pldap.el (ldap-search-basic): Don't treat exit status 32 as an
+       error [wl:11327].
+
        * elmo-imap4.el (elmo-folder-msgdb-create-plugged): Bind print-level,
        print-depth.
 

diff --git a/elmo/pldap.el b/elmo/pldap.el
index 5d90138..e8b944b 100644 (file)
--- a/elmo/pldap.el
+++ b/elmo/pldap.el
@@ -691,7 +691,10 @@ entry according to the value of WITHDN."
               (not (zerop ret))
               ;; When openldap's `ldapsearch' exceeds response size limit,
               ;; it's exit status becomes `4'.
-               (/= ret 4))
+               (/= ret 4)
+              ;; When openldap's `ldapsearch' uses referral,
+              ;; it's exit status becomes `32'.
+              (/= ret 32))
          (error "LDAP error: \"No such object\""))
       (goto-char (point-min))
       (setq start (point))