address = mailbox ; one addressee 
/ group ; named list 

group = phrase ":" [#mailbox] ";" 

mailbox = addr-spec ; simple address 
/ phrase route-addr ; name & addr-spec 

route-addr = "<" [route] addr-spec ">" 

route = 1#("@" domain) ":" ; path-relative 

addr-spec = local-part "@" domain ; global address 

local-part = word *("." word) ; uninterpreted 
; case-preserved 

domain = sub-domain *("." sub-domain) 

sub-domain = domain-ref / domain-literal 

domain-ref = atom ; symbolic reference

final Parser comma = Terms.getParser(",");
final Parser commas = comma.many1();
final Parser pound(Parser p){
  return Parsers.sepBy1(commas, p);
}

commas = comma.many1();
Parser list(final p){
  return Parsers.sepBy(commas, p);
}
Parser list1(final P){
  return Parsers.sepBy1(commas, p);
}
domain_ref = atom;
sub_domain = Parsers(domain_ref, domain_literal);
domain = sub_domain.seq(word_dot.seq(sub_domain).many());
addr_spec = local_part.folowedBy(word_at).seq(domain);
route = list1(word_at.seq(domain)).followedBy(colon);
route_addr = Parsers.between(lt, gt, route.optional().seq(addr_spec));
mailbox = Parsers.plus(adr_spec, phrase.seq(route_addr));
group = phrase.followedBy(colon).seq(list(mailbox).followedBy(semicolon));
address = Parsers.plus(mailbox, group);

之后,我看到了ajoo的Jparsec,觉得他的方案不错;但我就是不知道他的方案是否能完全cover到RFC822的语法定义;也就是说能否完全表达由ABNF所描述的RFC822的语法定义.

// 处理非 ASCII 文本，进行 BASE64 和 QP 解码
AnsiString DecodeNonAsciiText(const AnsiString & str, AnsiString & charset)
{
	const ENCODE_BASE64='B';
	const ENCODE_QUOTED_PRINTABLE='Q';
	int encode_mode;
	int i;
	AnsiString result;

	try{
		for(i=0;i<(int)str.size();i++){
			if(str[i]=='='&&str[i+1]=='?'){
				i+=2;
				charset="";
				for(;i<(int)str.size()&&str[i]!='?';i++)
					charset+=str[i];
				if(i==(int)str.size())
					throw EAbort();				// decode failed
				i++;
				switch(CharToUpper(str[i])){
					case ENCODE_BASE64:
						encode_mode=ENCODE_BASE64;
						break;
					case ENCODE_QUOTED_PRINTABLE:
						encode_mode=ENCODE_QUOTED_PRINTABLE;
						break;
					default:				
						throw EAbort();			// decode failed
				}
				i++;
				if(str[i]=='?'){
					i++;
					AnsiString t;
					for(;i<(int)str.size()&&str[i]!='?';i++)
						t+=str[i];
					if(str[i]==(int)str.size()&&str[i+1]!='=')
						throw EAbort();			// decode failed
					if(encode_mode==ENCODE_BASE64)
						result+=Base64Decode(t);
					if(encode_mode==ENCODE_QUOTED_PRINTABLE)
						result+=QPDecode(t);
					i++;
				}
				else
					throw EAbort();				// decode failed
			}
			else
				result+=str[i];
		}
	}
	catch(EAbort &){
		charset="";
		return str;
	}
	return result;
}

AnsiString EncodeNonAsciiText(const AnsiString & str)
{
	AnsiString charset;
	return EncodeNonAsciiText(str,charset);
}

// 将 CRLF 去除
AnsiString & RemoveCRLF(AnsiString & str)
{
	for(;;){
		AnsiString::iterator p=str.begin();
		for(;p!=str.end();p++){
			if(*p=='\n'||*p=='\r'){
				str.erase(p);
				break;
			}
		}
		if(p==str.end())
			break;
	}
	return str;
}

AnsiString EncodeNonAsciiText(const AnsiString & str, const AnsiString & charset)
{
	if(str.empty()||charset.empty())
		return str;

	AnsiString result;
	
	result="=?";
	result+=charset;
	result+="?B?";
	result+=RemoveCRLF(Base64Encode(str));
	result+="?=";
	return result;
}

// 合并首部分行（首部要求每行不超过78个字符）

AnsiString UnwarpStringList(const AnsiStringList & list)
{
	AnsiString result;
	for(int i=0;i<(int)list.size();i++)
		result+=AnsiTrim(list[i]);
	return result;
}

// 分行（考虑整字换行）

void WarpStringList(const AnsiString & name, const AnsiStringList & value, AnsiStringList & dst, bool break_on_spaces)
{
	if(name.empty())
		return;
	if(value.empty()){
		dst.push_back(name+": ");
		return;
	}

	AnsiString spaces="\t";

	AnsiString s;
	for(int k=0;k<(int)value.size();k++){
		if(k==0)
			s=name+": "+value[0];
		else
			s=spaces+value[k];

		if((int)s.size()>MAX_MESSAGE_LINE_LENGTH){
			if(break_on_spaces){
				while((int)s.size()>MAX_MESSAGE_LINE_LENGTH){
					int i;
					for(i=MAX_MESSAGE_LINE_LENGTH;i>=0&&s[i]!=';'&&s[i]!=',';i--)
						;
					if(i>=0)
						i++;
					else
						i=MAX_MESSAGE_LINE_LENGTH;
					dst.push_back(s.substr(0,i));
					s.erase(0,i);
					if(!s.empty())
						s=spaces+s;
				}
				if(!s.empty())
					dst.push_back(s);
			}
			else{
				char quote_char=0;
				int i=0;
				while(i<(int)s.size()){
					if(quote_char==0&&(s[i]==';'||s[i]==',')){
						i++;
						AnsiString p=s.substr(0,i);
						dst.push_back(p);
						s.erase(0,i);
						i=0;
						if(!s.empty())
							s=spaces+s;
					}
					else{
						if(s[i]==quote_char)
							quote_char=0;
						else{
							if(s[i]=='\"')
								quote_char='\"';
							if(s[i]=='<')
								quote_char='>';
							if(s[i]=='(')
								quote_char=')';
						}
						i++;
					}
				}
				if(!s.empty())
					dst.push_back(s);
			}
		}
		else
			dst.push_back(s);
	}
}

// 在字符串两边加上双引号

AnsiString QuoteString(const AnsiString & str)
{
	if(str.empty())
		return "\"\"";
	AnsiString result;
	if(str[0]!='"')
		result="\"";
	result+=str;
	if(str[str.size()-1]!='"')
		result+="\"";
	return result;
}

// 在字符串两边去除双引号

AnsiString UnquoteString(const AnsiString & str)
{
	if(str.empty())
		return str;
	AnsiString result=str;
	if(result[0]=='"')
		result.erase(0,1);
	if(result[result.size()-1]=='"')
		result.erase(result.size()-1,1);
	return result;
}

// 处理混合格式的地址，包括一个名字和地址，如：“=?utf-8?B?5byg576957+8?= <yvyizh@163.com>”
void EmailAddress::DecodingMixedAddress(const AnsiString & mixed_address)
{
	_Charset="";
	_Name="";
	_Address="";
	_IsGroup=false;

	AnsiString t;

	for(int i=0;i<(int)mixed_address.size();){
		if(mixed_address[i]=='<'){
			for(i++;i<(int)mixed_address.size()&&mixed_address[i]!='>';i++)
				_Address+=mixed_address[i];
			for(i++;i<(int)mixed_address.size()&&CharIsSpace(mixed_address[i]);i++)
				;
		}
		else if(mixed_address[i]=='('||mixed_address[i]=='"'){
			char boundary;
			if(mixed_address[i]=='(')
				boundary=')';
			else
				boundary='"';
			for(i++;i<(int)mixed_address.size()&&mixed_address[i]!=boundary;i++)
				_Name+=mixed_address[i];
			for(i++;i<(int)mixed_address.size()&&CharIsSpace(mixed_address[i]);i++)
				;
		}
		else
			t+=mixed_address[i++];
	}

	if(_Name.empty()&&_Address.empty())
		_Address=t;
	else{
		if(_Name.empty())
			_Name=t;
		else if(_Address.empty())
			_Address=t;
	}
	_Name=AnsiTrim(DecodeNonAsciiText(AnsiTrim(_Name),_Charset));
	_IsGroup=_Name.find(':')!=_Name.npos;

	_Address=AnsiTrim(_Address);
}

// 处理多个混合格式的地址，如：
// To: =?utf-8?B?5pyx55C06L6J?= <zhuqh@shanghai-air.com>,
//	=?utf-8?B?5byg576957+8?= <yvyizh@163.com>,
//	=?utf-8?B?5byg54ix6ZSm?= <zhangaijin@shanghai-air.com>

void EmailAddressList::DecodingMixedAddressList(const AnsiStringList & mixed_address_list)
{
	AnsiString s=UnwarpStringList(mixed_address_list);
	AnsiString t;

	for(int i=0;i<(int)s.size();i++){
		if(s[i]==','){
			AddAddress(t);
			t="";
		}
		else
			t+=s[i];
	}
	if(!t.empty())
		AddAddress(t);
}