Mercurial > emacs
comparison lisp/gnus/nntp.el @ 19992:36e81448237d
(nntp-coding-system-for-write): New variable.
(nntp-open-connection): Bind coding-system-for-write to
nntp-coding-system-for-write.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Fri, 26 Sep 1997 01:50:55 +0000 |
parents | 5f1ab3dd344d |
children | fe71a35628c9 |
comparison
equal
deleted
inserted
replaced
19991:6a13c8143100 | 19992:36e81448237d |
---|---|
149 (defvoo nntp-warn-about-losing-connection t | 149 (defvoo nntp-warn-about-losing-connection t |
150 "*If non-nil, beep when a server closes connection.") | 150 "*If non-nil, beep when a server closes connection.") |
151 | 151 |
152 ;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp> | 152 ;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp> |
153 (defvoo nntp-coding-system-for-read nil | 153 (defvoo nntp-coding-system-for-read nil |
154 "*coding-system for read from NNTP.") | 154 "*Coding system to read from NNTP.") |
155 | |
156 (defvoo nntp-coding-system-for-write nil | |
157 "*Coding system to write to NNTP.") | |
155 | 158 |
156 | 159 |
157 | 160 |
158 ;;; Internal variables. | 161 ;;; Internal variables. |
159 | 162 |
748 (run-hooks 'nntp-prepare-server-hook) | 751 (run-hooks 'nntp-prepare-server-hook) |
749 (let* ((pbuffer (nntp-make-process-buffer buffer)) | 752 (let* ((pbuffer (nntp-make-process-buffer buffer)) |
750 (process | 753 (process |
751 (condition-case () | 754 (condition-case () |
752 ;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp> | 755 ;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp> |
753 (let ((coding-system-for-read nntp-coding-system-for-read)) | 756 (let ((coding-system-for-read nntp-coding-system-for-read) |
757 (coding-system-for-write nntp-coding-system-for-write)) | |
754 (funcall nntp-open-connection-function pbuffer)) | 758 (funcall nntp-open-connection-function pbuffer)) |
755 (error nil) | 759 (error nil) |
756 (quit nil)))) | 760 (quit nil)))) |
757 (when process | 761 (when process |
758 (process-kill-without-query process) | 762 (process-kill-without-query process) |