Mercurial > emacs

comparison lisp/gnus/pop3.el @ 23403:789be3d7ef2d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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))