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

[Nakagawa Yasuharu]

中川＠東京武蔵野です

## mew + Meadow の環境なので、実はmew-win32しか入っていませんでした :-)

In Message-ID <20030910.205018.34925815.gotoh at example.com>,
 Shun-ichi GOTO <gotoh at example.com> writes on Wed, 10 Sep 2003 20:50:18 +0900 (JST) ...
> mew-addrbook.el を書き替えるのはアレなので、以下の修正をmew-ldap.el に対
> して施して試してもらえませんか？
> 報告の内容からすると、これで問題は解消するかなと思うのですが。

素に戻して試してみました。調子がとてもよろしいです。
ありがとうございます。
 
> 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))
>  

--