From c7809371469ddbf6885f8eff904c019202848210 Mon Sep 17 00:00:00 2001 From: okada Date: Fri, 27 Oct 2000 22:46:06 +0000 Subject: [PATCH] * elmo-imap4.el (elmo-network-initialize-session): Change error message. * elmo-pop3.el (elmo-network-initialize-session): Change error message. --- elmo/ChangeLog | 5 +++++ elmo/elmo-imap4.el | 3 ++- elmo/elmo-pop3.el | 2 +- 3 files changed, 8 insertions(+), 2 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index d0d9d49..bea286f 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2000-10-28 Kenichi OKADA + + * elmo-imap4.el (elmo-network-initialize-session): Change error message. + * elmo-pop3.el (elmo-network-initialize-session): Change error message. + 2000-10-27 Yuuichi Teranishi * elmo-imap4.el (elmo-imap4-session-select-mailbox): Return response diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el index c90ead4..182a026 100644 --- a/elmo/elmo-imap4.el +++ b/elmo/elmo-imap4.el @@ -1209,12 +1209,13 @@ If optional argument UNMARK is non-nil, unmark." (elmo-imap4-response-value (elmo-imap4-send-command-wait session "capability") 'capability)) + (debug) (when (eq (elmo-network-stream-type-symbol (elmo-network-session-stream-type-internal session)) 'starttls) (or (memq 'starttls capability) (signal 'elmo-open-error - '(elmo-network-initialize-session))) + '(elmo-imap4-starttls-error))) (elmo-imap4-send-command-wait session "starttls") (starttls-negotiate process))))) diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el index 1a82f44..892361a 100644 --- a/elmo/elmo-pop3.el +++ b/elmo/elmo-pop3.el @@ -320,7 +320,7 @@ (elmo-pop3-read-response process)) (starttls-negotiate process) (signal 'elmo-open-error - '(elmo-network-intialize-session))))))) + '(elmo-pop3-starttls-error))))))) (luna-define-method elmo-network-authenticate-session ((session elmo-pop3-session)) -- 1.7.10.4