From teranisi ＠ gohome.org  Mon Feb  7 09:13:02 2005
From: teranisi ＠ gohome.org (Yuuichi Teranishi)
Date: Mon, 07 Feb 2005 09:13:02 +0900
Subject: =?ISO-2022-JP?B?UmVmZXJlbmNlcxskQiRIGyhCSW4=?=
	=?ISO-2022-JP?B?LVJlcGx5LVRvGyRCJEskRCQkJEYbKEI=?=
In-Reply-To: <vgr7jt4f11.wl%macky@astem.or.jp>
References: <vgr7jt4f11.wl%macky@astem.or.jp>
Message-ID: <u3bw9qlbl.wl%teranisi@gohome.org>

At Mon, 07 Feb 2005 05:19:54 +0900,
Ken Makimura wrote:
> 
> 詳しくみると
> 
>   (std11-parse-msg-ids-string "<xxxx@[aaa.bbb.ccc.ddd]>")
> 
> で
> 
>   ((msg-id (atom . "xxxx") (specials . "@") (domain-literal . "aaa.bbb.ccc.ddd")))
> 
> といったん分解され、
> 
>   (std11-msg-id-string '(msg-id (atom . "xxxx") (specials . "@") (domain-literal . "aaa.bbb.ccc.ddd")))
> 
> で再構成して
> 
>   "<xxxx ＠ aaa.bbb.ccc.ddd>"
> 
> となりますので、これは flim を直すべきなのでしょうか。

処理の抜け、かな？
こんなのですかね。

Index: std11.el
===================================================================
RCS file: /cvs/root/flim/std11.el,v
retrieving revision 1.7.8.10
diff -u -r1.7.8.10 std11.el
--- std11.el	8 Jun 2004 15:44:19 -0000	1.7.8.10
+++ std11.el	7 Feb 2005 00:10:38 -0000
@@ -766,6 +766,8 @@
                    ((eq name 'comment) "")
                    ((eq name 'quoted-string)
                     (concat "\"" (cdr token) "\""))
+		   ((eq name 'domain-literal)
+		    (concat "[" (cdr token) "]"))
                    (t (cdr token)))
                   )))
 	     seq "")

--
Yuuichi Teranishi <teranisi ＠ gohome.org>
http://www.gohome.org/teranisi
"The love you take is equal to the love you make..."