From bd67ea33efcc232821bd1b920c12932ada3093bf Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 22 Nov 2000 10:24:05 +0000 Subject: [PATCH] * elmo-net.el (elmo-network-get-session): Changed logic for checking process status. * elmo-pop3.el (elmo-network-close-session): Ditto. --- elmo/ChangeLog | 6 +++++- elmo/elmo-net.el | 8 ++++---- elmo/elmo-pop3.el | 6 +++--- 3 files changed, 12 insertions(+), 8 deletions(-) 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 + * 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 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 -- 1.7.10.4