* elmo-nntp.el (elmo-network-initialize-session): Call

	`elmo-nntp-send-mode-reader'.
	(elmo-network-setup-session): Remove `elmo-nntp-send-mode-reader'.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 6329473..1e03aeb 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2001-07-28  Kenichi OKADA  <okada@opaopa.org>
+
+       * elmo-nntp.el (elmo-network-initialize-session): Call
+       `elmo-nntp-send-mode-reader'.
+       (elmo-network-setup-session): Remove `elmo-nntp-send-mode-reader'.
+
 2001-07-25  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * elmo-archive.el (elmo-archive-get-archive-name): Cause an error when

diff --git a/elmo/elmo-nntp.el b/elmo/elmo-nntp.el
index c4ed392..634766d 100644 (file)
--- a/elmo/elmo-nntp.el
+++ b/elmo/elmo-nntp.el
@@ -193,6 +193,8 @@ Don't cache if nil.")
       (setq elmo-nntp-read-point (point))
       (or (elmo-nntp-read-response session t)
          (error "Cannot open network"))
+      (if elmo-nntp-send-mode-reader
+         (elmo-nntp-send-mode-reader session))
       (when (eq (elmo-network-stream-type-symbol
                 (elmo-network-session-stream-type-internal session))
                'starttls)
@@ -220,8 +222,6 @@ Don't cache if nil.")
 
 (luna-define-method elmo-network-setup-session ((session
                                                 elmo-nntp-session))
-  (if elmo-nntp-send-mode-reader
-      (elmo-nntp-send-mode-reader session))
   (run-hooks 'elmo-nntp-opened-hook))
 
 (defun elmo-nntp-process-filter (process output)