X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-net.el;h=7abbd79fcb6a44861bfafc865485f6cb1eba1699;hb=2398b1df142250be96cc582d7ec4fc2d7de17601;hp=df30cb17bc71ddd58d6720d3c55b9ad03c81e202;hpb=a09e17d931e2fc4fa4169ef6756cf3ed66fd6ee0;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-net.el b/elmo/elmo-net.el
index df30cb1..7abbd79 100644
--- a/elmo/elmo-net.el
+++ b/elmo/elmo-net.el
@@ -26,6 +26,8 @@
 ;;; Commentary:
 ;;
 
+;;; Code:
+;;
 (eval-when-compile (require 'cl))
 
 (require 'elmo-util)
@@ -34,9 +36,6 @@
 (require 'elmo-cache)
 (require 'elmo)
 
-;;; Code:
-;;
-
 (defconst elmo-net-folder-name-syntax '((?@ [server ".+"])
 					(?: [port "^[0-9]+$"])
 					(?! stream-type)))
@@ -351,7 +350,7 @@ Returned value is searched from `elmo-network-stream-type-alist'."
     ;; port
     (elmo-net-folder-set-port-internal
      folder
-     (or (and port (string-to-int port))
+     (or (and port (string-to-number port))
 	 (plist-get defaults :port)))
     ;; stream-type
     (elmo-net-folder-set-stream-type-internal