1499 |
(when (<= count 1) |
(when (<= count 1) |
1500 |
(goto-char (point-min)) |
(goto-char (point-min)) |
1501 |
(when (re-search-forward "^[0-9][0-9][0-9] .*\n\\([0-9]+\\)" nil t) |
(when (re-search-forward "^[0-9][0-9][0-9] .*\n\\([0-9]+\\)" nil t) |
1502 |
(let ((low-limit (string-to-int |
(let ((low-limit (string-to-number |
1503 |
(buffer-substring (match-beginning 1) |
(buffer-substring (match-beginning 1) |
1504 |
(match-end 1))))) |
(match-end 1))))) |
1505 |
(while (and articles (<= (car articles) low-limit)) |
(while (and articles (<= (car articles) low-limit)) |
1571 |
(goto-char (point-min)) |
(goto-char (point-min)) |
1572 |
;; We first find the number by looking at the status line. |
;; We first find the number by looking at the status line. |
1573 |
(let ((number (and (looking-at "2[0-9][0-9] +\\([0-9]+\\) ") |
(let ((number (and (looking-at "2[0-9][0-9] +\\([0-9]+\\) ") |
1574 |
(string-to-int |
(string-to-number |
1575 |
(buffer-substring (match-beginning 1) |
(buffer-substring (match-beginning 1) |
1576 |
(match-end 1))))) |
(match-end 1))))) |
1577 |
newsgroups xref) |
newsgroups xref) |
1609 |
"\\([^ :]+\\):\\([0-9]+\\)") |
"\\([^ :]+\\):\\([0-9]+\\)") |
1610 |
xref)) |
xref)) |
1611 |
(setq group (match-string 1 xref) |
(setq group (match-string 1 xref) |
1612 |
number (string-to-int (match-string 2 xref)))) |
number (string-to-number (match-string 2 xref)))) |
1613 |
((and (setq newsgroups |
((and (setq newsgroups |
1614 |
(mail-fetch-field "newsgroups")) |
(mail-fetch-field "newsgroups")) |
1615 |
(not (string-match "," newsgroups))) |
(not (string-match "," newsgroups))) |