From: Kenichi Handa <handa@m17n.org>
Date: Thu, 28 Aug 1997 04:51:02 +0000 (+0000)
Subject: (nntp-coding-system-for-read): New variable.
X-Git-Tag: emacs-20.1~350
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fc46309dc8617616fab1e9a6dd570a13400e17af;p=emacs.git

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