--- a/AbstractSettingsApplication.st	Wed Jun 13 11:31:13 2018 +0200
+++ b/AbstractSettingsApplication.st	Wed Jun 13 17:33:01 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -86,7 +88,8 @@
 !
 
 AbstractSettingsApplication subclass:#CommunicationLoggingSettingsAppl
-	instanceVariableNames:'logHTTPRequests logSOAPRequests logExecutedOSCommands'
+	instanceVariableNames:'logHTTPRequests logSOAPRequests logExecutedOSCommands
+		logNetCommunications'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:AbstractSettingsApplication
@@ -857,7 +860,8 @@
 
     aListOfAspects do:[:eachAspectSymbol |
         (self myAspectFor:eachAspectSymbol) value ~= (anAspectProvider perform:eachAspectSymbol) ifTrue:[
-            true ifTrue: "self debuggingCodeFor:#cg is:"  [
+            "/ to debug missing apply-enablements
+            self debuggingCodeFor:#cg is:[
                 Transcript showCR:'settings aspect is different: ',eachAspectSymbol.
                 Transcript showCR:'  here: ',((self myAspectFor:eachAspectSymbol) value) printString.
                 Transcript showCR:'  there: ',((anAspectProvider perform:eachAspectSymbol) value) printString.
@@ -868,7 +872,7 @@
     ^ false
 
     "Modified: / 23-03-2011 / 15:45:11 / cg"
-    "Modified: / 04-06-2018 / 15:27:40 / Claus Gittinger"
+    "Modified (format): / 13-06-2018 / 17:32:32 / Claus Gittinger"
 !
 
 myAspectFor:aspectSymbol
@@ -2495,7 +2499,7 @@
                                extent: (Point 665 22)
                              )
                             (CheckBoxSpec
-                               label: 'Allow Paragraph in Identifiers (§)'
+                               label: 'Allow Paragraph in Identifiers (§)'
                                name: 'CheckBox10'
                                activeHelpKey: allowParagraphInIdentifier
                                uuid: '9c9316ac-1f3f-11b2-903e-3065ec8abe8a'
@@ -3849,9 +3853,13 @@
 #logSOAPRequests
 'Display outgoing SOAP request on the Transcript'
 
+#logNetCommunications
+'Display IMAP and other protocol traces (from the goodies/net package)'
+
 )
 
     "Created: / 23-05-2018 / 05:47:50 / Claus Gittinger"
+    "Modified: / 13-06-2018 / 17:27:24 / Claus Gittinger"
 ! !
 
 !AbstractSettingsApplication::CommunicationLoggingSettingsAppl class methodsFor:'image specs'!
@@ -3976,6 +3984,14 @@
                    translateLabel: true
                    extent: (Point 435 30)
                  )
+                (CheckBoxSpec
+                   label: 'Log Net Communication Protocols (IMAP, etc.)'
+                   name: 'LogNetCommunications'
+                   activeHelpKey: logNetCommunications
+                   model: logNetCommunications
+                   translateLabel: true
+                   extent: (Point 435 30)
+                 )
                 )
 
              )
@@ -3986,7 +4002,7 @@
      )
 
     "Modified: / 17-05-2018 / 12:50:11 / Stefan Vogel"
-    "Modified: / 23-05-2018 / 05:48:53 / Claus Gittinger"
+    "Modified: / 13-06-2018 / 17:26:32 / Claus Gittinger"
 ! !
 
 !AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'aspects'!
@@ -3996,7 +4012,10 @@
         logHTTPRequests
         logSOAPRequests
         logExecutedOSCommands
+        logNetCommunications
     )
+
+    "Modified: / 13-06-2018 / 17:28:08 / Claus Gittinger"
 !
 
 logExecutedOSCommands
@@ -4015,6 +4034,16 @@
     ^ logHTTPRequests.
 !
 
+logNetCommunications
+    logNetCommunications isNil ifTrue:[
+        logNetCommunications := false asValue.
+        logNetCommunications onChangeSend:#updateModifiedChannel to:self
+    ].
+    ^ logNetCommunications.
+
+    "Created: / 13-06-2018 / 17:27:50 / Claus Gittinger"
+!
+
 logSOAPRequests
     logSOAPRequests isNil ifTrue:[
         logSOAPRequests := false asValue.