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

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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index adfd912..a1ef94d 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-nntp-default-stream-type'.
+
 2001-09-13  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-mime.el (elmo-mime-display-as-is-coding-system): New user
diff --git a/elmo/elmo-nntp.el b/elmo/elmo-nntp.el
index d4933b3..ff3e29d 100644
--- a/elmo/elmo-nntp.el
+++ b/elmo/elmo-nntp.el
@@ -986,7 +986,9 @@ Don't cache if nil.")
 		   :user elmo-nntp-default-user
 		   :server hostname
 		   :port elmo-nntp-default-port
-		   :stream-type elmo-nntp-default-stream-type)))
+		   :stream-type
+		   (elmo-get-network-stream-type
+		    elmo-nntp-default-stream-type))))
 	response has-message-id)
     (save-excursion
       (set-buffer content-buf)