Mercurial > emacs
comparison lisp/gnus/pop3.el @ 23403:789be3d7ef2d
(pop3-open-server): Set process-coding-system-alist around open-network-stream.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 08 Oct 1998 09:58:00 +0000 |
parents | 5f1ab3dd344d |
children | dd68893482a9 |
comparison
equal
deleted
inserted
replaced
23402:6905813a49c6 | 23403:789be3d7ef2d |
---|---|
107 (defun pop3-open-server (mailhost port) | 107 (defun pop3-open-server (mailhost port) |
108 "Open TCP connection to MAILHOST. | 108 "Open TCP connection to MAILHOST. |
109 Returns the process associated with the connection." | 109 Returns the process associated with the connection." |
110 (let ((process-buffer | 110 (let ((process-buffer |
111 (get-buffer-create (format "trace of POP session to %s" mailhost))) | 111 (get-buffer-create (format "trace of POP session to %s" mailhost))) |
112 (process)) | 112 (process) |
113 (process-coding-system-alist | |
114 (cons '("POP" . nil) process-coding-system-alist))) | |
113 (save-excursion | 115 (save-excursion |
114 (set-buffer process-buffer) | 116 (set-buffer process-buffer) |
115 (erase-buffer)) | 117 (erase-buffer)) |
116 (setq process | 118 (setq process |
117 (open-network-stream "POP" process-buffer mailhost port)) | 119 (open-network-stream "POP" process-buffer mailhost port)) |