Commit d8acfee5 authored by Linus Tolke Y's avatar Linus Tolke Y
Browse files

Fixed hanging on initial login, status-pers unread count.

parent c955706a
No preview for this file type
...@@ -429,6 +429,11 @@ Args: MEMBERSHIP-LIST CONF-STAT." ...@@ -429,6 +429,11 @@ Args: MEMBERSHIP-LIST CONF-STAT."
(setq lyskom-count-var 0) (setq lyskom-count-var 0)
(lyskom-traverse (lyskom-traverse
membership membership-list 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 (initiate-get-conf-stat 'main 'lyskom-status-pers-5
(membership->conf-no membership) (membership->conf-no membership)
membership conf-stat))) membership conf-stat)))
......
...@@ -106,7 +106,7 @@ Optional arguments: HOST, USERNAME and PASSWORD." ...@@ -106,7 +106,7 @@ Optional arguments: HOST, USERNAME and PASSWORD."
(goto-char (point-max)) (goto-char (point-max))
(insert "\n" (format "%s" proc) "-----> " output))) (insert "\n" (format "%s" proc) "-----> " output)))
(cond (cond
((string= output "LysKOM\n") ((string-match "^LysKOM\n" output)
(lyskom-init-parse) (lyskom-init-parse)
(set-process-filter proc 'lyskom-filter) (set-process-filter proc 'lyskom-filter)
(set-process-sentinel proc 'lyskom-sentinel) (set-process-sentinel proc 'lyskom-sentinel)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment