返信時の宛先アドレスのニックネーム? について

[MAKINO Takashi]

牧野＠習志野 です。

>>>>> In "Re: 返信時の宛先アドレスのニックネーム? について"
>>>>>    [Wanderlust : No.05189],
>>>>> at Fri, 14 Jul 2000 09:20:49 +0900, Hiroya Murata wrote:

> > From: "hoge" <hoge ＠ hoge.com> なメールに返信すると To: に何も入らないよ
> > うです。From: hoge <hoge ＠ hoge.com> だとfull-nameとaddressがちゃんと入
> > りますけど。
> 
> もしかして，次の様な設定にしていませんか?
> 
> ;;; for broken message header.
> (setq eword-lexical-analyzer
>       '(;;eword-analyze-quoted-string
> 	eword-analyze-domain-literal
> 	eword-analyze-comment
> 	eword-analyze-spaces
> 	eword-analyze-special
> 	eword-analyze-encoded-word
> 	eword-analyze-atom))
> 
> この様にしていると，(eword-extract-address-components addr) が，
> (nil nil) を返すので，To: が空になってしまうみたいです．

すいません、これはこういうもん(仕様)なんでしょうか？
邪悪だというのはわかっていても、この設定をやめれない悲しい環境なので、
なんとかなればありがたいです。

eword-extract-address-components を使わないで、単純に

-------------- next part --------------
Index: wl-draft.el
===================================================================
RCS file: /cvs/root/wanderlust/wl/wl-draft.el,v
retrieving revision 1.2.2.5
diff -u -r1.2.2.5 wl-draft.el
--- wl-draft.el	2000/07/13 03:44:48	1.2.2.5
+++ wl-draft.el	2000/07/15 15:42:03
@@ -333,11 +333,9 @@
 	  (setq addr-alist
 		(mapcar
 		 '(lambda (addr)
-		    (setq addr (eword-extract-address-components addr))
-		    (cons (nth 1 addr)
-			  (if (nth 0 addr)
-			      (concat (nth 0 addr) " <" (nth 1 addr) ">")
-			    (nth 1 addr))))
+		    (cons 
+		     (wl-address-header-extract-address addr)
+		     addr))
 		 (append to cc)))))
     (and subject wl-reply-subject-prefix
 	 (let ((case-fold-search t))

-------------- next part --------------
と、してしまってはダメなんですよね…

--
MAKINO Takashi (牧野隆志) <makino ＠ makino@cyber.office.ne.jp>