From: okada <okada>
Date: Thu, 13 Sep 2001 08:03:27 +0000 (+0000)
Subject: * elmo-nntp.el (elmo-nntp-post): Fix for `elmo-default-nntp-stream-type'
X-Git-Tag: wl-2_6_1~41
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0189fda89f4d4367593ee4dd6d85d2e82ccab784;p=elisp%2Fwanderlust.git

* elmo-nntp.el (elmo-nntp-post): Fix for `elmo-default-nntp-stream-type'
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 6e8ca06..dbf76d7 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2001-09-13  Kenichi OKADA  <okada@opaopa.org>
+
+	* elmo-nntp.el (elmo-nntp-post): Fix for `elmo-default-nntp-stream-type'.
+
 2001-08-20  Tatsuya Kinoshita <tats@iris.ne.jp>
 
 	* elmo-pop3.el (elmo-pop3-parse-uidl-response): Allow multiple
diff --git a/elmo/elmo-nntp.el b/elmo/elmo-nntp.el
index 634766d..8d1db1e 100644
--- a/elmo/elmo-nntp.el
+++ b/elmo/elmo-nntp.el
@@ -889,7 +889,9 @@ Don't cache if nil.")
   (let ((session (elmo-nntp-get-session
 		  (list 'nntp nil elmo-default-nntp-user
 			hostname elmo-default-nntp-port
-			elmo-default-nntp-stream-type)))
+			(elmo-get-network-stream-type
+			 elmo-default-nntp-stream-type
+			 elmo-network-stream-type-alist))))
 	response has-message-id)
     (save-excursion
       (set-buffer content-buf)