From: teranisi <teranisi>
Date: Wed, 22 Nov 2000 03:56:02 +0000 (+0000)
Subject: * elmo-pop3.el (elmo-network-close-session): Do nothing if session process
X-Git-Tag: wl-2_4_0pre3~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3c9e403ae01a464ed41d7f1d006e52277613f91f;p=elisp%2Fwanderlust.git

* elmo-pop3.el (elmo-network-close-session): Do nothing if session process
 is nil.
---

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  <teranisi@gohome.org>
+
+	* elmo-pop3.el (elmo-network-close-session): Do nothing if session
+	process is nil.
+
 2000-11-20  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* 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