[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-agent.el
|
From: |
Miles Bader |
|
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-agent.el |
|
Date: |
Mon, 30 May 2005 13:13:59 -0400 |
Index: emacs/lisp/gnus/gnus-agent.el
diff -c emacs/lisp/gnus/gnus-agent.el:1.17 emacs/lisp/gnus/gnus-agent.el:1.18
*** emacs/lisp/gnus/gnus-agent.el:1.17 Mon May 30 08:20:19 2005
--- emacs/lisp/gnus/gnus-agent.el Mon May 30 17:13:58 2005
***************
*** 1540,1546 ****
(while (looking-at "\\([^: \n]+\\):\\([0-9]+\\) *")
(push (cons (buffer-substring (match-beginning 1)
(match-end 1))
! (string-to-int
(buffer-substring (match-beginning 2)
(match-end 2))))
crosses)
--- 1540,1546 ----
(while (looking-at "\\([^: \n]+\\):\\([0-9]+\\) *")
(push (cons (buffer-substring (match-beginning 1)
(match-end 1))
! (string-to-number
(buffer-substring (match-beginning 2)
(match-end 2))))
crosses)
***************
*** 3703,3709 ****
(dir (file-name-directory file))
point
(downloaded (if (file-exists-p dir)
! (sort (mapcar (lambda (name) (string-to-int
name))
(directory-files dir nil
"^[0-9]+$" t))
'>)
(progn (gnus-make-directory dir) nil)))
--- 3703,3709 ----
(dir (file-name-directory file))
point
(downloaded (if (file-exists-p dir)
! (sort (mapcar (lambda (name) (string-to-number
name))
(directory-files dir nil
"^[0-9]+$" t))
'>)
(progn (gnus-make-directory dir) nil)))