From d8acfee55e214dd91baea1faac43f2a52da9ebee Mon Sep 17 00:00:00 2001
From: Linus Tolke Y <linus@lysator.liu.se>
Date: Tue, 11 May 1993 15:59:49 +0000
Subject: [PATCH] Fixed hanging on initial login, status-pers unread count.

---
 src/ChangeLog    | 10 ++++++++++
 src/commands2.el |  5 +++++
 src/startup.el   |  2 +-
 3 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/src/ChangeLog b/src/ChangeLog
index 8fe454b9..c1e37e23 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,13 @@
+Tue May 11 16:47:38 1993  Linus Tolke Y  (linus@bodil)
+
+	* startup.el (lyskom-connect-filter): When emacs is collecting
+	  longer initial package from the server we hang. Fixed using a
+	  match. I the emacs splits the initial package or splits the
+	  following packages there could still be a problem.
+
+	* commands2.el (lyskom-status-pers-4): The old conf-stats are
+	  thrown out before refetching them.
+
 Sat May  8 19:48:00 1993  Linus Tolke Y  (linus@bodil)
 
 	* swedish-strings.el, english-strings.el (kom-tell-phrases): The
diff --git a/src/commands2.el b/src/commands2.el
index ceee15f5..4a002d9c 100644
--- a/src/commands2.el
+++ b/src/commands2.el
@@ -429,6 +429,11 @@ Args: MEMBERSHIP-LIST CONF-STAT."
     (setq lyskom-count-var 0)
     (lyskom-traverse
      membership membership-list
+     (let ((cs (cache-get-conf-stat (membership->conf-no membership))))
+       (and cs
+	    (lyskom-time-greater (membership->last-time-read membership)
+				 (conf-stat->last-written conf-stat))
+	    (cache-del-conf-stat (membership->conf-no membership))))
      (initiate-get-conf-stat 'main 'lyskom-status-pers-5 
 			     (membership->conf-no membership)
 			     membership conf-stat)))
diff --git a/src/startup.el b/src/startup.el
index a4eefbc5..9c878388 100644
--- a/src/startup.el
+++ b/src/startup.el
@@ -106,7 +106,7 @@ Optional arguments: HOST, USERNAME and PASSWORD."
 		(goto-char (point-max))
 		(insert "\n" (format "%s" proc) "-----> " output)))
 	  (cond
-	   ((string= output "LysKOM\n")
+	   ((string-match "^LysKOM\n" output)
 	    (lyskom-init-parse)
 	    (set-process-filter proc 'lyskom-filter)
 	    (set-process-sentinel proc 'lyskom-sentinel)
-- 
GitLab