[Enh]: Email Display String - No Error if Mail Parse Fails

seandenigris · May 23, 2024 · 2b9c5ef · 2b9c5ef
1 parent bafca98
commit 2b9c5ef
Showing 1 changed file with 15 additions and 11 deletions.
diff --git a/src/ResourcesLive/RlEmail.class.st b/src/ResourcesLive/RlEmail.class.st
@@ -108,17 +108,21 @@ RlEmail >> displayStringOn: aStream [
 
 	self file exists ifFalse: [ ^ 'Email - file does not exist' ].
 
-	msg := self mailMessage.
-	self timestamp ifNotNil: [ :stamp |
-		aStream 
-			nextPutAll: stamp asDate yyyymmdd;
-			space;
-			nextPutAll: stamp asTime print24 ].
-	aStream
-		nextPutAll: ' [';
-		nextPutAll: msg from;
-		nextPutAll: '] ';
-		nextPutAll: msg subject withBlanksCondensed.
+	[ 
+		msg := self mailMessage.
+		self timestamp ifNotNil: [ :stamp |
+			aStream 
+				nextPutAll: stamp asDate yyyymmdd;
+				space;
+				nextPutAll: stamp asTime print24 ].
+		aStream
+			nextPutAll: ' [';
+			nextPutAll: msg from;
+			nextPutAll: '] ';
+			nextPutAll: msg subject withBlanksCondensed 
+	]
+		on: Error
+		do: [ ].
 
 	displayString := aStream contents.
 ]