From 8c2f741334a0d2fee49eaa7ed8a50ee0ae323bd3 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Wed, 21 Nov 2012 02:42:24 +0000
Subject: [PATCH] 2012-11-21 03:35 UTC+0100 Viktor Szakats (harbour syenar.net)
   * contrib/hbtip/mail.prg     ! fixed regression in r18462 where casing of
 class name       in a string got accidentally converted to natural.      
 Many thanks to Itamar Lins for the find.

---
 harbour/ChangeLog              | 6 ++++++
 harbour/contrib/hbtip/mail.prg | 2 +-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index d3a33b134f..e9d9b359b7 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -10,6 +10,12 @@
      * Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
  */
 
+2012-11-21 03:35 UTC+0100 Viktor Szakats (harbour syenar.net)
+  * contrib/hbtip/mail.prg
+    ! fixed regression in r18462 where casing of class name
+      in a string got accidentally converted to natural.
+      Many thanks to Itamar Lins for the find.
+
 2012-11-21 01:07 UTC+0100 Viktor Szakats (harbour syenar.net)
   * utils/hbmk2/hbmk2.prg
     + implemented theoretically correct solution to extract
diff --git a/harbour/contrib/hbtip/mail.prg b/harbour/contrib/hbtip/mail.prg
index 5ad1dc196c..3d037cebd3 100644
--- a/harbour/contrib/hbtip/mail.prg
+++ b/harbour/contrib/hbtip/mail.prg
@@ -251,7 +251,7 @@ METHOD SetFieldOption( cPart, cOption, cValue ) CLASS TIPMail
 
 METHOD Attach( oSubPart ) CLASS TIPMail
 
-   IF HB_ISOBJECT( oSubPart ) .AND. oSubPart:ClassName == "TIPMail"
+   IF HB_ISOBJECT( oSubPart ) .AND. oSubPart:ClassName == "TIPMAIL"
       // reset wrong content-type
       IF At( "multipart/", Lower( ::GetFieldPart( "Content-Type" ) ) ) == 0
          ::hHeaders[ "Content-Type" ] := "multipart/mixed"