# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 872743862 0
# Node ID 611e0de24d43b7e3348db0356fe87eba28fe4b6a
# Parent  1dfca0cdcb914c35ecb198931667dafb11f9f519
(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 -r 1dfca0cdcb91 -r 611e0de24d43 lisp/gnus/nntp.el
--- a/lisp/gnus/nntp.el	Thu Aug 28 04:51:02 1997 +0000
+++ b/lisp/gnus/nntp.el	Thu Aug 28 04:51:02 1997 +0000
@@ -142,6 +142,10 @@
 (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 @@
   (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