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 (file)
--- 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 (file)
--- 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)