* services.el (lyskom-wait-queue): Här skulle man visst också

återställa lyskom-ok-to-send-new-calls.

src/ChangeLog

+Tue Jan  6 06:12:39 1998  David Kgedal  <davidk@lysator.liu.se>
+
+	* services.el (lyskom-wait-queue): Hr skulle man visst ocks
+ 	terstlla lyskom-ok-to-send-new-calls.
+
 Sun Jan  4 01:42:08 1998  David Kgedal  <davidk@lysator.liu.se>
 
 	* services.el (lyskom-blocking-do-multiple): Anvnd

src/services.el

@@ -1185,9 +1185,12 @@ or get-text-stat."
                     (process-buffer lyskom-proc)))
     (let ((lyskom-blocking-return 'not-yet-gotten))
       (lyskom-run queue 'blocking-return (list t))
-      (while (and (eq lyskom-blocking-return 'not-yet-gotten)
-		  (not lyskom-quit-flag))
-	(lyskom-accept-process-output))
+      (unwind-protect
+	  (while (and (eq lyskom-blocking-return 'not-yet-gotten)
+		      (not lyskom-quit-flag))
+	    (lyskom-accept-process-output))
+	(setq lyskom-ok-to-send-new-calls t)
+	(lyskom-check-output-queues))
       (if (or lyskom-quit-flag quit-flag)
 	  (progn
 	    (lyskom-insert-before-prompt (lyskom-get-string 'interrupted))