Navigator for 2ch

> ・URL から辿ったときにスレッドのタイトルを表示するように。

エラーになっちゃいました。
Backtraceです。

Signaling: (wrong-type-argument stringp (uri . "http://cheese.2ch.net/pure/"))
string=((uri . "http://cheese.2ch.net/pure/") "http://saki.2ch.net/qa/")
(if (string= (assq ... x) uri) (progn (setq board x)))
(when (string= (assq ... x) uri) (setq board x))
(while --dolist-temp--18415 (setq x (car --dolist-temp--18415)) (when (string= ... uri) (setq board x)) (setq --dolist-temp--18415 (cdr --dolist-temp--18415)))
(let ((--dolist-temp--18415 navi2ch-list-board-name-list) x) (while --dolist-temp--18415 (setq x ...) (when ... ...) (setq --dolist-temp--18415 ...)) nil)
(catch (quote --cl-block-nil--) (let (... x) (while --dolist-temp--18415 ... ... ...) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
(block nil (let (... x) (while --dolist-temp--18415 ... ... ...) nil))
(dolist (x navi2ch-list-board-name-list) (when (string= ... uri) (setq board x)))
(let ((uri ...) board) (dolist (x navi2ch-list-board-name-list) (when ... ...)) board)
(progn (let (... board) (dolist ... ...) board))
(if (string-match "http://\\([^/]+\\)/test/read\\.cgi.*bbs=\\([^&]+\\)" url) (progn (let ... ... board)))
(when (string-match "http://\\([^/]+\\)/test/read\\.cgi.*bbs=\\([^&]+\\)" url) (let (... board) (dolist ... ...) board))
navi2ch-url-to-board("http://saki.2ch.net/test/read.cgi?bbs=qa&key=979278521&ls=50")
(navi2ch-article-view-article (navi2ch-url-to-board prop) (navi2ch-url-to-article prop))
(if (navi2ch-2ch-url-p prop) (navi2ch-article-view-article (navi2ch-url-to-board prop) (navi2ch-url-to-article prop)) (browse-url prop))
(if prop (navi2ch-article-goto-number prop t) (setq prop (get-text-property ... ...)) (if (navi2ch-2ch-url-p prop) (navi2ch-article-view-article ... ...) (browse-url prop)))
(let ((prop ...)) (if prop (navi2ch-article-goto-number prop t) (setq prop ...) (if ... ... ...)))
navi2ch-article-select-current-link()
call-interactively(navi2ch-article-select-current-link)