From 3c9e403ae01a464ed41d7f1d006e52277613f91f Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 22 Nov 2000 03:56:02 +0000 Subject: [PATCH] * elmo-pop3.el (elmo-network-close-session): Do nothing if session process is nil. --- elmo/ChangeLog | 5 +++++ elmo/elmo-pop3.el | 23 ++++++++++++----------- 2 files changed, 17 insertions(+), 11 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 787a7dc..d470175 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2000-11-22 Yuuichi Teranishi + + * elmo-pop3.el (elmo-network-close-session): Do nothing if session + process is nil. + 2000-11-20 Yuuichi Teranishi * elmo-pop3.el (elmo-network-initialize-session): Skip garbage output diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el index 0c9a2f9..6419761 100644 --- a/elmo/elmo-pop3.el +++ b/elmo/elmo-pop3.el @@ -90,17 +90,18 @@ elmo-pop3-list-done)) (luna-define-method elmo-network-close-session ((session elmo-pop3-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))) - (delete-process (elmo-network-session-process-internal session))) + (when (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))) + (delete-process (elmo-network-session-process-internal session)))) (defun elmo-pop3-get-session (spec &optional if-exists) (elmo-network-get-session -- 1.7.10.4