From a37f49bbfd18cf9c5f9abb6f7babb2ca88a782ac Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Thu, 18 Aug 2011 09:50:24 +0000
Subject: [PATCH] 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                   | 10 ++++++++++
 harbour/contrib/hbcuied/cu_main.prg |  5 ++---
 harbour/contrib/hbtip/sendmail.prg  |  4 +++-
 3 files changed, 15 insertions(+), 4 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 7f608ffb5f..29d5f5f3a0 100644
--- a/harbour/ChangeLog
+++ b/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
 
diff --git a/harbour/contrib/hbcuied/cu_main.prg b/harbour/contrib/hbcuied/cu_main.prg
index 47818e49c6..2b1bd2c7c4 100644
--- a/harbour/contrib/hbcuied/cu_main.prg
+++ b/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
 
 /*----------------------------------------------------------------------*/
diff --git a/harbour/contrib/hbtip/sendmail.prg b/harbour/contrib/hbtip/sendmail.prg
index dfaeab6b65..058fee5718 100644
--- a/harbour/contrib/hbtip/sendmail.prg
+++ b/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.