                     (let ((view-json (json-read-from-string view)))
                         (write-view (cdr (assoc 'children view-json)) 0))
                     (beginning-of-buffer)
+                    (setq visible-cursor t)
                     ;; Try to move to the corresponding line in the previous view.
                     ;; This is not always possible and not always helpful, but it is often both.
                     (beginning-of-line view-current-line)

    (if view-root
        (let ((url (request-view-url view-root view-depth view-style view-min-sharability view-max-sharability view-min-weight view-max-weight)))
(setq hack-url url)
            (http-get
                (concat (base-url) "set"
                    "?key=" (w3m-url-encode-string key)


(defun http-post (url args callback)
    "Send ARGS to URL as a POST request."
    (let ((url-request-method "POST")
        (url-request-extra-headers
            '(("Content-Type" . "application/x-www-form-urlencoded;charset=UTF-8")))
