[Mew-dist 11313] Re: 1.95b5 about アドレス補間

[SAKAI Kiyotaka]

>> In article <19991115154529H.nin at example.com>, Ninomiya Hideyuki <nin at example.com> writes:

> <tab>キーでのアドレス補間にて、複数アドレスのサイクル補間(っていうの?)が
> 出来ない事と、<Meta><tab>での名前補間(って言うので合ってるか?)が出来ず、
> "To: (mew-adbkent-name (mew-adbkent-by-addr mew-dist at example.com))<mew-dist at example.com>"
> こんなんなってしまいます。

このパッチでいいと思います。
-- 
酒井 清隆 (E-mail: ksakai at example.com)
-------------- next part --------------
===================================================================
RCS file: RCS/mew-addrbook.el,v
retrieving revision 1.1
diff -u -r1.1 mew-addrbook.el
--- mew-addrbook.el	1999/11/15 06:54:29	1.1
+++ mew-addrbook.el	1999/11/15 07:00:04
@@ -48,7 +48,7 @@
   (` (mew-addrbook-alias-hit (, user) mew-addrbook-alist)))
 
 (defmacro mew-adbkent-by-addr-with-alist (addr alist)
-  (` (mew-assoc-member-case-equal (, addr) (, mew-addrbook-alist) 1)))
+  (` (mew-assoc-member-case-equal (, addr) mew-addrbook-alist 1)))
 
 (defmacro mew-adbkent-by-addr (addr)
   (` (mew-adbkent-by-addr-with-alist (, addr) mew-addrbook-alist)))
@@ -69,13 +69,13 @@
   (` (mew-adbkent-shortname (mew-adbkent-by-addr (, addr)))))
 
 (defun mew-addrbook-addrs-get (addr)
-  (` (mew-adbkent-addrs (mew-adbkent-by-addr (, addr)))))
+  (mew-adbkent-addrs (mew-adbkent-by-addr addr)))
 
 (defun mew-addrbook-nickname-get (addr)
-  (` (mew-adbkent-nickname (mew-adbkent-by-addr (, addr)))))
+  (mew-adbkent-nickname (mew-adbkent-by-addr addr)))
 
 (defun mew-addrbook-name-get (addr)
-  (` (mew-adbkent-name (mew-adbkent-by-addr (, addr)))))
+  (mew-adbkent-name (mew-adbkent-by-addr addr)))
 
 
 ;;;