/[emacs]/emacs/lisp/gnus/nntp.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nntp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.24 by miles, Tue May 17 04:57:29 2005 UTC revision 1.25 by miles, Mon May 30 17:13:58 2005 UTC
# Line 1499  password contained in '~/.nntp-authinfo' Line 1499  password contained in '~/.nntp-authinfo'
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))
# Line 1571  password contained in '~/.nntp-authinfo' Line 1571  password contained in '~/.nntp-authinfo'
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)
# Line 1609  password contained in '~/.nntp-authinfo' Line 1609  password contained in '~/.nntp-authinfo'
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)))

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26