From 9cb2b70418492e33991d831caa0e19f6cdf3125e Mon Sep 17 00:00:00 2001 From: kaoru Date: Fri, 1 Jan 2010 08:15:27 +0000 Subject: [PATCH] * modb-standard.el (modb-standard-cleanup-stale-entities): Use `string-to-number' instead of `string-to-int'. --- elmo/ChangeLog | 3 +++ elmo/modb-standard.el | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index c2665b7..316fee4 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,5 +1,8 @@ 2010-01-01 TAKAHASHI Kaoru + * modb-standard.el (modb-standard-cleanup-stale-entities): Use + `string-to-number' instead of `string-to-int'. + * elmo-util.el (elmo-set-work-buf): Use `with-current-buffer' instead of `save-excursion' (for suppress compile warnings). * elmo-pop3.el (elmo-pop3-retrieve-headers): Ditto. diff --git a/elmo/modb-standard.el b/elmo/modb-standard.el index dc413c8..f710dd3 100644 --- a/elmo/modb-standard.el +++ b/elmo/modb-standard.el @@ -257,7 +257,7 @@ (modb-standard-number-list-internal modb)))) (files (mapcar #'(lambda(x) (when (string-match entity-regex x) - (string-to-int (match-string 1 x)))) + (string-to-number (match-string 1 x)))) (directory-files path nil entity-regex)))) (dolist (entity (car (elmo-list-diff-nonsortable files entities))) (ignore-errors (delete-file -- 1.7.10.4