From: okada <okada>
Date: Fri, 11 Aug 2000 18:09:26 +0000 (+0000)
Subject: * elmo-pop3.el (elmo-pop3-get-connection): Add `signal'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=43683b2941375f8ae9c11a7ad952a8ad8d859bc2;p=elisp%2Fwanderlust.git

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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index d2c144c..57f3dd6 100644
--- 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
--- 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))