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