2011-08-18 11:47 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

* contrib/hbcuied/cu_main.prg
    ! do not reference SVN source tree at runtime (-icon option is enough)
      BTW favicon.ico is for webpages, for apps harb_win.ico is the one
  * contrib/hbtip/sendmail.prg
    ! if hb_SendMail() receives invalid password, mail isn't sent, but 
      hb_SendMail() returns .T.
      Fix from Dmitry Ryzhkov via Pavel Tsarenko.

harbour/ChangeLog

@@ -16,9 +16,19 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2011-08-18 11:47 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * contrib/hbcuied/cu_main.prg
+    ! do not reference SVN source tree at runtime (-icon option is enough)
+      BTW favicon.ico is for webpages, for apps harb_win.ico is the one
+  * contrib/hbtip/sendmail.prg
+    ! if hb_SendMail() receives invalid password, mail isn't sent, but 
+      hb_SendMail() returns .T.
+      Fix from Dmitry Ryzhkov via Pavel Tsarenko.
+
 2011-08-18 11:12 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * contrib/hbcuied/cu_main.prg
     ! deleted forced GT selection code to let it build on any platform
+    ! do not show local version number (v1.0)
   * contrib/hbcuied/hbcuied.hbp
     ! -gtwvt guarded for win platform
 

harbour/contrib/hbcuied/cu_main.prg

@@ -81,11 +81,10 @@ FUNCTION Main( cSource, cScreen )
 
    hb_gtInfo( HB_GTI_WINTITLE  , "Harbour CUI Forms Designer" )
    hb_gtInfo( HB_GTI_RESIZEMODE, HB_GTI_RESIZEMODE_ROWS )
-   hb_gtInfo( HB_GTI_ICONFILE  , "..\..\package\favicon.ico" )
 
    oCUI := hbCUIEditor():new( cSource, cScreen ):create()
    oCUI:destroy()
-   
+
    ErrorBlock( bErr )
 
    RETURN NIL 
@@ -100,7 +99,7 @@ FUNCTION ThisError( oError )
              ProcName( 4 ) + "-" + hb_ntos( procLine( 4 ) ) + ";" + ;
              ProcName( 5 ) + "-" + hb_ntos( procLine( 5 ) ) )
    QUIT
-   
+
    RETURN oError
 
 /*----------------------------------------------------------------------*/

harbour/contrib/hbtip/sendmail.prg

@@ -197,9 +197,11 @@ FUNCTION hb_SendMail( cServer, nPort, cFrom, xTo, xCC, xBCC, cBody, cSubject, ;
       BEGIN SEQUENCE
          oUrl1 := tUrl():New( iif( lTLS, "pop3s://" , "pop://" ) + cUser + ":" + cPass + "@" + cPopServer + "/" )
          oUrl1:cUserid := StrTran( cUser, "&at;", "@" )
-         opop:= tIPClientPOP():New( oUrl1, xTrace )
+         oPop := tIPClientPOP():New( oUrl1, xTrace )
          IF oPop:Open()
             oPop:Close()
+         ELSE
+            lReturn := .F.
          ENDIF
       RECOVER
          lReturn := .F.