intro: "NVP" == Nick V Pakoulin <npak(a)ispras.ru> writes:
intro: "SJ" == Simon Josefsson <jas(a)extundo.com> writes:
SJ> On 18 Mar 2002, Nickolay Pakoulin wrote:
AA> Signaling: (quit) accept-process-output(#<network connection
"POP<1>"
AA> ("pop3" . "pop.t-online.com") state:run>)
AA> pop3-read-response(#<network connection "POP<1>"
("pop3"
AA> . "pop.t-online.com") state:run> t)
AA> pop3-open-server("pop.t-online.com" "pop3")
>> I attached the patch below that makes pop3.el work. Still it
seems
>> VERY suspicios to me. I changed search patterns but the real fix
>> should deal with coding systems IMHO.
SJ> This is the obvious fix, yes, but I think it is the wrong one. pop3
SJ> should disable EOL magic instead, and match on \r\n. I thought
SJ> setting the read/write coding system to binary would be enough, but
SJ> apparently it isn't.
NVP> The solution is to set coding system for the process:
Another fix of the kind.
Had to fix nntp.el to read news. Have to set encoding/decoding systems for
a process manually. Thats strange, coding-system-for-read shoud be enough,
isn't it?
Nick.
--- gnus/gnus/lisp/nntp.el Thu Feb 8 11:57:23 2001
+++ /c/Program Files/XEmacs/xemacs-packages/lisp/gnus/nntp.el Mon Mar 18 15:25:38 2002
@@ -916,7 +916,10 @@
nil))))
(defun nntp-open-network-stream (buffer)
- (open-network-stream "nntpd" buffer nntp-address nntp-port-number))
+ (let ((process (open-network-stream "nntpd"
+ buffer nntp-address nntp-port-number)))
+ (set-process-coding-system process 'binary 'binary)
+ process))
(defun nntp-open-ssl-stream (buffer)
(let* ((ssl-program-arguments '("-connect" (concat host ":"
service)))