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