[mew-win32 03960] Re: M-TAB doesnot work with mew-ldap.el + mew-3.3 or later

[Shun-ichi GOTO]

## なぜに mew-win32 ?

>>>>> at Wed, 10 Sep 2003 18:54:49 +0900 (LMT),
>>>>> Nakagawa Yasuharu <yasuharu.nakagawa at example.com> said,
> 
> さて、確かmew-3.3以降だと思いますが、mew-addrbook.elが修正されたためか、
> LDAPで検索後、M-TABでユーザ名情報を付加して展開させようとしても、
> うまく動作しませんでした。

メンテしてる本人が未だにmew-2.2 から上げていないため、ご不便をおかけしま
す。


> 根本的解決ではありませんが、とりあえず下記のように、
> mew-addrbook-orig-alistからユーザ名を見ないようにすると
> 従来どおり動作しましたので報告いたします。

mew-addrbook.el を書き替えるのはアレなので、以下の修正をmew-ldap.el に対
して施して試してもらえませんか？
報告の内容からすると、これで問題は解消するかなと思うのですが。

## この件の他にも今のMew では不都合があるかも知れませんが、ご容赦を。
## その都度対応していきたいとは思います。


Index: mew-ldap.el
===================================================================
RCS file: /usr/home/gotoh/Repository/lisp/mew-ldap.el,v
retrieving revision 1.31
diff -u -u -F^.def -r1.31 mew-ldap.el
--- mew-ldap.el	24 Jul 2002 16:26:26 -0000	1.31
+++ mew-ldap.el	10 Sep 2003 11:44:05 -0000
@@ -524,10 +524,9 @@ (defadvice mew-complete (around ldap 
 
 (defadvice mew-addrbook-name-get (around ldap activate)
   "prepending LDAP search result entries."
-  (let ((mew-addrbook-alist
-	 (append (and mew-ldap-use-cache
-		      (cdr mew-ldap-search-cache))
-		 mew-addrbook-alist)))
+  (let* ((cache (and mew-ldap-use-cache (cdr mew-ldap-search-cache)))
+	 (mew-addrbook-alist (append cache mew-addrbook-alist))
+	 (mew-addrbook-orig-alist (append cache mew-addrbook-orig-alist)))
     ad-do-it))
 
 


--- Regards,
 Shun-ichi Goto  <gotoh at example.com>
   R&D Group, TAIYO Corp., Tokyo, JAPAN