101	101	"Name" <email>, the corresponding output will be similar (including both
			102	102	names and email), but only the actual email address will be checked.
			103	103	} {
			104		set return_emails {}
				104	set return_emails [list]
			105	105	foreach email $email_list {
			106	106	set email [string trim $email]
			107	107	if { ![regexp {<([^>]+)>} $email match email_value] } {
			170	170	@param content_types The name of the variable you want the list of content-type headers stored in.
			171	171	@return A list of header value pairs.
			172	172	} {
			173		set return_fields {}
				173	set return_fields [list]
			174	174	upvar $references_var rvar
			175		set rvar {}
				175	set rvar [list]
			176	176	upvar $content_types c_types
			177		set c_types {}
				177	set c_types [list]
			178	178	if { $header_display_style == "short" } {
			179	179	set header_restriction_clause " and lower(name) in ('cc', 'in-response-to', 'references', 'reply-to', 'to', 'from', 'subject', 'date', 'content-type')"
			180	180	} else {
			188	188	ORDER BY sort_order desc"]
			189	189
			190	190	# Re-order four main headers to always be first
			191		set new_header_fields {}
				191	set new_header_fields [list]
			192	192	foreach name { from to subject date } {
			193	193	set pos [lsearch -regexp $header_fields "^${name} (.*)"]
			194	194	lappend new_header_fields [lindex $header_fields $pos]
			301	301	}
			302	302	set last $msg_id
			303	303	}
			304		set nav_links {}
				304	set nav_links [list]
			305	305	return [list [list "Previous Unread" $prev_unread] \
			306	306	[list "Previous" $prev] [list "Next" $next] \
			307	307	[list "Next Unread" $next_unread] ]