diff --git a/packages/IMAPClient-Core.package/ICEmail.class/instance/asString.st b/packages/IMAPClient-Core.package/ICEmail.class/instance/asString.st index 2a7a6dfa..111c86ac 100644 --- a/packages/IMAPClient-Core.package/ICEmail.class/instance/asString.st +++ b/packages/IMAPClient-Core.package/ICEmail.class/instance/asString.st @@ -1,4 +1,4 @@ -print +converting asString ^ self headerAsString, String cr, String cr, self bodyAsString, String cr \ No newline at end of file diff --git a/packages/IMAPClient-Core.package/ICEmail.class/instance/deleteEmailFromDisk.st b/packages/IMAPClient-Core.package/ICEmail.class/instance/deleteEmailFromDisk.st index f401e18f..a9b94f2f 100644 --- a/packages/IMAPClient-Core.package/ICEmail.class/instance/deleteEmailFromDisk.st +++ b/packages/IMAPClient-Core.package/ICEmail.class/instance/deleteEmailFromDisk.st @@ -1,5 +1,5 @@ action deleteEmailFromDisk - self folder emails remove: self. + self folder removeMail: self. FileDirectory default deleteFileNamed: (self maildirFileName, FileDirectory slash, self uniqueID) \ No newline at end of file diff --git a/packages/IMAPClient-Core.package/ICEmail.class/methodProperties.json b/packages/IMAPClient-Core.package/ICEmail.class/methodProperties.json index 78530d5a..0cf78523 100644 --- a/packages/IMAPClient-Core.package/ICEmail.class/methodProperties.json +++ b/packages/IMAPClient-Core.package/ICEmail.class/methodProperties.json @@ -16,7 +16,7 @@ "dateInSecondsSince1980" : "tg 7/26/2019 21:04", "dateInSecondsSinceSqueakEpoch" : "tg 7/19/2019 10:35", "deleteEmail" : "fr 7/26/2019 15:41", - "deleteEmailFromDisk" : "fr 7/26/2019 15:41", + "deleteEmailFromDisk" : "tg 7/26/2019 21:59", "deleted" : "DH 7/19/2018 21:58", "deleted:" : "DH 7/19/2018 19:43", "expungeEmails" : "tg 7/26/2019 13:57", diff --git a/packages/IMAPClient-Core.package/ICEndPoint.class/instance/createEmailsWith.andName.and..st b/packages/IMAPClient-Core.package/ICEndPoint.class/instance/createEmailsWith.andName.and..st index dc2a9812..91c085a0 100644 --- a/packages/IMAPClient-Core.package/ICEndPoint.class/instance/createEmailsWith.andName.and..st +++ b/packages/IMAPClient-Core.package/ICEndPoint.class/instance/createEmailsWith.andName.and..st @@ -14,7 +14,7 @@ createEmailsWith: maildirDirectory andName: directoryName and: relativeRootFolde relativeRootFolder addFolder: folder. self createEmailsWith: serverDirectory andName: foldername and: folder]. - relativeRootFolder emails addAll: (serverDirectory fileNames collect: [:filename | + relativeRootFolder addMails: (serverDirectory fileNames collect: [:filename | (filereader get: filename in: (maildirDirectory fullPathFor: directoryName)) folder: relativeRootFolder; yourself ]). diff --git a/packages/IMAPClient-Core.package/ICEndPoint.class/instance/testAccountWith..st b/packages/IMAPClient-Core.package/ICEndPoint.class/instance/testAccountWith..st index 3c478777..c6ea917d 100644 --- a/packages/IMAPClient-Core.package/ICEndPoint.class/instance/testAccountWith..st +++ b/packages/IMAPClient-Core.package/ICEndPoint.class/instance/testAccountWith..st @@ -1,6 +1,6 @@ login -testAccountWith: accountInfo +testAccountWith: anAccountInfo - self connectAndLoginWith: accountInfo. + self connectAndLoginWith: anAccountInfo. ^ self fatalErrorOccured not \ No newline at end of file diff --git a/packages/IMAPClient-Core.package/ICEndPoint.class/methodProperties.json b/packages/IMAPClient-Core.package/ICEndPoint.class/methodProperties.json index 455b63d0..1eef467a 100644 --- a/packages/IMAPClient-Core.package/ICEndPoint.class/methodProperties.json +++ b/packages/IMAPClient-Core.package/ICEndPoint.class/methodProperties.json @@ -24,7 +24,7 @@ "connect" : "tg 7/15/2019 13:27", "connectAndLoginWith:" : "tg 7/26/2019 11:43", "connectWith:" : "tg 7/18/2019 23:00", - "createEmailsWith:andName:and:" : "tg 7/26/2019 21:04", + "createEmailsWith:andName:and:" : "tg 7/26/2019 22:01", "currentFolderName" : "C.G. 7/25/2018 13:50", "currentFolderName:" : "C.G. 7/25/2018 13:50", "currentUIDs" : "fr 7/26/2019 15:48", @@ -72,7 +72,7 @@ "setFlag:and:" : "tg 7/26/2019 13:44", "stream" : "pm 6/9/2019 13:08", "stream:" : "js 6/7/2016 10:17", - "testAccountWith:" : "tg 7/15/2019 12:29", + "testAccountWith:" : "tg 7/26/2019 22:12", "uids" : "C.G. 7/25/2018 13:59", "uids:" : "pm 6/9/2019 16:52", "username" : "ok 7/26/2019 19:09" } } diff --git a/packages/IMAPClient-Core.package/ICEndPoint.class/properties.json b/packages/IMAPClient-Core.package/ICEndPoint.class/properties.json index 883ff12d..96e353df 100644 --- a/packages/IMAPClient-Core.package/ICEndPoint.class/properties.json +++ b/packages/IMAPClient-Core.package/ICEndPoint.class/properties.json @@ -15,7 +15,6 @@ "uids", "hierarchyDelimiter", "currentFolderName", - "name", "fatalErrorOccured", "folderNameOfTrash" ], "name" : "ICEndPoint", diff --git a/packages/IMAPClient-Core.package/ICFileReadWriter.class/instance/createPathRecursive.and..st b/packages/IMAPClient-Core.package/ICFileReadWriter.class/instance/createPathRecursive.and..st index 4e5722a1..57458308 100644 --- a/packages/IMAPClient-Core.package/ICFileReadWriter.class/instance/createPathRecursive.and..st +++ b/packages/IMAPClient-Core.package/ICFileReadWriter.class/instance/createPathRecursive.and..st @@ -10,5 +10,4 @@ createPathRecursive: aPath and: aFileWriter ifFalse: [ aFileWriter createDirectory: subDir first]. self createPathRecursive: (subDir allButFirst joinSeparatedBy: (FileDirectory slash)) - and: (aFileWriter on: subDir first)]. - ^ self \ No newline at end of file + and: (aFileWriter on: subDir first)]. \ No newline at end of file diff --git a/packages/IMAPClient-Core.package/ICFileReadWriter.class/methodProperties.json b/packages/IMAPClient-Core.package/ICFileReadWriter.class/methodProperties.json index 3efca7a6..83beb9bb 100644 --- a/packages/IMAPClient-Core.package/ICFileReadWriter.class/methodProperties.json +++ b/packages/IMAPClient-Core.package/ICFileReadWriter.class/methodProperties.json @@ -4,7 +4,7 @@ "instance" : { "createHeaderFrom:" : "pm 6/3/2019 18:34", "createJsonHeaderFrom:" : "C.G. 7/25/2018 14:00", - "createPathRecursive:and:" : "fr 7/26/2019 15:53", + "createPathRecursive:and:" : "tg 7/26/2019 21:50", "get:in:" : "pm 6/2/2019 15:58", "recipientsFrom:" : "fr 7/26/2019 15:34", "write:in:as:" : "pm 6/2/2019 16:11" } } diff --git a/packages/IMAPClient-Core.package/ICFolder.class/instance/addMails..st b/packages/IMAPClient-Core.package/ICFolder.class/instance/addMails..st new file mode 100644 index 00000000..9c3a9fc9 --- /dev/null +++ b/packages/IMAPClient-Core.package/ICFolder.class/instance/addMails..st @@ -0,0 +1,4 @@ +email access +addMails: aMailCollection + + self emails addAll: aMailCollection. \ No newline at end of file diff --git a/packages/IMAPClient-Core.package/ICFolder.class/instance/childFolderNamed.with.ifAbsent..st b/packages/IMAPClient-Core.package/ICFolder.class/instance/childFolderNamed.with.ifAbsent..st index 883f7820..a025b299 100644 --- a/packages/IMAPClient-Core.package/ICFolder.class/instance/childFolderNamed.with.ifAbsent..st +++ b/packages/IMAPClient-Core.package/ICFolder.class/instance/childFolderNamed.with.ifAbsent..st @@ -1,10 +1,11 @@ folder hierarchy childFolderNamed: childFolderName with: delimiter ifAbsent: block + + | rootPart childPart child parts | ^ self childFolders - detect: [:child | child folderName = childFolderName] + detect: [:subFolder | subFolder folderName = childFolderName] ifNone: [ - | rootPart childPart child parts | "splice at delimiter and ask child" parts := childFolderName subStrings: delimiter. (parts size > 1) diff --git a/packages/IMAPClient-Core.package/ICFolder.class/instance/removeMail..st b/packages/IMAPClient-Core.package/ICFolder.class/instance/removeMail..st new file mode 100644 index 00000000..12d46e40 --- /dev/null +++ b/packages/IMAPClient-Core.package/ICFolder.class/instance/removeMail..st @@ -0,0 +1,4 @@ +email access +removeMail: anICEmail + + self emails remove: anICEmail. \ No newline at end of file diff --git a/packages/IMAPClient-Core.package/ICFolder.class/methodProperties.json b/packages/IMAPClient-Core.package/ICFolder.class/methodProperties.json index 9cfbb044..5f21b25d 100644 --- a/packages/IMAPClient-Core.package/ICFolder.class/methodProperties.json +++ b/packages/IMAPClient-Core.package/ICFolder.class/methodProperties.json @@ -10,11 +10,12 @@ "instance" : { "accountName" : "ok 7/26/2019 19:06", "addFolder:" : "js 6/7/2016 13:09", + "addMails:" : "tg 7/26/2019 22:00", "checkTopicality" : "fr 7/26/2019 15:57", "childFolderNamed:" : "C.G. 7/25/2018 14:02", "childFolderNamed:ifAbsent:" : "tg 7/19/2019 09:19", "childFolderNamed:with:" : "C.G. 6/26/2018 11:01", - "childFolderNamed:with:ifAbsent:" : "tg 7/19/2019 12:58", + "childFolderNamed:with:ifAbsent:" : "tg 7/26/2019 21:52", "childFolders" : "pm 6/9/2019 13:12", "childFolders:" : "js 6/7/2016 11:32", "countFolders" : "C.G. 7/25/2018 14:02", @@ -38,6 +39,7 @@ "recursiveChildFolders" : "tg 7/25/2019 12:56", "removeFolder:" : "C.G. 7/25/2018 14:03", "removeFolder:ifAbsent:" : "C.G. 7/25/2018 14:04", + "removeMail:" : "tg 7/26/2019 21:59", "retrieveFlagsFrom:to:" : "fr 7/26/2019 15:37", "rootFolder" : "ok 7/26/2019 19:05", "startUpdateProcess:" : "tg 7/26/2019 20:33", diff --git a/packages/IMAPClient-Core.package/ICStreamWrapper.class/instance/connectTo.on..st b/packages/IMAPClient-Core.package/ICStreamWrapper.class/instance/connectTo.on..st index 1b7e6541..16f88cb3 100644 --- a/packages/IMAPClient-Core.package/ICStreamWrapper.class/instance/connectTo.on..st +++ b/packages/IMAPClient-Core.package/ICStreamWrapper.class/instance/connectTo.on..st @@ -1,10 +1,10 @@ connection -connectTo: host on: port +connectTo: aHost on: aPort | hostAddress | - self useSSL ifTrue: [^ self sslConnectTo: host on: port]. + self useSSL ifTrue: [^ self sslConnectTo: aHost on: aPort]. - hostAddress := NetNameResolver addressForName: host. + hostAddress := NetNameResolver addressForName: aHost. self close. - self stream: (SocketStream openConnectionToHost: hostAddress port: port) \ No newline at end of file + self stream: (SocketStream openConnectionToHost: hostAddress port: aPort) \ No newline at end of file diff --git a/packages/IMAPClient-Core.package/ICStreamWrapper.class/instance/sendCommand..st b/packages/IMAPClient-Core.package/ICStreamWrapper.class/instance/sendCommand..st index 7b45972d..21169394 100644 --- a/packages/IMAPClient-Core.package/ICStreamWrapper.class/instance/sendCommand..st +++ b/packages/IMAPClient-Core.package/ICStreamWrapper.class/instance/sendCommand..st @@ -1,5 +1,4 @@ connection sendCommand: aString - Transcript show: 'SENDING: ', aString; cr. self stream sendCommand: aString \ No newline at end of file diff --git a/packages/IMAPClient-Core.package/ICStreamWrapper.class/instance/sslConnectTo.on..st b/packages/IMAPClient-Core.package/ICStreamWrapper.class/instance/sslConnectTo.on..st index 5bf6a4fc..821816e4 100644 --- a/packages/IMAPClient-Core.package/ICStreamWrapper.class/instance/sslConnectTo.on..st +++ b/packages/IMAPClient-Core.package/ICStreamWrapper.class/instance/sslConnectTo.on..st @@ -1,8 +1,8 @@ connection -sslConnectTo: host on: port +sslConnectTo: aHost on: aPort | hostAddress | - hostAddress := NetNameResolver addressForName: host. - self stream: (SecureSocketStream openConnectionToHost: hostAddress port: port timeout: self class connectionTimeout). - self stream sslConnectTo: host \ No newline at end of file + hostAddress := NetNameResolver addressForName: aHost. + self stream: (SecureSocketStream openConnectionToHost: hostAddress port: aPort timeout: self class connectionTimeout). + self stream sslConnectTo: aHost \ No newline at end of file diff --git a/packages/IMAPClient-Core.package/ICStreamWrapper.class/methodProperties.json b/packages/IMAPClient-Core.package/ICStreamWrapper.class/methodProperties.json index 19ffb7b2..7f9acfef 100644 --- a/packages/IMAPClient-Core.package/ICStreamWrapper.class/methodProperties.json +++ b/packages/IMAPClient-Core.package/ICStreamWrapper.class/methodProperties.json @@ -3,7 +3,7 @@ "connectionTimeout" : "ok 7/26/2019 18:50" }, "instance" : { "close" : "js 6/14/2016 10:43", - "connectTo:on:" : "C.G. 7/25/2018 14:08", + "connectTo:on:" : "tg 7/26/2019 22:13", "connectTo:on:with:" : "C.G. 7/25/2018 14:08", "host" : "js 6/7/2016 09:58", "host:" : "js 6/7/2016 09:59", @@ -13,10 +13,10 @@ "nextResponse" : "C.G. 7/25/2018 14:09", "port" : "js 6/7/2016 09:59", "port:" : "pm 6/9/2019 16:59", - "sendCommand:" : "DH 6/26/2018 20:20", + "sendCommand:" : "tg 7/26/2019 21:57", "ssl" : "pm 6/9/2019 13:14", "ssl:" : "ms 7/12/2016 09:45", - "sslConnectTo:on:" : "ok 7/26/2019 18:52", + "sslConnectTo:on:" : "tg 7/26/2019 22:13", "stream" : "pm 6/9/2019 13:14", "stream:" : "js 6/7/2016 10:05", "useSSL" : "ms 7/12/2016 09:45" } } diff --git a/packages/IMAPClient-Tests.package/ICEndPointCommandTest.class/instance/testRetrieveFlagsOnly.st b/packages/IMAPClient-Tests.package/ICEndPointCommandTest.class/instance/testRetrieveFlagsOnly.st index 85e46998..9e042ecc 100644 --- a/packages/IMAPClient-Tests.package/ICEndPointCommandTest.class/instance/testRetrieveFlagsOnly.st +++ b/packages/IMAPClient-Tests.package/ICEndPointCommandTest.class/instance/testRetrieveFlagsOnly.st @@ -12,7 +12,7 @@ testRetrieveFlagsOnly mailB := emailObjects second. folder := emailObjects first folder. - folder emails addAll: emailObjects. + folder addMails: emailObjects. folderName := self endPoint rootFolderName. path := 'Maildir', FileDirectory slash, folderName, FileDirectory slash, 'inbox'. diff --git a/packages/IMAPClient-Tests.package/ICEndPointCommandTest.class/methodProperties.json b/packages/IMAPClient-Tests.package/ICEndPointCommandTest.class/methodProperties.json index eb075d21..537c315c 100644 --- a/packages/IMAPClient-Tests.package/ICEndPointCommandTest.class/methodProperties.json +++ b/packages/IMAPClient-Tests.package/ICEndPointCommandTest.class/methodProperties.json @@ -36,5 +36,5 @@ "testListAllFolders" : "DH 4/27/2018 02:35", "testLogout" : "jwe 6/21/2016 10:15", "testPing" : "jwe 6/21/2016 10:15", - "testRetrieveFlagsOnly" : "pm 7/25/2019 12:41", + "testRetrieveFlagsOnly" : "tg 7/26/2019 22:01", "testSelectInbox" : "C.G. 7/25/2018 18:00" } } diff --git a/packages/IMAPClient-Tests.package/ICEndPointConnectionTest.class/instance/testConnectToOn.st b/packages/IMAPClient-Tests.package/ICEndPointConnectionTest.class/instance/testConnectToOn.st index 6fb7ef0f..53791717 100644 --- a/packages/IMAPClient-Tests.package/ICEndPointConnectionTest.class/instance/testConnectToOn.st +++ b/packages/IMAPClient-Tests.package/ICEndPointConnectionTest.class/instance/testConnectToOn.st @@ -2,5 +2,5 @@ connectOn testConnectToOn self endPoint accountInfo: self class validAccountInfo. - self shouldnt: [endPoint connectWith: ICMockSocketStream] + self shouldnt: [self endPoint connectWith: ICMockSocketStream] raise: Exception \ No newline at end of file diff --git a/packages/IMAPClient-Tests.package/ICEndPointConnectionTest.class/methodProperties.json b/packages/IMAPClient-Tests.package/ICEndPointConnectionTest.class/methodProperties.json index d80cbcce..a24d5caa 100644 --- a/packages/IMAPClient-Tests.package/ICEndPointConnectionTest.class/methodProperties.json +++ b/packages/IMAPClient-Tests.package/ICEndPointConnectionTest.class/methodProperties.json @@ -17,7 +17,7 @@ "endPoint:" : "pm 6/9/2019 17:17", "setUp" : "AR 7/14/2016 09:17", "tearDown" : "js 6/7/2016 09:42", - "testConnectToOn" : "tg 7/10/2019 19:05", + "testConnectToOn" : "tg 7/26/2019 21:41", "testConnectToOnWithWrongHost" : "tg 7/10/2019 20:00", "testConnectToOnWithWrongPort" : "tg 7/10/2019 20:00", "testPingIfNotConnected" : "C.G. 7/25/2018 18:02" } } diff --git a/packages/IMAPClient-Tests.package/ICFileReadWriterTest.class/instance/setUp.st b/packages/IMAPClient-Tests.package/ICFileReadWriterTest.class/instance/setUp.st index d6345276..7409be69 100644 --- a/packages/IMAPClient-Tests.package/ICFileReadWriterTest.class/instance/setUp.st +++ b/packages/IMAPClient-Tests.package/ICFileReadWriterTest.class/instance/setUp.st @@ -1,4 +1,4 @@ -accessing +running setUp self readWriter: ICFileReadWriter new \ No newline at end of file diff --git a/packages/IMAPClient-UI.package/ICEmailDialog.class/instance/body.st b/packages/IMAPClient-UI.package/ICEmailDialog.class/instance/body.st index be55d76a..e51047c4 100644 --- a/packages/IMAPClient-UI.package/ICEmailDialog.class/instance/body.st +++ b/packages/IMAPClient-UI.package/ICEmailDialog.class/instance/body.st @@ -3,7 +3,7 @@ body | mimeDoc body | - body := email retrieveBody. + body := self email retrieveBody. mimeDoc := MailMessage new initializeFromString: body. ^ mimeDoc bodyTextFormatted \ No newline at end of file diff --git a/packages/IMAPClient-UI.package/ICEmailDialog.class/instance/recipients.st b/packages/IMAPClient-UI.package/ICEmailDialog.class/instance/recipients.st index 4b788e17..fa053428 100644 --- a/packages/IMAPClient-UI.package/ICEmailDialog.class/instance/recipients.st +++ b/packages/IMAPClient-UI.package/ICEmailDialog.class/instance/recipients.st @@ -1,4 +1,4 @@ email access recipients - ^ email to joinSeparatedBy: ';' \ No newline at end of file + ^ self email to joinSeparatedBy: ';' \ No newline at end of file diff --git a/packages/IMAPClient-UI.package/ICEmailDialog.class/instance/sender.st b/packages/IMAPClient-UI.package/ICEmailDialog.class/instance/sender.st index e52ac95a..e179743d 100644 --- a/packages/IMAPClient-UI.package/ICEmailDialog.class/instance/sender.st +++ b/packages/IMAPClient-UI.package/ICEmailDialog.class/instance/sender.st @@ -1,4 +1,4 @@ email access sender - ^ email from \ No newline at end of file + ^ self email from \ No newline at end of file diff --git a/packages/IMAPClient-UI.package/ICEmailDialog.class/instance/subject.st b/packages/IMAPClient-UI.package/ICEmailDialog.class/instance/subject.st index 9e2bdc98..28fb411f 100644 --- a/packages/IMAPClient-UI.package/ICEmailDialog.class/instance/subject.st +++ b/packages/IMAPClient-UI.package/ICEmailDialog.class/instance/subject.st @@ -1,4 +1,4 @@ email access subject - ^ email subject ifEmpty: [^ self class defaultSubject] \ No newline at end of file + ^ self email subject ifEmpty: [^ self class defaultSubject] \ No newline at end of file diff --git a/packages/IMAPClient-UI.package/ICEmailDialog.class/methodProperties.json b/packages/IMAPClient-UI.package/ICEmailDialog.class/methodProperties.json index 0fa0a9ad..571359b4 100644 --- a/packages/IMAPClient-UI.package/ICEmailDialog.class/methodProperties.json +++ b/packages/IMAPClient-UI.package/ICEmailDialog.class/methodProperties.json @@ -4,7 +4,7 @@ "open" : "ms 7/9/2016 16:43", "openWith:" : "ms 7/9/2016 16:56" }, "instance" : { - "body" : "pm 6/3/2019 18:41", + "body" : "tg 7/26/2019 21:40", "buildBody:" : "pm 6/25/2019 16:29", "buildRecipient:" : "pm 6/25/2019 16:29", "buildSenderLabel:" : "pm 6/25/2019 16:28", @@ -15,6 +15,6 @@ "dialogTitle" : "pm 6/3/2019 18:42", "email" : "ms 7/9/2016 16:56", "email:" : "pm 6/9/2019 17:01", - "recipients" : "pm 6/3/2019 18:42", - "sender" : "pm 6/3/2019 18:42", - "subject" : "tg 7/19/2019 13:09" } } + "recipients" : "tg 7/26/2019 21:40", + "sender" : "tg 7/26/2019 21:40", + "subject" : "tg 7/26/2019 21:40" } } diff --git a/packages/IMAPClient-UI.package/ICFolderDialog.class/instance/buildAddAccountButton..st b/packages/IMAPClient-UI.package/ICFolderDialog.class/instance/buildAddAccountButton..st index a698c544..dd6e476d 100644 --- a/packages/IMAPClient-UI.package/ICFolderDialog.class/instance/buildAddAccountButton..st +++ b/packages/IMAPClient-UI.package/ICFolderDialog.class/instance/buildAddAccountButton..st @@ -4,5 +4,5 @@ buildAddAccountButton: builder ^ builder pluggableButtonSpec new model: self; frame: (0.8 @ 0 corner: 1 @ 0.05); - label: ICFolderDialog addUserIcon; + label: self class addUserIcon; action: #createAccount \ No newline at end of file diff --git a/packages/IMAPClient-UI.package/ICFolderDialog.class/instance/folderNameOf..st b/packages/IMAPClient-UI.package/ICFolderDialog.class/instance/folderNameOf..st index c5d3c1b6..d8a45400 100644 --- a/packages/IMAPClient-UI.package/ICFolderDialog.class/instance/folderNameOf..st +++ b/packages/IMAPClient-UI.package/ICFolderDialog.class/instance/folderNameOf..st @@ -7,7 +7,7 @@ folderNameOf: folder offset := ''. currentFolder := folder. - [(currentFolder parent ~= currentFolder) and: (currentFolder parent ~= self rootFolder)] + [(currentFolder parent ~= currentFolder) and: [(currentFolder parent ~= self rootFolder)]] whileTrue: [ levelCounter := levelCounter + 1. currentFolder := currentFolder parent]. diff --git a/packages/IMAPClient-UI.package/ICFolderDialog.class/instance/moveEmail..st b/packages/IMAPClient-UI.package/ICFolderDialog.class/instance/moveEmail..st index 310cd879..3ea78beb 100644 --- a/packages/IMAPClient-UI.package/ICFolderDialog.class/instance/moveEmail..st +++ b/packages/IMAPClient-UI.package/ICFolderDialog.class/instance/moveEmail..st @@ -1,7 +1,7 @@ email selection moveEmail: aFolder - selectedEmail moveEmail: aFolder. + self selectedEmail moveEmail: aFolder. self selectedEmail: nil. self changed: #emailsOfSelectedFolder; diff --git a/packages/IMAPClient-UI.package/ICFolderDialog.class/instance/passwordPromtCallback..st b/packages/IMAPClient-UI.package/ICFolderDialog.class/instance/passwordPromtCallback..st index 1928b68d..22b78aa4 100644 --- a/packages/IMAPClient-UI.package/ICFolderDialog.class/instance/passwordPromtCallback..st +++ b/packages/IMAPClient-UI.package/ICFolderDialog.class/instance/passwordPromtCallback..st @@ -9,6 +9,6 @@ passwordPromtCallback: aDictionary (account at: 'accountName') = (aDictionary at: 'accountName')]. self uninitializedAccounts removeAt: nextAccount. - (uninitializedAccounts isEmpty) + (self uninitializedAccounts isEmpty) ifTrue: [self accountsComplete] ifFalse: [ICPasswordDialog openWith: (self uninitializedAccounts first) and: self] \ No newline at end of file diff --git a/packages/IMAPClient-UI.package/ICFolderDialog.class/methodProperties.json b/packages/IMAPClient-UI.package/ICFolderDialog.class/methodProperties.json index 8f592852..b7a68e64 100644 --- a/packages/IMAPClient-UI.package/ICFolderDialog.class/methodProperties.json +++ b/packages/IMAPClient-UI.package/ICFolderDialog.class/methodProperties.json @@ -7,7 +7,7 @@ "instance" : { "accountsComplete" : "tg 7/25/2019 11:52", "addAccount:" : "tg 7/25/2019 11:47", - "buildAddAccountButton:" : "fr 7/7/2019 10:15", + "buildAddAccountButton:" : "tg 7/26/2019 22:07", "buildEmailButton:" : "ok 6/20/2019 12:18", "buildEmailList:" : "pm 6/26/2019 14:31", "buildEmailSearch:" : "pm 6/26/2019 14:43", @@ -41,7 +41,7 @@ "filterString" : "lvm 6/26/2018 14:05", "filterString:" : "fr 6/3/2019 15:50", "folderListMenu" : "tg 7/25/2019 11:35", - "folderNameOf:" : "tg 7/26/2019 16:27", + "folderNameOf:" : "tg 7/26/2019 22:03", "folderWith:" : "pm 6/3/2019 18:47", "initialize" : "tg 7/8/2019 14:56", "initializedAccounts" : "C.G. 7/25/2018 14:18", @@ -53,13 +53,13 @@ "loadOlderEmails" : "tg 7/26/2019 14:49", "loadOlderEmailsProcess" : "DH 7/22/2018 22:02", "modifyFlag:" : "tg 7/26/2019 13:52", - "moveEmail:" : "lvm 7/8/2018 11:46", + "moveEmail:" : "tg 7/26/2019 21:41", "numberOfFetchedFolders" : "C.G. 7/12/2018 08:14", "numberOfFetchedFolders:" : "pm 6/9/2019 17:03", "numberOfFolders" : "C.G. 7/12/2018 08:15", "numberOfFolders:" : "pm 6/9/2019 17:03", "openEmail:" : "tg 7/26/2019 16:19", - "passwordPromtCallback:" : "tg 7/26/2019 16:25", + "passwordPromtCallback:" : "tg 7/26/2019 21:41", "progressCallback" : "tg 7/26/2019 16:21", "rootFolder" : "ms 6/26/2016 14:05", "rootFolder:" : "pm 6/9/2019 17:03", diff --git a/packages/IMAPClient-UI.package/ICLoginDialog.class/class/failureLoginMessage.st b/packages/IMAPClient-UI.package/ICLoginDialog.class/class/failureLoginMessage.st deleted file mode 100644 index 27135c7e..00000000 --- a/packages/IMAPClient-UI.package/ICLoginDialog.class/class/failureLoginMessage.st +++ /dev/null @@ -1,4 +0,0 @@ -constants -failureLoginMessage - - ^ 'Login failed, please try again.' \ No newline at end of file diff --git a/packages/IMAPClient-UI.package/ICLoginDialog.class/class/successLoginMessage.st b/packages/IMAPClient-UI.package/ICLoginDialog.class/class/successLoginMessage.st deleted file mode 100644 index 77821ef4..00000000 --- a/packages/IMAPClient-UI.package/ICLoginDialog.class/class/successLoginMessage.st +++ /dev/null @@ -1,4 +0,0 @@ -constants -successLoginMessage - - ^ 'Successfully logged in!' \ No newline at end of file diff --git a/packages/IMAPClient-UI.package/ICLoginDialog.class/instance/insertDefaults.st b/packages/IMAPClient-UI.package/ICLoginDialog.class/instance/insertDefaults.st index aa5438f1..7e1957e6 100644 --- a/packages/IMAPClient-UI.package/ICLoginDialog.class/instance/insertDefaults.st +++ b/packages/IMAPClient-UI.package/ICLoginDialog.class/instance/insertDefaults.st @@ -1,5 +1,5 @@ login insertDefaults - ((self serverPort isNil) or: (self serverPort asString isEmpty)) - ifTrue: [self serverPort: ICLoginDialog defaultPort asString asText]. \ No newline at end of file + ((self serverPort isNil) or: [(self serverPort asString isEmpty)]) + ifTrue: [self serverPort: self class defaultPort asString asText]. \ No newline at end of file diff --git a/packages/IMAPClient-UI.package/ICLoginDialog.class/instance/lastCharacterIsTab..st b/packages/IMAPClient-UI.package/ICLoginDialog.class/instance/lastCharacterIsTab..st index f4545421..e6f94ee2 100644 --- a/packages/IMAPClient-UI.package/ICLoginDialog.class/instance/lastCharacterIsTab..st +++ b/packages/IMAPClient-UI.package/ICLoginDialog.class/instance/lastCharacterIsTab..st @@ -1,6 +1,4 @@ helper lastCharacterIsTab: aString - aString isEmpty ifTrue: [^ false]. - - ^ (aString last asciiValue == 9) \ No newline at end of file + ^ aString notEmpty and: [aString last asciiValue == 9] \ No newline at end of file diff --git a/packages/IMAPClient-UI.package/ICLoginDialog.class/instance/login.st b/packages/IMAPClient-UI.package/ICLoginDialog.class/instance/login.st index 6ea39ca1..3463bf9a 100644 --- a/packages/IMAPClient-UI.package/ICLoginDialog.class/instance/login.st +++ b/packages/IMAPClient-UI.package/ICLoginDialog.class/instance/login.st @@ -14,5 +14,5 @@ login ifTrue: [ self loginMorph abandon. (self updateMode) - ifFalse: [folderDialogInstance addAccount: accountInfo] - ifTrue: [folderDialogInstance editAccount: accountInfo with: (self endpoint)]] \ No newline at end of file + ifFalse: [self folderDialogInstance addAccount: accountInfo] + ifTrue: [self folderDialogInstance editAccount: accountInfo with: (self endpoint)]] \ No newline at end of file diff --git a/packages/IMAPClient-UI.package/ICLoginDialog.class/methodProperties.json b/packages/IMAPClient-UI.package/ICLoginDialog.class/methodProperties.json index d329b98b..057a18cc 100644 --- a/packages/IMAPClient-UI.package/ICLoginDialog.class/methodProperties.json +++ b/packages/IMAPClient-UI.package/ICLoginDialog.class/methodProperties.json @@ -1,11 +1,9 @@ { "class" : { "defaultPort" : "ok 7/9/2019 19:05", - "failureLoginMessage" : "jwe 6/14/2016 23:41", "inputParameterOrder" : "tg 7/25/2019 10:48", "open:" : "C.G. 6/21/2018 10:56", - "open:with:" : "tg 7/15/2019 12:19", - "successLoginMessage" : "jwe 6/14/2016 23:40" }, + "open:with:" : "tg 7/15/2019 12:19" }, "instance" : { "accountName" : "C.G. 7/25/2018 14:21", "accountName:" : "tg 7/26/2019 15:55", @@ -41,11 +39,11 @@ "guiElementYSpacing" : "ms 6/14/2016 10:05", "inputCollection" : "C.G. 7/25/2018 14:23", "inputCollection:" : "pm 6/9/2019 17:12", - "insertDefaults" : "ok 7/9/2019 19:11", + "insertDefaults" : "tg 7/26/2019 22:07", "keyEvent:" : "tg 7/26/2019 16:21", - "lastCharacterIsTab:" : "tg 7/26/2019 15:55", + "lastCharacterIsTab:" : "tg 7/26/2019 21:47", "loadData:" : "tg 7/19/2019 09:56", - "login" : "tg 7/26/2019 16:21", + "login" : "tg 7/26/2019 21:41", "loginMorph" : "C.G. 7/25/2018 14:24", "loginMorph:" : "pm 6/9/2019 17:12", "nameHelpText" : "DH 6/12/2018 22:36", diff --git a/packages/IMAPClient-UI.package/ICPasswordDialog.class/instance/login.st b/packages/IMAPClient-UI.package/ICPasswordDialog.class/instance/login.st index 30e78615..b7cb4977 100644 --- a/packages/IMAPClient-UI.package/ICPasswordDialog.class/instance/login.st +++ b/packages/IMAPClient-UI.package/ICPasswordDialog.class/instance/login.st @@ -8,7 +8,7 @@ login self data at: 'password' put: (self password asString). - [accountInfo := ICAccountInfo newWith: data.] + [accountInfo := ICAccountInfo newWith: self data.] on: Error do: [:e | self inform: e asString. ^ self]. diff --git a/packages/IMAPClient-UI.package/ICPasswordDialog.class/methodProperties.json b/packages/IMAPClient-UI.package/ICPasswordDialog.class/methodProperties.json index af7d7898..f59aa385 100644 --- a/packages/IMAPClient-UI.package/ICPasswordDialog.class/methodProperties.json +++ b/packages/IMAPClient-UI.package/ICPasswordDialog.class/methodProperties.json @@ -9,7 +9,7 @@ "data:" : "pm 6/9/2019 17:14", "folderDialogInstance" : "C.G. 7/25/2018 14:25", "folderDialogInstance:" : "pm 6/9/2019 17:14", - "login" : "tg 7/26/2019 16:47", + "login" : "tg 7/26/2019 21:41", "loginWithPassword:" : "fr 6/13/2019 14:39", "password" : "C.G. 7/25/2018 14:25", "password:" : "fr 6/13/2019 14:44",