From fc46309dc8617616fab1e9a6dd570a13400e17af Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 28 Aug 1997 04:51:02 +0000 Subject: [PATCH] (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. --- lisp/gnus/nntp.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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 +(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 + (let ((coding-system-for-read nntp-coding-system-for-read)) + (funcall nntp-open-connection-function pbuffer)) (error nil) (quit nil)))) (when process -- 2.39.5