notify \IDLING.OVER in \IDLE.OUT (#973)

\IDLE.OUT is a backgrround function. For reasons not well understood, sometimes after returning from LOGOUT, the RESETSAVED notify to \IDLING.OVER doesn't happen.
This change insures that it does.
(found during testing of LOGOUT/return from LOGOUT with changing ethernet enalbing)

sources/IDLER

@@ -1,10 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "28-Sep-2022 19:54:40" {DSK}<home>larry>medley>sources>IDLER.;10
 47564  
+
(FILECREATED " 4-Oct-2022 16:42:36" {DSK}<home>larry>medley>sources>IDLER.;2
 47709  
 
-      :CHANGES-TO (FNS IDLE.RANDOM)
+      :CHANGES-TO (FNS \IDLE.OUT)
 
-      :PREVIOUS-DATE "22-Sep-2022 16:50:17" {DSK}<home>larry>medley>sources>IDLER.;1)
+      :PREVIOUS-DATE "28-Sep-2022 19:54:40" {DSK}<home>larry>medley>sources>IDLER.;1)
 
 
 (* ; "
@@ -435,13 +435,15 @@ Copyright (c) 1985-1990, 1992, 2022 by Venue & Xerox Corporation.
                          (T "."])
 
 (\IDLE.OUT

-  [LAMBDA NIL                                                (* bvm%: "16-Sep-85 18:34")

-    (AND (NOT \IDLING)
-         (LET [(TIMEOUT (LISTGET IDLE.PROFILE 'TIMEOUT]
-              (AND (SMALLP TIMEOUT)
-                   (GREATERP TIMEOUT 0)
-                   (\SECONDSCLOCKGREATERP \LASTUSERACTION (TIMES TIMEOUT 60))
-                   (IDLE
 T])
+  [LAMBDA NIL
                                                (* ; "Edited  4-Oct-2022 16:41 by lmm")

+                                                             (* bvm%: "16-Sep-85 18:34")

+    (CL:WHEN (NOT \IDLING)
+        (NOTIFY.EVENT \IDLING.OVER)
+        (LET [(TIMEOUT (LISTGET IDLE.PROFILE 'TIMEOUT]
+             (AND (SMALLP TIMEOUT)
+                  (GREATERP TIMEOUT 0)
+                  (\SECONDSCLOCKGREATERP \LASTUSERACTION (TIMES TIMEOUT 60))
+                  (IDLE
 T))))])
 
 (\IDLE.EXIT?

   [LAMBDA NIL
                                                (* ; "Edited 22-Nov-88 15:25 by drc:")

@@ -910,11 +912,11 @@ Copyright (c) 1985-1990, 1992, 2022 by Venue & Xerox Corporation.
 )
 (PUTPROPS IDLER COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1989 1990 1992 2022))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (7318 37338 (IDLE 7328 . 7776) (IDLE.SET.OPTION 7778 . 11077) (IDLE.SHOW.OPTIONS 11079
- . 11643) (IDLE.SHOW.OPTION 11645 . 13169) (\IDLER 13171 . 22573) (\IDLE.WAIT 22575 . 22678) (
-\OK.TO.IDLE? 22680 . 22858) (\IDLE.TIME 22860 . 23642) (\IDLE.OUT 23644 . 24017) (\IDLE.EXIT? 24019 . 
-28005) (\IDLE.PROMPT.WATCHER 28007 . 28653) (\IDLE.EXIT.ABORT 28655 . 28923) (\IDLE.PROMPTING.WINDOW 
-28925 . 29660) (\IDLE.IS.PREVIOUS 29662 . 31521) (\IDLE.ISMEMBER 31523 . 34126) (\IDLE.AUTHENTICATE 
-34128 . 36248) (\IDLERKEYACTION 36250 . 37336)) (42593 47107 (IDLE.BOUNCING.BOX 42603 . 44066) (
-IDLE.BITMAP 44068 . 46171) (IDLE.RANDOM 46173 . 47105)))))
+  (FILEMAP (NIL (7315 37483 (IDLE 7325 . 7773) (IDLE.SET.OPTION 7775 . 11074) (IDLE.SHOW.OPTIONS 11076
+ . 11640) (IDLE.SHOW.OPTION 11642 . 13166) (\IDLER 13168 . 22570) (\IDLE.WAIT 22572 . 22675) (
+\OK.TO.IDLE? 22677 . 22855) (\IDLE.TIME 22857 . 23639) (\IDLE.OUT 23641 . 24162) (\IDLE.EXIT? 24164 . 
+28150) (\IDLE.PROMPT.WATCHER 28152 . 28798) (\IDLE.EXIT.ABORT 28800 . 29068) (\IDLE.PROMPTING.WINDOW 
+29070 . 29805) (\IDLE.IS.PREVIOUS 29807 . 31666) (\IDLE.ISMEMBER 31668 . 34271) (\IDLE.AUTHENTICATE 
+34273 . 36393) (\IDLERKEYACTION 36395 . 37481)) (42738 47252 (IDLE.BOUNCING.BOX 42748 . 44211) (
+IDLE.BITMAP 44213 . 46316) (IDLE.RANDOM 46318 . 47250)))))
 STOP