diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/nntp.el | 8 |
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 |