* elmo-pop3.el (elmo-pop3-get-connection): Add `signal'.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index d2c144c..57f3dd6 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2000-08-12  Kenichi OKADA <okada@opaopa.org>
+
+       * elmo-pop3.el (elmo-pop3-get-connection): Add `signal'.
+
 2000-08-08  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * elmo2.el (elmo-move-msgs): Set value of `unseen'.

diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el
index 2886a52..4343105 100644 (file)
--- a/elmo/elmo-pop3.el
+++ b/elmo/elmo-pop3.el
@@ -125,7 +125,7 @@
     (if (and entry
             (memq (setq proc-stat
                         (process-status (cadr (cdr entry))))
-                  '(closed exit)))
+                  '(closed exit signal)))
        ;; connection is closed...
        (let ((buffer (car (cdr entry))))
          (if buffer (kill-buffer buffer))