From: okada <okada>
Date: Fri, 27 Jul 2001 18:27:36 +0000 (+0000)
Subject: 	* elmo-nntp.el (elmo-network-initialize-session): Call
X-Git-Tag: wl-2_7_2~8
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=71ab19298729c762c47cc2f3339a39e4ade26c98;p=elisp%2Fwanderlust.git

	* 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
--- 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
--- 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)