(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.

diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el
index 9c40dc5a0f31d7970cffc3fee8b2632332e947b8..52fd0867477e45a2d7f657ecc33e93a3680a2fdb 100644 (file)
--- 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.")
+
 \f
 
 ;;; 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