Re: [MERGED-BEN-MULE] Crash

AA> Hi Nick, AA> how do you get pop3 working in MERGED-BEN-MULE? AA> I also have the problem that mail popping hangs. AA> When I quit I get: AA> Signaling: (quit) AA> accept-process-output(#<network connection "POP<1>" ("pop3" . "pop.t-online.com") state:run>) AA> pop3-read-response(#<network connection "POP<1>" ("pop3" . "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. Nick. AA> Best regards, AA> Adrian --- mail-lib/pop3.el Fri Oct 6 13:40:48 2000 +++ /c/Program Files/XEmacs/xemacs-packages/lisp/mail-lib/pop3.el Mon Mar 18 14:39:18 2002 ＠＠ -283,8 +283,8 ＠＠ (save-excursion (set-buffer (process-buffer process)) (goto-char pop3-read-point) - (while (not (search-forward "\r\n" nil t)) - (accept-process-output process) + (while (not (search-forward "\n" nil t)) + (accept-process-output process 3) (goto-char pop3-read-point)) (setq match-end (point)) (goto-char pop3-read-point) ＠＠ -678,7 +678,7 ＠＠ "Get the extended pop3 response in the PROCESS buffer." (let ((start pop3-read-point) end) (set-buffer (process-buffer process)) - (while (not (re-search-forward "^\\.\r\n" nil t)) + (while (not (re-search-forward "^\\.\n" nil t)) (accept-process-output process) (goto-char start)) (setq pop3-extended-response-beginning start)