making CodeCop happy

Author: miljance

src/Apps/W1/EDocument/App/src/Processing/EDocumentEmailing.Codeunit.al

@@ -20,7 +20,7 @@ codeunit 6188 "E-Document Emailing"
 
     var
         GlobalTempBlobList: Codeunit "Temp Blob List";
-        GlobalExtensionList: List of [Text];
+        GlobalExtensionList: List of [Text[4]];
         EDocumentAttachmentNameTok: Label '%1 %2', Locked = true, Comment = '%1 = Attachment name, %2 = File format';
         PDFFileTypeTok: Label '.pdf', Locked = true;
         ZipFileTypeTok: Label '.zip', Locked = true;
@@ -87,7 +87,7 @@ codeunit 6188 "E-Document Emailing"
         );
     end;
 
-    procedure SetAttachments(Attachments: Codeunit "Temp Blob List"; ExtensionList: List of [Text])
+    procedure SetAttachments(Attachments: Codeunit "Temp Blob List"; ExtensionList: List of [Text[4]])
     begin
         GlobalTempBlobList := Attachments;
         GlobalExtensionList := ExtensionList;

src/Apps/W1/EDocument/App/src/Processing/EDocumentProcessing.Codeunit.al

@@ -170,7 +170,7 @@ codeunit 6108 "E-Document Processing"
         TempBlobList: Codeunit "Temp Blob List";
         TypeHelper: Codeunit "Type Helper";
         SourceReference: RecordRef;
-        ExtensionList: List of [Text];
+        ExtensionList: List of [Text[4]];
     begin
         // Email if attachment is E-Document or PDF & E-Document
         TypeHelper.CopyRecVariantToRecRef(RecordVariant, SourceReference);