From: teranisi <teranisi>
Date: Mon, 6 Aug 2001 08:06:55 +0000 (+0000)
Subject: 2001-08-06  SAITO Atsunori <sai@yedo.com>
X-Git-Tag: wl-2_7_2~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9adc2ce51b8d51d9d22af74e9ce421141cdfefe1;p=elisp%2Fwanderlust.git

2001-08-06  SAITO Atsunori <sai@yedo.com>

	* wl-vars.el (wl-ldap-objectclass): New user option.

	* wl-address.el (wl-ldap-make-filter): Use it.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 3c870b4..69dcc87 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2001-08-06  SAITO Atsunori <sai@yedo.com>
+
+	* wl-vars.el (wl-ldap-objectclass): New user option.
+
+	* wl-address.el (wl-ldap-make-filter): Use it.
+
 2001-08-03  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-fldmgr.el (wl-fldmgr-rename): Fixed second argument.
diff --git a/wl/wl-address.el b/wl/wl-address.el
index 52e1ee2..2dc1ced 100644
--- a/wl/wl-address.el
+++ b/wl/wl-address.el
@@ -104,7 +104,7 @@ If level 3 is required for uniqness with other candidates,
 (defun wl-ldap-make-filter (pat type-list)
   "Make RFC1558 quiery filter for PAT from ATTR-LIST.
 Each are \"OR\" combination, and PAT is beginning-match."
-  (concat "(&(objectclass=person)(|"
+  (concat "(&(objectclass=" wl-ldap-objectclass ")(|"
 	  (mapconcat (lambda (x) (format "(%s=%s*)" x pat)) ; fixed format
 		     type-list
 		     "")
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index b34a4ae..f55d3d5 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -682,6 +682,11 @@ Default is for 'followup-to-me'."
   :type '(string :tag "Base")
   :group 'wl)
 
+(defcustom wl-ldap-objectclass "person"
+  "*LDAP objectclass."
+  :type 'string
+  :group 'wl)
+
 (defcustom wl-use-ldap nil
   "*If non-nil, use LDAP for address completion."
   :type 'boolean