Move ';;; Code:' comment.

[elisp/wanderlust.git] / elmo / elmo-net.el

diff --git a/elmo/elmo-net.el b/elmo/elmo-net.el
index df30cb1..7abbd79 100644 (file)
--- 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