Use `string-to-number' instead of `string-to-int'.

diff --git a/utils/ChangeLog b/utils/ChangeLog
index 6423b88..f667ce2 100644 (file)
--- a/utils/ChangeLog
+++ b/utils/ChangeLog
@@ -1,3 +1,7 @@
+2008-02-14  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * wl-mailto.el: Use `string-to-number' instead of `string-to-int'.
+
 2008-02-11  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * wl-addrbook.el (wl-addrbook-hashtb): Use quote instead of

diff --git a/utils/wl-mailto.el b/utils/wl-mailto.el
index c653102..ab95f85 100644 (file)
--- a/utils/wl-mailto.el
+++ b/utils/wl-mailto.el
@@ -90,7 +90,7 @@
 
 ;; yucky compatibility stuff -- someone help me w/ this, please...
 (if (and (string-match "^XEmacs \\([0-9.]+\\)" (emacs-version))
-        (< (string-to-int (match-string 1 (emacs-version))) 21))
+        (< (string-to-number (match-string 1 (emacs-version))) 21))
     ;; for xemacs versions less than 21, use browse-url.el
     (progn
       (require 'browse-url)