From 774b1675364f85bede2d47fc54e7bf8b77b39065 Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 31 Aug 2000 06:29:35 +0000 Subject: [PATCH] * 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. --- elmo/ChangeLog | 4 ++++ elmo/elmo-imap4.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + * 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.)")) -- 1.7.10.4