(nntp-coding-system-for-read): New variable.

(nntp-open-connection): Bind `coding-system-for-read' with
`nntp-coding-system-for-read' for Emacs/mule and XEmacs/mule.

1 files changed, 7 insertions, 1 deletions

diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el
index 9c40dc5a0f3..52fd0867477 100644
--- a/lisp/gnus/nntp.el
+++ b/lisp/gnus/nntp.el
@@ -142,6 +142,10 @@ server there that you can connect to.  See also `nntp-open-connection-function'"
 (defvoo nntp-warn-about-losing-connection t
   "*If non-nil, beep when a server closes connection.")
 
+;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp>
+(defvoo nntp-coding-system-for-read nil
+  "*coding-system for read from NNTP.")
+
 
 
 ;;; Internal variables.
@@ -736,7 +740,9 @@ This function is supposed to be called from `nntp-server-opened-hook'."
   (let* ((pbuffer (nntp-make-process-buffer buffer))
          (process
           (condition-case ()
-              (funcall nntp-open-connection-function pbuffer)
+              ;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp>
+              (let ((coding-system-for-read nntp-coding-system-for-read))
+                (funcall nntp-open-connection-function pbuffer))
             (error nil)
             (quit nil))))
     (when process