* elmo-net.el (elmo-network-get-session): Changed logic for checking

 process status.

* elmo-pop3.el (elmo-network-close-session): Ditto.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index d470175..6b8b2fe 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,7 +1,11 @@
 2000-11-22  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * elmo-net.el (elmo-network-get-session): Changed logic for
+       checking process status.
+
        * elmo-pop3.el (elmo-network-close-session): Do nothing if session
-       process is nil.
+       process is nil;
+       Changed logic for checking process status.
 
 2000-11-20  Yuuichi Teranishi  <teranisi@gohome.org>
 

diff --git a/elmo/elmo-net.el b/elmo/elmo-net.el
index 57b7e85..f283b2a 100644 (file)
--- a/elmo/elmo-net.el
+++ b/elmo/elmo-net.el
@@ -137,10 +137,10 @@ if making session failed, returns nil."
                                 name host port user auth stream-type))
                      elmo-network-session-cache))
     (when (and pair
-              (memq (process-status
-                     (elmo-network-session-process-internal
-                      (cdr pair)))
-                    '(closed exit)))
+              (not (memq (process-status
+                          (elmo-network-session-process-internal
+                           (cdr pair)))
+                         '(open run))))
       (setq elmo-network-session-cache
            (delq pair elmo-network-session-cache))
       (elmo-network-close-session (cdr pair))

diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el
index 6419761..e09e44e 100644 (file)
--- a/elmo/elmo-pop3.el
+++ b/elmo/elmo-pop3.el
@@ -91,9 +91,9 @@
 
 (luna-define-method elmo-network-close-session ((session elmo-pop3-session))
   (when (elmo-network-session-process-internal session)
-    (unless (memq (process-status
-                  (elmo-network-session-process-internal session))
-                 '(closed exit))
+    (when (memq (process-status
+                (elmo-network-session-process-internal session))
+               '(open run))
       (elmo-pop3-send-command (elmo-network-session-process-internal session)
                              "quit")
       (or (elmo-pop3-read-response