From 7e25f2097ea27acf8815e95491511a607ab6565d Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 8 Dec 1998 10:17:41 +0000 Subject: [PATCH] * ChangeLog: Fix latin chars. * pop3.el (pop3-open-server): Use `open-network-stream-as-binary' instead of `open-network-stream'. * nntp.el (nntp-open-network-stream): Ditto. * gnus-gl.el (bbb-connect-to-bbbd): Ditto. * nntp.el (nntp-open-rlogin): Enclose `start-process' with `as-binary-process'. (nntp-open-telnet): Ditto. * nntp.el (nntp-coding-system-for-write): Abolished. (nntp-coding-system-for-read): Abolished. * nndb.el: Don't require `tcp'. --- lisp/ChangeLog | 4 ++-- lisp/gnus-gl.el | 3 ++- lisp/nndb.el | 6 ------ lisp/nntp.el | 36 ++++++++++++++++-------------------- lisp/pop3.el | 7 ++----- 5 files changed, 22 insertions(+), 34 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ebfac42..744da48 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -282,7 +282,7 @@ Mon Nov 30 23:38:02 1998 Shenghuo ZHU * mm-uu.el (mm-uu-dissect): Use mm-make-handle. -1998-12-01 01:53:49 Fran$BmP(Bis Pinard +1998-12-01 01:53:49 François Pinard * nndoc.el (nndoc-mime-parts-type-p): Do related. @@ -2028,7 +2028,7 @@ Mon Sep 14 18:55:38 1998 Lars Magne Ingebrigtsen * rfc2047.el (rfc2047-q-encode-region): Would bug out. -1998-09-13 Fran$BmP(Bis Pinard +1998-09-13 François Pinard * nndoc.el: Make nndoc-dissection-alist simpler for MIME, adjust all related functions. Handle message/rfc822 parts. Display subject on diff --git a/lisp/gnus-gl.el b/lisp/gnus-gl.el index 93ef915..de68a6d 100644 --- a/lisp/gnus-gl.el +++ b/lisp/gnus-gl.el @@ -257,7 +257,8 @@ If this times out we give up and assume that something has died..." ) (catch 'done (condition-case error (setq grouplens-bbb-process - (open-network-stream "BBBD" grouplens-bbb-buffer host port)) + (open-network-stream-as-binary + "BBBD" grouplens-bbb-buffer host port)) (error (gnus-message 3 "Error: Failed to connect to BBB") nil)) (and (null grouplens-bbb-process) diff --git a/lisp/nndb.el b/lisp/nndb.el index 5244cb5..9cbf7be 100644 --- a/lisp/nndb.el +++ b/lisp/nndb.el @@ -59,12 +59,6 @@ (eval-when-compile (require 'cl)) (eval-and-compile - (unless (fboundp 'open-network-stream) - (require 'tcp))) - -(eval-when-compile (require 'cl)) - -(eval-and-compile (autoload 'news-setup "rnewspost") (autoload 'news-reply-mode "rnewspost") (autoload 'cancel-timer "timer") diff --git a/lisp/nntp.el b/lisp/nntp.el index 731923d..c212806 100644 --- a/lisp/nntp.el +++ b/lisp/nntp.el @@ -150,12 +150,6 @@ server there that you can connect to. See also (defvoo nntp-warn-about-losing-connection t "*If non-nil, beep when a server closes connection.") -(defvoo nntp-coding-system-for-read 'binary - "*Coding system to read from NNTP.") - -(defvoo nntp-coding-system-for-write 'binary - "*Coding system to write to NNTP.") - (defcustom nntp-authinfo-file "~/.authinfo" ".netrc-like file that holds nntp authinfo passwords." :type @@ -847,9 +841,7 @@ password contained in '~/.nntp-authinfo'." (kill-buffer ,pbuffer)))))) (process (condition-case () - (let ((coding-system-for-read nntp-coding-system-for-read) - (coding-system-for-write nntp-coding-system-for-write)) - (funcall nntp-open-connection-function pbuffer)) + (funcall nntp-open-connection-function pbuffer) (error nil) (quit nil)))) (when timer @@ -875,7 +867,8 @@ password contained in '~/.nntp-authinfo'." nil)))) (defun nntp-open-network-stream (buffer) - (open-network-stream "nntpd" buffer nntp-address nntp-port-number)) + (open-network-stream-as-binary + "nntpd" buffer nntp-address nntp-port-number)) (defun nntp-open-ssl-stream (buffer) (let* ((ssl-program-arguments '("-connect" (concat host ":" service))) @@ -1227,9 +1220,10 @@ password contained in '~/.nntp-authinfo'." (save-excursion (set-buffer buffer) (erase-buffer) - (let ((proc (apply - 'start-process - "nntpd" buffer nntp-telnet-command nntp-telnet-switches)) + (let ((proc (as-binary-process + (apply + 'start-process + "nntpd" buffer nntp-telnet-command nntp-telnet-switches))) (case-fold-search t)) (when (memq (process-status proc) '(open run)) (process-send-string proc "set escape \^X\n") @@ -1274,13 +1268,15 @@ password contained in '~/.nntp-authinfo'." (defun nntp-open-rlogin (buffer) "Open a connection to SERVER using rsh." (let ((proc (if nntp-rlogin-user-name - (apply 'start-process - "nntpd" buffer nntp-rlogin-program - nntp-address "-l" nntp-rlogin-user-name - nntp-rlogin-parameters) - (apply 'start-process - "nntpd" buffer nntp-rlogin-program nntp-address - nntp-rlogin-parameters)))) + (as-binary-process + (apply 'start-process + "nntpd" buffer nntp-rlogin-program + nntp-address "-l" nntp-rlogin-user-name + nntp-rlogin-parameters)) + (as-binary-process + (apply 'start-process + "nntpd" buffer nntp-rlogin-program nntp-address + nntp-rlogin-parameters))))) (save-excursion (set-buffer buffer) (nntp-wait-for-string "^\r*20[01]") diff --git a/lisp/pop3.el b/lisp/pop3.el index 16eaa8c..e3f084b 100644 --- a/lisp/pop3.el +++ b/lisp/pop3.el @@ -115,17 +115,14 @@ Used for APOP authentication.") Returns the process associated with the connection." (let ((process-buffer (get-buffer-create (format "trace of POP session to %s" mailhost))) - (process) - (coding-system-for-read 'binary) ;; 000000000 00000 000 - (coding-system-for-write 'binary) ;; 00 000000 - ) + (process)) (save-excursion (set-buffer process-buffer) (erase-buffer) (setq pop3-read-point (point-min)) ) (setq process - (open-network-stream "POP" process-buffer mailhost port)) + (open-network-stream-as-binary "POP" process-buffer mailhost port)) (let ((response (pop3-read-response process t))) (setq pop3-timestamp (substring response (or (string-match "<" response) 0) -- 1.7.10.4