From: kaoru <kaoru>
Date: Fri, 1 Jan 2010 08:15:27 +0000 (+0000)
Subject: * modb-standard.el (modb-standard-cleanup-stale-entities): Use `string-to-number... 
X-Git-Tag: elmo-imap4-compliance-root~75
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9cb2b70418492e33991d831caa0e19f6cdf3125e;p=elisp%2Fwanderlust.git

* modb-standard.el (modb-standard-cleanup-stale-entities): Use `string-to-number' instead of `string-to-int'.
---

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  <kaoru@kaisei.org>
 
+	* 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