[Mew-dist 09379] Re: b33

[Xin-Zhi Zheng 鄭心知]

鄭＠東工大です．

[Mew-dist 09325,09339,09364] Re: b33 などにあった例の

 >   To: adam
 >   Cc: eve
 KY> FromDomain ではなく、mew-mail-domain が後にくっつくようにしました。

の件で，

=======
(a) 短縮名 adam が .mew-alias に adam at example.com との対応があると，
    adam at example.com を意図しようが adam at example.com を意図しようが，
    To: adam が C-cC-m (C-cC-c) でかならず adam at example.com に
    補完されてしまう;
(b) ローカルに送ろうとする (a) 以外の To: eve が 
    To: eve at example.com に補完されるのは，
    SiteConfig/.im/Config での ToDomain=myhost/localhost とも
    抵触する場合がある
=======
ことで，mew の思想に反しかずさんのお怒りに触れる:-)かもしれ
ないが，姑息な方法としてとりあえず以下のようにして使っています．

--
-------------- next part --------------
--- mew-header.el.orig	Fri Jun 11 18:41:24 1999
+++ mew-header.el	Thu Jun 17 12:09:41 1999
@@ -352,12 +352,9 @@
     (while addrs
       (setq tmp (car addrs))
       (setq addrs (cdr addrs))
-      (setq tmp (mew-alias-get tmp))
       (setq tmp (mapcar (function mew-chop) (mew-split tmp ?,)))
       (setq tmp (delete "" tmp))
-      (setq tmp (mapcar (lambda (x) (if (string-match "@" x)
-					x
-				      (concat x "@" mew-mail-domain)))
+      (setq tmp (mapcar (lambda (x) x)
 			tmp))
       (setq ret (append ret tmp)))
     ret))