[mel-base-devel] Parse-address problem

[Fred Gibson]

I ran into a problem with parse address in an email where < was
represented with <, so I revised the function to be:

diff --git a/lib/mel-base/rfc2822.lisp b/lib/mel-base/rfc2822.lisp
index 704ce36..e7845af 100644
--- a/lib/mel-base/rfc2822.lisp
+++ b/lib/mel-base/rfc2822.lisp
@@ -622,7 +622,7 @@
          (#\: (parse-group-address string :start start
                                    :end end
                                    :errorp errorp))
-         ((#\< #\@ nil) (parse-mailbox-address string
+         ((#\< #\@ #\; nil) (parse-mailbox-address string
                                            :start start
                                            :end end
                                            :errorp errorp))))

This solved the problem.

My best,

Fred Gibson

Founder / Software Developer
http://www.streamfocus.com

(c)2010 Organon Technologies LLC