Mercurial > emacs
changeset 19598:611e0de24d43
(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.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 28 Aug 1997 04:51:02 +0000 |
| parents | 1dfca0cdcb91 |
| children | 8fa15d926b32 |
| files | lisp/gnus/nntp.el |
| diffstat | 1 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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