From 9adc2ce51b8d51d9d22af74e9ce421141cdfefe1 Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 6 Aug 2001 08:06:55 +0000 Subject: [PATCH] 2001-08-06 SAITO Atsunori * wl-vars.el (wl-ldap-objectclass): New user option. * wl-address.el (wl-ldap-make-filter): Use it. --- wl/ChangeLog | 6 ++++++ wl/wl-address.el | 2 +- wl/wl-vars.el | 5 +++++ 3 files changed, 12 insertions(+), 1 deletion(-) 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 + + * wl-vars.el (wl-ldap-objectclass): New user option. + + * wl-address.el (wl-ldap-make-filter): Use it. + 2001-08-03 Yuuichi Teranishi * 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 -- 1.7.10.4