From 975cdb1419dc5be142afe91d8675b51240d55394 Mon Sep 17 00:00:00 2001 From: okada Date: Sun, 26 Nov 2000 10:56:09 +0000 Subject: [PATCH] * elmo-nntp.el (elmo-network-initialize-session): Accept response 20[01]. --- elmo/ChangeLog | 4 ++++ elmo/elmo-nntp.el | 5 ++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index f1e267b..cbf994b 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,7 @@ +2000-11-26 Kenichi OKADA + + * elmo-nntp.el (elmo-network-initialize-session): Accept response 20[01]. + 2000-11-22 Kenichi OKADA * elmo-nntp.el (elmo-network-initialize-session): Skip garbage output diff --git a/elmo/elmo-nntp.el b/elmo/elmo-nntp.el index 12f465e..376bf47 100644 --- a/elmo/elmo-nntp.el +++ b/elmo/elmo-nntp.el @@ -193,7 +193,7 @@ Don't cache if nil.") (while (and (memq (process-status process) '(open run)) (goto-char (point-max)) (forward-line -1) - (not (looking-at "200"))) + (not (looking-at "20[01]"))) (accept-process-output process 1)) (setq elmo-nntp-read-point (point)) (or (elmo-nntp-read-response session t) @@ -204,8 +204,7 @@ Don't cache if nil.") (elmo-nntp-send-command session "starttls") (or (elmo-nntp-read-response session) (error "Cannot open starttls session")) - (starttls-negotiate - (elmo-network-session-process-internal session)))))) + (starttls-negotiate process))))) (luna-define-method elmo-network-authenticate-session ((session elmo-nntp-session)) -- 1.7.10.4