- 442 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/21(土) 00:28:48 ]
- >>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 "^live23\\.2ch\\.net\\(.*\\)$" uri)
(list (cons uri
(concat "live23f7.2ch.net"
(match-string 1 uri)))))))
navi2ch-list-board-name-list))))
