* elmo-nntp.el (elmo-network-initialize-session): Accept response 20[01].

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index ac02853..bd18055 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-26  Kenichi OKADA  <okada@opaopa.org>
+
+       * elmo-nntp.el (elmo-network-initialize-session): Accept response 20[01].
+
 2000-11-24  Kenichi OKADA  <okada@opaopa.org>
 
        * elmo-nntp.el (elmo-network-initialize-session): omitted.

diff --git a/elmo/elmo-nntp.el b/elmo/elmo-nntp.el
index 8b925a8..f8a18ea 100644 (file)
--- a/elmo/elmo-nntp.el
+++ b/elmo/elmo-nntp.el
@@ -190,7 +190,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)