From 0189fda89f4d4367593ee4dd6d85d2e82ccab784 Mon Sep 17 00:00:00 2001 From: okada Date: Thu, 13 Sep 2001 08:03:27 +0000 Subject: [PATCH] * elmo-nntp.el (elmo-nntp-post): Fix for `elmo-default-nntp-stream-type' --- elmo/ChangeLog | 4 ++++ elmo/elmo-nntp.el | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * elmo-nntp.el (elmo-nntp-post): Fix for `elmo-default-nntp-stream-type'. + 2001-08-20 Tatsuya Kinoshita * 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) -- 1.7.10.4