Hi!
I have problems checking for a successful login after calling
"imapsend.Login". I found out that the flag FAuthDone for the function
"imapsend.AuthDone" is not always set correctly. I suggest the patch
attached which adds setting the flag in the function AuthLogin.
Thanks for any comments.
Dirk
Index: imapsend.pas
===================================================================
--- imapsend.pas (revision 185)
+++ imapsend.pas (working copy)
@@ -501,6 +501,9 @@
function TIMAPSend.AuthLogin: Boolean;
begin
Result := IMAPcommand('LOGIN "' + FUsername + '" "' + FPassword + '"') =
'OK';
+ if Result then begin
+ FAuthDone := True;
+ end;
end;
function TIMAPSend.Connect: Boolean;
------------------------------------------------------------------------------
_______________________________________________
synalist-public mailing list
synalist-public@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/synalist-public
