diff --git a/src/ChangeLog b/src/ChangeLog index 8fe454b985feab1a02e6c14315f03eef10c2aa8b..c1e37e23bcc544c8814300b5208fd2826ffcbe4c 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 ceee15f55acb25ff264aa7e375baa9ebdb32e92b..4a002d9ca2eb2c37f67bd751bd3291bb1bcb1cb1 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 a4eefbc5be57e30c879610aada1a559c7687cb2f..9c8783888799d5984865819c21b449038eeb230e 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)