From: teranisi <teranisi>
Date: Thu, 30 Jan 2003 04:15:34 +0000 (+0000)
Subject: * pldap.el (ldap-search-basic): Don't treat exit status 32 as an
X-Git-Tag: wl-2_10_1pre~40
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9a3482500c7b54633c60d7c6261c21ad173e2ac2;p=elisp%2Fwanderlust.git

* 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 0bae15f..9f0aed8 100644
--- 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
--- 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))