From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/25618 Path: main.gmane.org!not-for-mail From: Shenghuo ZHU Newsgroups: gmane.emacs.gnus.general Subject: Re: hang on entry to group Date: 03 Oct 1999 03:07:41 -0400 Organization: U of Rochester Sender: owner-ding@hpc.uh.edu Message-ID: <2nwvt4apmq.fsf@tiger.jia.vnet> References: <5b670ph10p.fsf@giga.cs.rochester.edu> <2ng0ztgjvp.fsf@tiger.jia.vnet> <2nr9jdnemj.fsf@tiger.jia.vnet> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035162971 14970 80.91.224.250 (21 Oct 2002 01:16:11 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 01:16:11 +0000 (UTC) Return-Path: Original-Received: from spinoza.math.uh.edu (spinoza.math.uh.edu [129.7.128.18]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id DAA15205 for ; Sun, 3 Oct 1999 03:06:53 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by spinoza.math.uh.edu (8.9.1/8.9.1) with ESMTP id CAB19035; Sun, 3 Oct 1999 02:05:58 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sun, 03 Oct 1999 02:06:48 -0500 (CDT) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id CAA04440 for ; Sun, 3 Oct 1999 02:06:37 -0500 (CDT) Original-Received: from cayuga.cs.rochester.edu (cayuga.cs.rochester.edu [192.5.53.209]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id DAA15200 for ; Sun, 3 Oct 1999 03:04:38 -0400 (EDT) Original-Received: from heart.cs.rochester.edu (heart.cs.rochester.edu [192.5.53.109]) by cayuga.cs.rochester.edu (8.9.3/Q) with ESMTP id DAA02697 for ; Sun, 3 Oct 1999 03:03:57 -0400 (EDT) Original-Received: (from zsh@localhost) by heart.cs.rochester.edu (8.9.3/8.9.3) id DAA04302; Sun, 3 Oct 1999 03:07:41 -0400 Original-To: ding@gnus.org X-Attribution: ZSH X-Face: 'IF:e51ib'Qbl^(}l^&4-J`'P!@[4~O|&k#:@Gld#b/]oMq&`&FVY._3+b`mzp~Jeve~/#/ ERD!OTe<86UhyN=l`mrPY)M7_}`Ktt\K+58Z!hu7>qU,i.N7TotU[FYE(f1;}`g2xj!u*l`^&=Q!g{ *q|ddto|nkt"$r,K$[)"|6,elPH= GJ6Q In-Reply-To: Shenghuo ZHU's message of "03 Oct 1999 02:27:00 -0400" Original-Lines: 17 User-Agent: Gnus/5.07009701 (Pterodactyl Gnus v0.97.1) XEmacs/21.2 (Shinjuku) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:25618 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:25618 --=-=-= >>>>> "ZSH" == Shenghuo ZHU writes: ZSH> Fixed. ZSH> The ChangeLog and the patch follow and have been committed to CVS. ZSH> Apply the previous patch also. I am sorry that I made a mistake on the last patch. Now I put all changes I made on nntp.el since 0.97 in one patch. ChangeLog is reusable. -- Shenghuo ZHU --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=97-zsh4+.diff Index: nntp.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/nntp.el,v retrieving revision 5.20 retrieving revision 5.23 diff -r5.20 -r5.23 1121c1121,1122 < (last-point (point-min)) --- > last-point > in-process-buffer-p 1123c1124 < ;;(process-buffer (nntp-find-connection (current-buffer)))) --- > (process-buffer (nntp-find-connection-buffer nntp-server-buffer)) 1136,1139c1137,1144 < (when (nntp-send-xover-command first (car articles)) < (setq articles (cdr articles) < count (1+ count)) < --- > (setq in-process-buffer-p (stringp nntp-server-xover)) > (nntp-send-xover-command first (car articles)) > (setq articles (cdr articles)) > > (when (and nntp-server-xover in-process-buffer-p) > ;; Don't count tried request. > (setq count (1+ count)) > 1144c1149,1150 < (accept-process-output) --- > > (nntp-accept-response) 1149c1155 < (set-buffer buf) --- > (set-buffer process-buffer) 1151c1157 < (goto-char last-point) --- > (goto-char (or last-point (point-min))) 1157,1158c1163,1165 < (accept-process-output) < (set-buffer buf))))) --- > (nntp-accept-response) > (set-buffer process-buffer)) > (set-buffer buf)))) 1161,1169c1168,1185 < ;; Wait for the reply from the final command. < (goto-char (point-max)) < (re-search-backward "^[0-9][0-9][0-9] " nil t) < (when (looking-at "^[23]") < (while (progn < (goto-char (point-max)) < (forward-line -1) < (not (looking-at "^\\.\r?\n"))) < (nntp-accept-response))) --- > (when in-process-buffer-p > (set-buffer process-buffer) > ;; Wait for the reply from the final command. > (goto-char (point-max)) > (re-search-backward "^[0-9][0-9][0-9] " nil t) > (when (looking-at "^[23]") > (while (progn > (goto-char (point-max)) > (forward-line -1) > (not (looking-at "^\\.\r?\n"))) > (nntp-accept-response) > (set-buffer process-buffer))) > (set-buffer buf) > (goto-char (point-max)) > (insert-buffer-substring process-buffer) > (set-buffer process-buffer) > (erase-buffer) > (set-buffer buf)) 1192c1208 < (nntp-send-command-nodelete "\r?\n\\.\r?\n" nntp-server-xover range)) --- > (nntp-send-command-nodelete nil nntp-server-xover range)) --=-=-=--