summaryrefslogtreecommitdiff
path: root/lisp/gnus
diff options
context:
space:
mode:
authorKenichi Handa <handa@m17n.org>1997-09-11 05:24:25 +0000
committerKenichi Handa <handa@m17n.org>1997-09-11 05:24:25 +0000
commit6cc12b0911f3f88311245c0876553b12ddc25a71 (patch)
tree3b030db4b8f2881b516320bb7aa1ee29366b541d /lisp/gnus
parent9cd441adfbdca4b0b526c577740eb8d96be14c10 (diff)
downloademacs-6cc12b0911f3f88311245c0876553b12ddc25a71.tar.gz
Set no-conversion for network communication
with nntpd. (gnus-mule-initialize): For safety, set no-conversion for network communication with nntpd.
Diffstat (limited to 'lisp/gnus')
-rw-r--r--lisp/gnus/gnus-mule.el7
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-mule.el b/lisp/gnus/gnus-mule.el
index 13062278ce8..75e224aace9 100644
--- a/lisp/gnus/gnus-mule.el
+++ b/lisp/gnus/gnus-mule.el
@@ -206,7 +206,10 @@ coding-system for reading and writing respectively."
(add-hook 'message-send-news-hook
'gnus-mule-message-send-news-function)
(add-hook 'message-send-mail-hook
- 'gnus-mule-message-send-mail-function))
+ 'gnus-mule-message-send-mail-function)
+ (let ((stream (get-process "nntpd")))
+ (if (processp stream)
+ (set-process-coding-system stream 'no-conversion 'no-conversion))))
(gnus-mule-add-group "" 'undecided)
(gnus-mule-add-group "fj" 'iso-2022-7bit)
@@ -221,4 +224,6 @@ coding-system for reading and writing respectively."
(add-hook 'gnus-startup-hook 'gnus-mule-initialize)
+(modify-coding-system-alist 'network "nntp" 'no-conversion)
+
;; gnus-mule.el ends here