--- parser3/src/classes/mail.C	2001/04/15 13:12:17	1.18
+++ parser3/src/classes/mail.C	2001/04/26 14:55:12	1.22
@@ -5,12 +5,12 @@
 
 	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
 
-	$Id: mail.C,v 1.18 2001/04/15 13:12:17 paf Exp $
+	$Id: mail.C,v 1.22 2001/04/26 14:55:12 paf Exp $
 */
 
 #include "pa_config_includes.h"
 
-#ifdef WIN32
+#ifdef _MSC_VER
 #	include "smtp/smtp.h"
 #endif
 
@@ -96,7 +96,7 @@ static void uuencode(String& result, con
 	}
 	
 	//footer
-	result.APPEND_CLEAN((const char *)uue_table, 1/* one char */, 0, 0) << "\n"
+	result.APPEND_AS_IS((const char *)uue_table, 1/* one char */, 0, 0) << "\n"
 		"end\n";
 }
 
@@ -146,8 +146,19 @@ static const String& attach_hash_to_stri
 }
 
 
+static bool find_content_type(const Hash::Key& aattribute, Hash::Val *ameaning, 
+							  void *) {
+	return StrEqNc(aattribute.cstr(), CONTENT_TYPE_NAME);
+}
+static bool find_content_type_charset(const Hash::Key& aattribute, Hash::Val *ameaning, 
+									  void *) {
+	return StrEqNc(aattribute.cstr(), "charset");
+}
+
+/// used by mail: _send / letter_hash_to_string / add_header_attribute
 struct Mail_info {
 	String *attribute_to_exclude;
+	const char *charset;
 	String *header;
 	const String **from, **to;
 };
@@ -170,9 +181,12 @@ static void add_header_attribute(const H
 	// append header line
 	*mi.header << 
 		aattribute << ":" << 
-		attributed_meaning_to_string(lmeaning, String::UL_MAIL_HEADER) << 
+		attributed_meaning_to_string(lmeaning, String::UL_MAIL_HEADER).
+			cstr(String::UL_UNSPECIFIED, 0, mi.charset) << 
 		"\n";
 }
+
+/// used in mail: _send / letter_hash_to_string / add_part
 struct Seq_item {
 	const String *part_name;
 	Value *part_value;
@@ -213,9 +227,19 @@ static const String& letter_hash_to_stri
 
 	// prepare header: 'hash' without "body"
 	String& result=*new(pool) String(pool);
+
+	const char *charset=0;
+	if(Value *content_type=
+		static_cast<Value *>(letter_hash.first_that(find_content_type)))
+		if(Hash *hash=content_type->get_hash())
+			if(Value *content_type_charset=
+				static_cast<Value *>(hash->first_that(find_content_type_charset)))
+				charset=content_type_charset->as_string().cstr();
+
 	*from=*to=0;
 	Mail_info mail_info={
 		/*excluding*/ body_name,
+		charset,
 		&result,
 		from, to
 	};
@@ -276,7 +300,7 @@ static void sendmail(Request& r, const S
 
 	char *letter_cstr=letter.cstr();
 
-#ifdef WIN32
+#ifdef _MSC_VER
 	if(!from)
 		PTHROW(0, 0,
 			&method_name,
@@ -370,6 +394,7 @@ static void sendmail(Request& r, const S
 
 // methods
 
+/// ^mail:send{hash}
 static void _send(Request& r, const String& method_name, MethodParams *params) {
 	Pool& pool=r.pool();
 
@@ -383,12 +408,12 @@ static void _send(Request& r, const Stri
 	const String *from, *to;
 	const String& letter=letter_hash_to_string(r, method_name, *hash, 0, &from, &to);
 
-	//r.write_assign_lang(*new(pool) VString(letter));
+//	r.write_assign_lang(*new(pool) VString(letter));
 	sendmail(r, method_name, letter, from, to);
 }
 
 // initialize
 void initialize_mail_class(Pool& pool, VStateless_class& vclass) {
-	// ^mail:send{hash}
+	/// ^mail:send{hash}
 	vclass.add_native_method("send", Method::CT_STATIC, _send, 1, 1);
 }