* 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 60925ba..4ef04f3 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-26  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * elmo-shimbun.el (elmo-shimbun-index-range-alist): Changed to regexp

diff --git a/elmo/elmo-nntp.el b/elmo/elmo-nntp.el
index 9c31782..eba3d0c 100644 (file)
--- a/elmo/elmo-nntp.el
+++ b/elmo/elmo-nntp.el
@@ -278,6 +278,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)
@@ -305,8 +307,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)