From: teranisi <teranisi>
Date: Wed, 23 Aug 2000 03:10:02 +0000 (+0000)
Subject: elmo-pop3.el (elmo-network-close-session): Don't use `process-live-p'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=16ff4211cb14dd1777f445ee5e69b8347d9a0759;p=elisp%2Fwanderlust.git

elmo-pop3.el (elmo-network-close-session): Don't use `process-live-p'.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 7a1a767..34e17e8 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,8 @@
 2000-08-23  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* elmo-pop3.el (elmo-network-close-session): Don't use
+	`process-live-p'.
+
 	* elmo-vars.el (elmo-default-pop3-authenticate-type):
 	Set default as 'user.
 
diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el
index b636c0e..d455ad9 100644
--- a/elmo/elmo-pop3.el
+++ b/elmo/elmo-pop3.el
@@ -81,15 +81,16 @@
 (defvar elmo-pop3-list-done nil)
 
 (luna-define-method elmo-network-close-session ((session elmo-pop3-session))
-  (when (process-live-p
-	 (elmo-network-session-process-internal session))
+  (unless (memq (process-status
+		 (elmo-network-session-process-internal session))
+		'(closed exit))
     (elmo-pop3-send-command (elmo-network-session-process-internal session)
 			    "quit")
     (or (elmo-pop3-read-response
 	 (elmo-network-session-process-internal session) t)
-	(error "POP error: QUIT failed"))
-    (kill-buffer (process-buffer
-		  (elmo-network-session-process-internal session))))
+	(error "POP error: QUIT failed")))
+  (kill-buffer (process-buffer
+		(elmo-network-session-process-internal session)))
   (delete-process (elmo-network-session-process-internal session)))
 
 (defun elmo-pop3-get-session (spec &optional if-exists)