* std11.el (std11-addr-to-string): Reconstruct domain literal.

From Yuuichi Teranishi [cf. <emacs-mime-ja:01956>]

diff --git a/ChangeLog b/ChangeLog
index 78f7001..ef4aad7 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-11-13  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * std11.el (std11-addr-to-string): Reconstruct domain literal.
+       From Yuuichi Teranishi [cf. <emacs-mime-ja:01956>]
+
 2005-07-25  Daiki Ueno  <ueno@unixuser.org>
 
        * smtp.el (smtp-read-response): Signal an error if connection is

diff --git a/std11.el b/std11.el
index e4a287a..14aa54b 100644 (file)
--- a/std11.el
+++ b/std11.el
@@ -766,6 +766,8 @@ represents addr-spec of RFC 822."
                    ((eq name 'comment) "")
                    ((eq name 'quoted-string)
                     (concat "\"" (cdr token) "\""))
+                   ((eq name 'domain-literal)
+                    (concat "[" (cdr token) "]"))
                    (t (cdr token)))
                   )))
             seq "")