From: teranisi <teranisi>
Date: Thu, 31 Aug 2000 06:29:35 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-imap4-send-command):
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=774b1675364f85bede2d47fc54e7bf8b77b39065;p=elisp%2Fwanderlust.git

* elmo-imap4.el (elmo-imap4-send-command):
Cause elmo-imap4-bye-error when current response is BYE.
(elmo-imap4-arrival-filter): Changed greeting response value.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 0b4040b..ae89601 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,9 @@
 2000-08-31  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* elmo-imap4.el (elmo-imap4-send-command):
+	Cause elmo-imap4-bye-error when current response is BYE.
+	(elmo-imap4-arrival-filter): Changed greeting response value.
+
 	* elmo2.el (elmo-imap4-bye-error): Define.
 
 	* elmo-imap4.el (elmo-imap4-list): Don't call `elmo-imap4-commit'.
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index df6dc40..9f9dfc0 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -250,7 +250,8 @@ Returns a TAG string which is assigned to the COMAND."
       (goto-char (point-min))
       (if (elmo-imap4-response-bye-p elmo-imap4-current-response)
 	  (signal 'elmo-imap4-bye-error
-		  (list (elmo-imap4-response-error-text response))))      
+		  (list
+		   (elmo-imap4-response-error-text response))))
       (setq elmo-imap4-current-response nil)
       (if elmo-imap4-parsing
 	  (error "IMAP process is running. Please wait (or plug again.)"))