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