[elpa] externals/dtache 3d89804c20 155/158: Improve dtache--update-session

[ELPA Syncer]

branch: externals/dtache
commit 3d89804c20f5868fd895929199787b61522c40cb
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@posteo.net>

    Improve dtache--update-session
    
    Improve handling of missing sessions.
---
 dtache.el | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

diff --git a/dtache.el b/dtache.el
index 130a3e72b6..f36d4289a9 100644
--- a/dtache.el
+++ b/dtache.el
@@ -890,16 +890,18 @@ Sessions running on  current host or localhost are 
updated."
 
 (defun dtache--update-session (session)
   "Update SESSION."
-  (if (or (dtache--state-transition-p session)
-          (dtache--session-missing-p session))
-      (progn
-        (setf (dtache--session-time session)
-              (dtache--update-session-time session t))
-        (dtache--session-state-transition-update session))
-    (setf (dtache--session-log-size session)
-          (file-attribute-size (file-attributes
-                                (dtache--session-file session 'log))))
-    (dtache--db-update-entry session)))
+  (cond ((dtache--session-missing-p session)
+         (dtache--db-remove-entry session))
+        ((dtache--state-transition-p session)
+         (progn
+           (setf (dtache--session-time session)
+                 (dtache--update-session-time session t))
+           (dtache--session-state-transition-update session)))
+        (t (progn
+             (setf (dtache--session-log-size session)
+                   (file-attribute-size (file-attributes
+                                         (dtache--session-file session 'log))))
+             (dtache--db-update-entry session)))))
 
 (defun dtache--session-file (session file &optional local)
   "Return the full path to SESSION's FILE.