fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2012-11-21 03:35 UTC+0100 Viktor Szakats (harbour syenar.net)

Browse Source 
* 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.
This commit is contained in:
Viktor Szakats
2012-11-21 02:42:24 +00:00
parent 9c50617dbe
commit 8c2f741334
2 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -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

2
harbour/contrib/hbtip/mail.prg
View File

@@ -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"