[mew-dist 21125] Re: mew-3.0.55 + mew-ldap-1.27

[Kenichi Niioka ( 新岡賢一 )]

新岡です。
mew-ldap には、大変お世話になっております。

From: Shun-ichi GOTO <gotoh at example.com>
Subject: [mew-dist 21123] Re: mew-3.0.55 + mew-ldap-1.27
Date: Mon, 08 Jul 2002 18:19:17 +0900 (JST)

後> 以下から入手して下さい。
後> http://www.imasy.or.jp/~gotoh/lisp/mew-ldap.el

大変申し訳ありません。
わたしが変なことを申し上げたからだと思うのですが、
フィルターに、'inetOrgPerson' が渡りますので、全てのアドレスがヒッ
トしてしまいます。
というか、'Size limit exceeded' になって、検索が失敗に終ることがあ
ります。

# filter: (|(objectclass=inetOrgPerson)(sn=niioka*)(mail=niioka*)(cn=niioka*))
# requesting: ou sn mail cn

単に、わたしの 'ldif' が間違っているのかもしれませんが、以下のよう
に、全てのレコードに、'objectclass=inetorgperson' が含まれています。

dn: cn= Niioka.Kenichi,mail=ken at example.com,o=unisys
cn: Niioka.Kenichi
mail: ken at example.com
sn: Niioka.Kenichi
o: unisys
ou: どこか
telephoneNumber: 110
objectClass: inetorgperson
objectClass: organization

ということで、わたしの場合は、以下のようにするといまくいきます。

*** mew-ldap.el.1.29.orig       Mon Jul  8 20:28:19 2002
--- mew-ldap.el.1.29    Mon Jul  8 20:04:37 2002
***************
*** 770,776 ****
  Each are \"OR\" combination, and PAT is beginning-match."
    (let ((regexp (if mew-ldap-use-substring-search "(%s=*%s*)" "(%s=%s*)")))
      (concat "(|"
!           "(objectclass=inetOrgPerson)"
            (mapconcat
             '(lambda (x) (format regexp x pat)) ; fixed format
             type-list
--- 770,776 ----
  Each are \"OR\" combination, and PAT is beginning-match."
    (let ((regexp (if mew-ldap-use-substring-search "(%s=*%s*)" "(%s=%s*)")))
      (concat "(|"
! ;;;       "(objectclass=inetOrgPerson)"
            (mapconcat
             '(lambda (x) (format regexp x pat)) ; fixed format
             type-list

--
新岡賢一 (Kenichi Niioka)
ken at example.com