New Sar

hpi-swa-teaching · Aug 4, 2017 · d3cd6a8 · d3cd6a8
1 parent 089da6a
commit d3cd6a8
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/packages/IMAPClient-Core.package/ICEndPoint.class/instance/createEmailsWith.andName..st b/packages/IMAPClient-Core.package/ICEndPoint.class/instance/createEmailsWith.andName..st
@@ -12,7 +12,9 @@ createEmailsWith: maildir_directory andName: directory_name
       self rootFolder addFolder: folder.
       (server_directory directoryNamed: foldername) fileNames do:
         [ :filename |
-          email := (filereader get: filename in: (directory_name, FileDirectory slash, foldername)).
+
+	Transcript show: 'folderName:' , (directory_name, FileDirectory slash, foldername); cr.
+          email := (filereader get: filename in: ('Maildir', FileDirectory slash, directory_name, FileDirectory slash, foldername)).
         email folder: folder.
          existing_emails add: email ]].
 

diff --git a/packages/IMAPClient-Core.package/ICEndPoint.class/methodProperties.json b/packages/IMAPClient-Core.package/ICEndPoint.class/methodProperties.json
@@ -40,7 +40,7 @@
 		"connectTo:on:" : "jwe 7/28/2016 14:02",
 		"connectTo:on:with:" : "jwe 7/28/2016 14:10",
 		"connectTo:with:" : "ms 7/28/2016 13:07",
-		"createEmailsWith:andName:" : "js 8/4/2017 22:54",
+		"createEmailsWith:andName:" : "js 8/5/2017 00:23",
 		"currentFolderName" : "js 7/9/2017 21:12",
 		"currentFolderName:" : "js 7/9/2017 21:13",
 		"fetchAllHeadersOfSelectedFolder" : "js 6/4/2017 16:46",