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