From d8acfee55e214dd91baea1faac43f2a52da9ebee Mon Sep 17 00:00:00 2001 From: Linus Tolke Y 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