             "&maxWeight=" (number-to-string maxw)
             "&style=" style))
 
-(defun refresh-view-new (url)
-    (http-get url 'receive-view))
-
 (defun request-search-results (query minv maxv minw maxw)
+    (setq view-current-line 1)
     (http-get
         (concat (base-url) "search"
             "?query=" (w3m-url-encode-string query)

        ((string-equal style "links-inverse") "targets-inverse")))

(defun request-view (root depth style minv maxv minw maxw)
    (http-get (request-view-url root depth style minv maxv minw maxw) 'receive-view))

(defun request-view-url  (root depth style minv maxv minw maxw)

    (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)
            (setq view-current-line (line-number-at-pos))
            (http-get
                (concat (base-url) "set"
                    "?key=" (w3m-url-encode-string key)
