>>440
ためしてないけどこれで全部いけるはず

(setq navi2ch-list-moved-board-alist
(append navi2ch-list-moved-board-alist
(apply 'append
(mapcar (lambda (x)
(let ((uri (cdr (assq 'uri x))))
(and (stringp uri)
(string-match "^http://live23\\.2ch\\.net\\(.*\\)$" uri)
(list (cons uri
(concat "http://live23f7.2ch.net"
(match-string 1 uri)))))))
navi2ch-list-board-name-list))))