From: teranisi <teranisi>
Date: Wed, 22 Nov 2000 10:24:05 +0000 (+0000)
Subject: * elmo-net.el (elmo-network-get-session): Changed logic for checking
X-Git-Tag: wl-2_4_0pre3~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bd67ea33efcc232821bd1b920c12932ada3093bf;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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
--- 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