Mercurial > hg > xemacs-beta
comparison lisp/gnus/nntp.el @ 104:cf808b4c4290 r20-1b4
Import from CVS: tag r20-1b4
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:16:51 +0200 |
| parents | 0d2f883870bc |
| children | 360340f9fd5f |
comparison
equal
deleted
inserted
replaced
| 103:30eda07fe280 | 104:cf808b4c4290 |
|---|---|
| 231 ;; Wait for text of last command. | 231 ;; Wait for text of last command. |
| 232 (goto-char (point-max)) | 232 (goto-char (point-max)) |
| 233 (re-search-backward "^[0-9]" nil t) | 233 (re-search-backward "^[0-9]" nil t) |
| 234 (when (looking-at "^[23]") | 234 (when (looking-at "^[23]") |
| 235 (while (progn | 235 (while (progn |
| 236 (goto-char (- (point-max) 3)) | 236 (goto-char (point-max)) |
| 237 (forward-line -1) | |
| 237 (not (looking-at "^\\.\r?\n"))) | 238 (not (looking-at "^\\.\r?\n"))) |
| 238 (nntp-accept-response))) | 239 (nntp-accept-response))) |
| 239 (and (numberp nntp-large-newsgroup) | 240 (and (numberp nntp-large-newsgroup) |
| 240 (> number nntp-large-newsgroup) | 241 (> number nntp-large-newsgroup) |
| 241 (nnheader-message 6 "NNTP: Receiving headers...done")) | 242 (nnheader-message 6 "NNTP: Receiving headers...done")) |
| 1084 nntp-rlogin-parameters " "))))) | 1085 nntp-rlogin-parameters " "))))) |
| 1085 (set-buffer buffer) | 1086 (set-buffer buffer) |
| 1086 (nntp-wait-for-string "^\r*200") | 1087 (nntp-wait-for-string "^\r*200") |
| 1087 (beginning-of-line) | 1088 (beginning-of-line) |
| 1088 (delete-region (point-min) (point)) | 1089 (delete-region (point-min) (point)) |
| 1089 proc) | 1090 proc)) |
| 1090 ) | |
| 1091 | 1091 |
| 1092 (defun nntp-find-group-and-number () | 1092 (defun nntp-find-group-and-number () |
| 1093 (save-excursion | 1093 (save-excursion |
| 1094 (save-restriction | 1094 (save-restriction |
| 1095 (set-buffer nntp-server-buffer) | 1095 (set-buffer nntp-server-buffer) |