From 16ff4211cb14dd1777f445ee5e69b8347d9a0759 Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 23 Aug 2000 03:10:02 +0000 Subject: [PATCH] elmo-pop3.el (elmo-network-close-session): Don't use `process-live-p'. --- elmo/ChangeLog | 3 +++ elmo/elmo-pop3.el | 11 ++++++----- 2 files changed, 9 insertions(+), 5 deletions(-) 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 + * 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) -- 1.7.10.4