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