sekka.el in sekka-1.2.3

- old
+ new

@@ -315,11 +315,11 @@
       (sekka-next-sekka-server-message "second" "sekka-server-url-2")))
    ((string-equal current-sekka-server-url
 		  sekka-server-url-2)
     (if (< 0 (length sekka-server-url-3))
 	(setq current-sekka-server-url sekka-server-url-3)
-      (sekka-next-sekka-server-message "third"  "sekka-server-url-3")))
+      (setq current-sekka-server-url sekka-server-url)))
    (t
     (when (< 0 (length sekka-server-url))
       (setq current-sekka-server-url sekka-server-url)))))
 
 
@@ -335,12 +335,13 @@
 ;;    )
 (defun sekka-rest-request (func-name arg-alist)
   (defun one-request (func-name arg-alist)
     (let ((result (sekka-rest-request-sub func-name arg-alist)))
       (if (or
-	   (string-match-p "^curl: [(]6[)] " result) ;; Couldn't resolve host 'aaa.example.com' 
-	   (string-match-p "^curl: [(]7[)] " result) ;; Couldn't connect to host 'localhost'
+	   (string-match-p "^curl: [(]6[)] "  result) ;; Couldn't resolve host 'aaa.example.com' 
+	   (string-match-p "^curl: [(]7[)] "  result) ;; Couldn't connect to host 'localhost'
+	   (string-match-p "^curl: [(]28[)] " result) ;; Operation timed out after XXXX milliseconds with 0 bytes received
 	   )
 	  (progn
 	    (sekka-next-sekka-server)
 	    nil)
 	result)))
@@ -1618,10 +1619,10 @@
 ;; input-method として登録する。
 (set-language-info "Japanese" 'input-method "japanese-sekka")
 (setq default-input-method "japanese-sekka")
 
 (defconst sekka-version
-  "1.2.2" ;;SEKKA-VERSION
+  "1.2.3" ;;SEKKA-VERSION
   )
 (defun sekka-version (&optional arg)
   "入力モード変更"
   (interactive "P")
   (message sekka-version))